2007-09-20 18:09:08 -04:00
|
|
|
USING: assocs combinators continuations hashtables
|
|
|
|
|
hashtables.private io kernel math
|
|
|
|
|
namespaces prettyprint quotations sequences splitting
|
|
|
|
|
state-parser strings tools.test ;
|
2007-12-04 15:17:34 -05:00
|
|
|
USING: html.parser.utils ;
|
2008-03-01 17:00:45 -05:00
|
|
|
IN: html.parser.utils.tests
|
2007-09-20 18:09:08 -04:00
|
|
|
|
|
|
|
|
[ "'Rome'" ] [ "Rome" single-quote ] unit-test
|
|
|
|
|
[ "\"Roma\"" ] [ "Roma" double-quote ] unit-test
|
|
|
|
|
[ "'Firenze'" ] [ "Firenze" quote ] unit-test
|
|
|
|
|
[ "\"Caesar's\"" ] [ "Caesar's" quote ] unit-test
|
|
|
|
|
[ f ] [ "" quoted? ] unit-test
|
|
|
|
|
[ t ] [ "''" quoted? ] unit-test
|
|
|
|
|
[ t ] [ "\"\"" quoted? ] unit-test
|
|
|
|
|
[ t ] [ "\"Circus Maximus\"" quoted? ] unit-test
|
|
|
|
|
[ t ] [ "'Circus Maximus'" quoted? ] unit-test
|
|
|
|
|
[ f ] [ "Circus Maximus" quoted? ] unit-test
|
|
|
|
|
[ "'Italy'" ] [ "Italy" ?quote ] unit-test
|
|
|
|
|
[ "'Italy'" ] [ "'Italy'" ?quote ] unit-test
|
|
|
|
|
[ "\"Italy\"" ] [ "\"Italy\"" ?quote ] unit-test
|
|
|
|
|
[ "Italy" ] [ "Italy" unquote ] unit-test
|
|
|
|
|
[ "Italy" ] [ "'Italy'" unquote ] unit-test
|
|
|
|
|
[ "Italy" ] [ "\"Italy\"" unquote ] unit-test
|
|
|
|
|
|
