Skip to content

Commit 93877b1

Browse files
committed
improve test instructions
1 parent f2e2c88 commit 93877b1

1 file changed

Lines changed: 30 additions & 2 deletions

File tree

htdp-test/tests/stepper/manual-tests.txt

Lines changed: 30 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -37,7 +37,35 @@ e.g.
3737
(check-expect (f (list 4))
3838
(list 7 13))
3939

40-
- try big-bang program.
40+
- try big-bang program. Here's one
4141

42-
- try SdP program, make sure that test cases don't show extra steps.
42+
#lang htdp/isl
43+
44+
(require 2htdp/universe
45+
)
46+
47+
(require 2htdp/image)
48+
49+
(define (world-is-zero? n)
50+
(<= n 0))
51+
52+
(define (world-render n)
53+
(square 230 "solid" "blue"))
54+
55+
(define (tick-fun n)
56+
(- n 1))
57+
58+
59+
(big-bang 30
60+
[stop-when world-is-zero?]
61+
[to-draw world-render]
62+
[on-tick tick-fun])
63+
64+
65+
66+
- try SdP program, make sure that test cases don't show extra steps. Here's one:
67+
68+
(define f (λ (x) (+ 3 (+ x 4))))
69+
70+
(f 9)
4371

0 commit comments

Comments
 (0)