extra/24-game/24-game-tests.factor

   1 USING: 24-game io.streams.string kernel math sequences
   2 tools.test ;
   3
   4 { t } [ make-24 first4 makes-24? ] unit-test
   5
   6 { f } [ (operators) "hello" find-operator ] unit-test
   7
   8 { + } [ "+" [ (operators) get-operator ] with-string-reader ] unit-test
   9
  10 { swap } [
  11     "bad\ninput\nswap" [ (operators) get-operator ] with-string-reader
  12 ] unit-test