unmaintained: New home for misfit Factor vocabularies.

[factor-unmaintained.git] / peg-lexer / test-parsers / test-parsers.factor

diff --git a/peg-lexer/test-parsers/test-parsers.factor b/peg-lexer/test-parsers/test-parsers.factor
new file mode 100644 (file)
index 0000000..188ef32
--- /dev/null
+++ b/peg-lexer/test-parsers/test-parsers.factor
@@ -0,0 +1,17 @@
+USING: peg-lexer math.parser strings ;
+IN: peg-lexer.test-parsers
+
+ON-BNF: test1
+      num = [1-4]* => [[ >string ]]
+      expr = num ( "-end" | "-done" )
+;ON-BNF
+
+ON-BNF: test2
+      num = [1-4]* => [[ >string string>number ]]
+      expr= num [5-9]
+;ON-BNF
+
+ON-BNF: test3
+      tokenizer = <foreign factor>
+      expr= "heavy" "duty" "testing"
+;ON-BNF