From 2d77edf9a257114fea682bf2b501fab1bf9c7e54 Mon Sep 17 00:00:00 2001 From: Doug Coleman Date: Sat, 26 Aug 2017 01:25:23 -0500 Subject: [PATCH] modern-tests: Add some unit tests. --- extra/modern/modern-tests.factor | 20 ++++++++++++++++++++ 1 file changed, 20 insertions(+) create mode 100644 extra/modern/modern-tests.factor diff --git a/extra/modern/modern-tests.factor b/extra/modern/modern-tests.factor new file mode 100644 index 0000000000..e5cbb176da --- /dev/null +++ b/extra/modern/modern-tests.factor @@ -0,0 +1,20 @@ +! Copyright (C) 2017 Doug Coleman. +! See http://factorcode.org/license.txt for BSD license. +USING: modern modern.slices tools.test ; +IN: modern.tests + +{ + { { "!" "" } } +} [ "!" string>literals >strings ] unit-test + +{ + { { "!" " lol" } } +} [ "! lol" string>literals >strings ] unit-test + +{ + { "lol!" } +} [ "lol!" string>literals >strings ] unit-test + +{ + { { "!" "lol" } } +} [ "!lol" string>literals >strings ] unit-test