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
   5 { f } [ "" quoted? ] unit-test
   6 { t } [ "''" quoted? ] unit-test
   7 { t } [ "\"\"" quoted? ] unit-test
   8 { t } [ "\"Circus Maximus\"" quoted? ] unit-test
   9 { t } [ "'Circus Maximus'" quoted? ] unit-test
  10 { f } [ "Circus Maximus" quoted? ] unit-test