basis/html/parser/utils/utils-tests.factor

   1 USING: assocs combinators continuations hashtables
   2 hashtables.private io kernel math
   3 namespaces prettyprint quotations sequences splitting
   4 state-parser strings tools.test ;
   5 USING: html.parser.utils ;
   6 IN: html.parser.utils.tests
   7
   8 [ "'Rome'" ] [ "Rome" single-quote ] unit-test
   9 [ "\"Roma\"" ] [ "Roma" double-quote ] unit-test
  10 [ "'Firenze'" ] [ "Firenze" quote ] unit-test
  11 [ "\"Caesar's\"" ] [ "Caesar's" quote ] unit-test
  12 [ f ] [ "" quoted? ] unit-test
  13 [ t ] [ "''" quoted? ] unit-test
  14 [ t ] [ "\"\"" quoted? ] unit-test
  15 [ t ] [ "\"Circus Maximus\"" quoted? ] unit-test
  16 [ t ] [ "'Circus Maximus'" quoted? ] unit-test
  17 [ f ] [ "Circus Maximus" quoted? ] unit-test
  18 [ "'Italy'" ] [ "Italy" ?quote ] unit-test
  19 [ "'Italy'" ] [ "'Italy'" ?quote ] unit-test
  20 [ "\"Italy\"" ] [ "\"Italy\"" ?quote ] unit-test
  21 [ "Italy" ] [ "Italy" unquote ] unit-test
  22 [ "Italy" ] [ "'Italy'" unquote ] unit-test
  23 [ "Italy" ] [ "\"Italy\"" unquote ] unit-test
  24