Miroirs/sallyforth
1
0
Fork 0
mirror of https://github.com/russolsen/sallyforth synced 2024-11-16 19:48:49 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

Test dot-split.

Browse source
This commit is contained in:
Russ Olsen 2020-05-22 15:08:07 -04:00
parent 53fcafb4f1
commit 6273bdfde7
1 changed files with 5 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
sallyforth/test.sf
View file

@ -89,6 +89,7 @@ reset false 1-or-2 2 = "False part of ifelse fires." assert
[ "hello" ] first "hello" = "First works" assert [ "hello" ] first "hello" = "First works" assert
[ ] empty? "Empty? knows an empty list." assert [ ] empty? "Empty? knows an empty list." assert
[] empty? "Empty? knows an empty list." assert
[ 1 ] empty? not "Empty? knows a non-empty list." assert [ 1 ] empty? not "Empty? knows a non-empty list." assert
[ 1 2 ] empty? not "Empty? knows a non-empty list." assert [ 1 2 ] empty? not "Empty? knows a non-empty list." assert
@ -101,3 +102,7 @@ reset false 1-or-2 2 = "False part of ifelse fires." assert
: zero-trip-while { while { false } { "Should not get here." } } : zero-trip-while { while { false } { "Should not get here." } }
888 zero-trip-while 888 = "While should handle zero trip case." assert 888 zero-trip-while 888 = "While should handle zero trip case." assert
\ Strings
reset "abc.def.h" dot-split [ "abc" "def" "h" ] = "Dot split splits" assert