diff options
Diffstat (limited to 'test/regress')
-rw-r--r-- | test/regress/regress0/datatypes/Makefile.am | 3 | ||||
-rw-r--r-- | test/regress/regress0/datatypes/dt-match-pat-param-2.6.smt2 | 14 |
2 files changed, 16 insertions, 1 deletions
diff --git a/test/regress/regress0/datatypes/Makefile.am b/test/regress/regress0/datatypes/Makefile.am index 24c289650..d9db39b40 100644 --- a/test/regress/regress0/datatypes/Makefile.am +++ b/test/regress/regress0/datatypes/Makefile.am @@ -78,7 +78,8 @@ TESTS = \ dt-2.6.smt2 \ dt-sel-2.6.smt2 \ dt-param-2.6.smt2 \ - dt-color-2.6.smt2 + dt-color-2.6.smt2 \ + dt-match-pat-param-2.6.smt2 FAILING_TESTS = \ datatype-dump.cvc diff --git a/test/regress/regress0/datatypes/dt-match-pat-param-2.6.smt2 b/test/regress/regress0/datatypes/dt-match-pat-param-2.6.smt2 new file mode 100644 index 000000000..e2f4a779b --- /dev/null +++ b/test/regress/regress0/datatypes/dt-match-pat-param-2.6.smt2 @@ -0,0 +1,14 @@ +; COMMAND-LINE: --lang=smt2.6 +; EXPECT: sat +(set-logic ALL) +(set-info :status sat) +(declare-datatypes ( ( Tree 0) ( TreeList 0) ) ( + ( ( node ( value Int ) ( children TreeList) )) +( ( empty ) ( insert ( head Tree) ( tail TreeList)) ) +)) + + +(declare-fun t () TreeList) +(assert (<= 100 (match t ((empty (- 1)) ((insert x1 x2) (value x1)))))) + +(check-sat) |