version 1.9, 2010/09/04 21:34:23
|
version 1.10, 2010/09/04 21:39:29
|
Line 126 s" foofoofoo" ?foos1
|
Line 126 s" foofoofoo" ?foos1
|
: test-delnum ( addr u addr' u' -- ) |
: test-delnum ( addr u addr' u' -- ) |
2swap delnum 2over 2over str= 0= IF |
2swap delnum 2over 2over str= 0= IF |
." test-delnum: got '" type ." ', expected '" type ." '" |
." test-delnum: got '" type ." ', expected '" type ." '" |
THEN ; |
ELSE 2drop 2drop THEN ; |
s" 0" s" " test-delnum |
s" 0" s" " test-delnum |
s" 00" s" " test-delnum |
s" 00" s" " test-delnum |
s" 0a" s" a" test-delnum |
s" 0a" s" a" test-delnum |