2008-02-01 17:02:02 -05:00
|
|
|
USING: ascii tools.test sequences kernel math ;
|
2008-04-26 00:17:08 -04:00
|
|
|
IN: ascii.tests
|
2008-02-01 17:02:02 -05:00
|
|
|
|
|
|
|
[ t ] [ CHAR: a letter? ] unit-test
|
|
|
|
[ f ] [ CHAR: A letter? ] unit-test
|
|
|
|
[ f ] [ CHAR: a LETTER? ] unit-test
|
|
|
|
[ t ] [ CHAR: A LETTER? ] unit-test
|
|
|
|
[ t ] [ CHAR: 0 digit? ] unit-test
|
|
|
|
[ f ] [ CHAR: x digit? ] unit-test
|
|
|
|
|
|
|
|
[ 4 ] [
|
|
|
|
0 "There are Four Upper Case characters"
|
|
|
|
[ LETTER? [ 1+ ] when ] each
|
|
|
|
] unit-test
|