2018-02-15 11:45:08 -05:00
|
|
|
USING: 24-game io.streams.string kernel math sequences
|
|
|
|
|
tools.test ;
|
2012-06-20 02:11:10 -04:00
|
|
|
|
|
|
|
|
{ t } [ make-24 first4 makes-24? ] unit-test
|
2016-06-16 17:41:17 -04:00
|
|
|
|
|
|
|
|
{ f } [ (operators) "hello" find-operator ] unit-test
|
|
|
|
|
|
|
|
|
|
{ + } [ "+" [ (operators) get-operator ] with-string-reader ] unit-test
|
|
|
|
|
|
|
|
|
|
{ swap } [
|
|
|
|
|
"bad\ninput\nswap" [ (operators) get-operator ] with-string-reader
|
|
|
|
|
] unit-test
|
