extra/html/parser/state/state-tests.factor

   1 USING: tools.test html.parser.state ascii kernel ;
   2 IN: html.parser.state.tests
   3
   4 : take-rest ( -- string )
   5     [ f ] take-until ;
   6
   7 : take-char ( -- string )
   8     [ get-char = ] curry take-until ;
   9
  10 [ "hello" ] [ "hello" [ take-rest ] string-parse ] unit-test
  11 [ "hi" " how are you?" ] [ "hi how are you?" [ [ get-char blank? ] take-until take-rest ] string-parse ] unit-test
  12 [ "foo" ";bar" ] [ "foo;bar" [ CHAR: ; take-char take-rest ] string-parse ] unit-test
  13 ! [ "foo " " bar" ] [ "foo and bar" [ "and" take-string take-rest ] string-parse ] unit-test