From c1297ec177589928d9de688d4130be9e721da0d8 Mon Sep 17 00:00:00 2001 From: Doug Coleman Date: Mon, 30 Mar 2009 00:18:02 -0500 Subject: [PATCH] add unit tests for quoting --- basis/quoting/quoting-tests.factor | 11 +++++++++++ 1 file changed, 11 insertions(+) create mode 100644 basis/quoting/quoting-tests.factor diff --git a/basis/quoting/quoting-tests.factor b/basis/quoting/quoting-tests.factor new file mode 100644 index 0000000000..f024d9c4a7 --- /dev/null +++ b/basis/quoting/quoting-tests.factor @@ -0,0 +1,11 @@ +! Copyright (C) 2009 Doug Coleman. +! See http://factorcode.org/license.txt for BSD license. +USING: tools.test quoting ; +IN: quoting.tests + +[ 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