1
2
31 2 3
4.s-simple
5cr
6
7: test-case ( n -- )
8	case
9		0 of
10			." zero"
11			endof
12		1 of
13			." one"
14			endof
15		." something else"
16	endcase
17	cr
18	;
19
20
21see test-case
22
23.( You should see [3] 1 2 3 -> )
24.s-simple
25.( <-) cr
26
27.( You should see "zero": )
280 test-case
29
30.( You should see "one": )
311 test-case
32
33.( You should see "something else": )
34324 test-case
35
36.( You should still see [3] 1 2 3 -> )
37.s-simple
38.( <-) cr
39
40
41: test-case-2 ( n -- )
42	case
43		0 of
44			." zero"
45			fallthrough
46		1 of
47			." one"
48			endof
49		2 of
50			." two"
51			fallthrough
52		." something else"
53	endcase
54	cr
55	;
56
57
58see test-case-2
59
60cr
61
62.( You should once more see [3] 1 2 3 -> )
63.s-simple
64.( <-) cr
65
66.( You should see "zeroone": )
670 test-case-2
68
69.( You should see "one": )
701 test-case-2
71
72.( You should see "two": )
732 test-case-2
74
75.( You should see "something else": )
76324 test-case-2
77
78.( You should still see [3] 1 2 3 -> )
79.s-simple
80.( <-) cr
81
82
83
84bye
85