basis/quoting/quoting-tests.factor

   1 ! Copyright (C) 2009 Doug Coleman.
   2 ! See http://factorcode.org/license.txt for BSD license.
   3 USING: tools.test quoting ;
   4 IN: quoting.tests
   5
   6 [ f ] [ "" quoted? ] unit-test
   7 [ t ] [ "''" quoted? ] unit-test
   8 [ t ] [ "\"\"" quoted? ] unit-test
   9 [ t ] [ "\"Circus Maximus\"" quoted? ] unit-test
  10 [ t ] [ "'Circus Maximus'" quoted? ] unit-test
  11 [ f ] [ "Circus Maximus" quoted? ] unit-test