shithub: 9ficl

ref: 7c76dac1b268038f567939a70a18228e790a5cbc
dir: /test/testcase.fr/

View raw version 


1 2 3
.s-simple
cr

: test-case ( n -- )
	case
		0 of
			." zero"
			endof
		1 of
			." one"
			endof
		." something else"
	endcase
	cr
	;


see test-case

.( You should see [3] 1 2 3 -> )
.s-simple
.( <-) cr

.( You should see "zero": )
0 test-case

.( You should see "one": )
1 test-case

.( You should see "something else": )
324 test-case

.( You should still see [3] 1 2 3 -> )
.s-simple
.( <-) cr


: test-case-2 ( n -- )
	case
		0 of
			." zero"
			fallthrough
		1 of
			." one"
			endof
		2 of
			." two"
			fallthrough
		." something else"
	endcase
	cr
	;


see test-case-2

cr

.( You should once more see [3] 1 2 3 -> )
.s-simple
.( <-) cr

.( You should see "zeroone": )
0 test-case-2

.( You should see "one": )
1 test-case-2

.( You should see "two": )
2 test-case-2

.( You should see "something else": )
324 test-case-2

.( You should still see [3] 1 2 3 -> )
.s-simple
.( <-) cr



bye