add regression test for discussion 3359
This commit is contained in:
11
tests-pl/discussion3359.pl
Normal file
11
tests-pl/discussion3359.pl
Normal file
@@ -0,0 +1,11 @@
|
||||
:- use_module(library(clpz)).
|
||||
:- use_module(library(tabling)).
|
||||
|
||||
:- table expr//0.
|
||||
|
||||
expr --> "1".
|
||||
expr --> expr, "+", expr.
|
||||
|
||||
run :- phrase(expr, "1+1+1+1+1").
|
||||
|
||||
:- initialization(run).
|
||||
Reference in New Issue
Block a user