2009-01-21 00:54:33 -05:00
|
|
|
USING: tools.test xml.tokenize xml.state io.streams.string kernel io strings ascii ;
|
|
|
|
|
IN: xml.test.state
|
|
|
|
|
|
|
|
|
|
: string-parse ( str quot -- )
|
2009-01-21 19:16:51 -05:00
|
|
|
[ <string-reader> ] dip with-state ;
|
2009-01-21 00:54:33 -05:00
|
|
|
|
|
|
|
|
: take-rest ( -- string )
|
|
|
|
|
[ f ] take-until ;
|
2007-09-20 18:09:08 -04:00
|
|
|
|
2009-01-25 22:06:45 -05:00
|
|
|
: take-char ( char -- string )
|
|
|
|
|
1string take-to ;
|
|
|
|
|
|
2008-04-26 19:44:28 -04:00
|
|
|
[ "hello" ] [ "hello" [ take-rest ] string-parse ] unit-test
|
2009-01-29 22:41:08 -05:00
|
|
|
[ 2 3 ] [ "12\n123" [ take-rest drop get-line get-column ] string-parse ] unit-test
|
2008-04-26 19:44:28 -04:00
|
|
|
[ "hi" " how are you?" ] [ "hi how are you?" [ [ get-char blank? ] take-until take-rest ] string-parse ] unit-test
|
|
|
|
|
[ "foo" ";bar" ] [ "foo;bar" [ CHAR: ; take-char take-rest ] string-parse ] unit-test
|
|
|
|
|
[ "foo " " bar" ] [ "foo and bar" [ "and" take-string take-rest ] string-parse ] unit-test
|
|
|
|
|
[ "baz" ] [ " \n\t baz" [ pass-blank take-rest ] string-parse ] unit-test
|
