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