Adding tests to check farthest fail

1 files changed, 25 insertions, 0 deletions

diff --git a/testfarthest.lua b/testfarthest.lua
new file mode 100644
index 0000000..386cbbd
--- /dev/null
+++ b/testfarthest.lua
@@ -0,0 +1,25 @@
+local m = require 'lpeglabel'
+
+function matchPrint(p, s)
+        local r, l, sfail = p:match(s)
+        print("Input:", s)
+        print("Result:", r, l, sfail)
+end
+
+local p = m.P"a"^0 * m.P"b" + m.P"c"
+
+p:pcode()
+
+matchPrint(p, "aab")
+matchPrint(p, "ck")
+matchPrint(p, "dk")
+matchPrint(p, "aak")
+
+local p = m.P"a"^0 * m.P(1) * m.P(1) + m.P"a"^0 * m.P"c"
+
+p:pcode()
+
+matchPrint(p, "aabc")
+matchPrint(p, "aac")
+matchPrint(p, "aak")
+matchPrint(p, "x")