unmaintained: New home for misfit Factor vocabularies.

[factor-unmaintained.git] / peg-lexer / peg-lexer-tests.factor

diff --git a/peg-lexer/peg-lexer-tests.factor b/peg-lexer/peg-lexer-tests.factor
new file mode 100644 (file)
index 0000000..560d60e
--- /dev/null
+++ b/peg-lexer/peg-lexer-tests.factor
@@ -0,0 +1,14 @@
+USING: tools.test peg-lexer.test-parsers ;
+IN: peg-lexer.tests
+
+{ V{ "1234" "-end" } } [
+   test1 1234-end
+] unit-test
+
+{ V{ 1234 53 } } [
+   test2 12345
+] unit-test
+
+{ V{ "heavy" "duty" "testing" } } [
+   test3 heavy duty testing
+] unit-test