summaryrefslogtreecommitdiff
path: root/test/regress/regress0/push-pop
diff options
context:
space:
mode:
authorajreynol <andrew.j.reynolds@gmail.com>2016-12-01 11:37:44 -0600
committerajreynol <andrew.j.reynolds@gmail.com>2016-12-01 11:37:44 -0600
commit9d6a0bda98ac2c3e3c59f55f349e029d623b264a (patch)
tree426f2b923ddba100417cb02933907416695f8b47 /test/regress/regress0/push-pop
parentffaf556b34e3ef2972b47caea00b7da149aeea8f (diff)
Fix quantifiers dynamic splitting module for incremental mode, fixes bug 765 and 763.
Diffstat (limited to 'test/regress/regress0/push-pop')
-rw-r--r--test/regress/regress0/push-pop/Makefile.am3
-rw-r--r--test/regress/regress0/push-pop/bug765.smt230
2 files changed, 32 insertions, 1 deletions
diff --git a/test/regress/regress0/push-pop/Makefile.am b/test/regress/regress0/push-pop/Makefile.am
index 8f1126ef5..99619a6aa 100644
--- a/test/regress/regress0/push-pop/Makefile.am
+++ b/test/regress/regress0/push-pop/Makefile.am
@@ -45,7 +45,8 @@ BUG_TESTS = \
bug674.smt2 \
inc-double-u.smt2 \
fmf-fun-dbu.smt2 \
- inc-define.smt2
+ inc-define.smt2 \
+ bug765.smt2
TESTS = $(SMT_TESTS) $(SMT2_TESTS) $(CVC_TESTS) $(BUG_TESTS)
diff --git a/test/regress/regress0/push-pop/bug765.smt2 b/test/regress/regress0/push-pop/bug765.smt2
new file mode 100644
index 000000000..fb4aac85a
--- /dev/null
+++ b/test/regress/regress0/push-pop/bug765.smt2
@@ -0,0 +1,30 @@
+; COMMAND-LINE: --incremental --fmf-fun-rlv --no-check-models
+(set-logic ALL_SUPPORTED)
+
+(declare-datatypes () (
+ (Color (red) (white) (blue))
+) )
+
+(define-fun ColorToString ((c Color)) String (ite (is-red c) "red" (ite (is-white c) "white" "blue")) )
+(declare-fun ColorFromString (String) Color)
+(assert (forall ((c Color)) (= c (ColorFromString (ColorToString c)))))
+
+(declare-datatypes () (
+ (CP (cp (c1 Color) (c2 Color)))
+) )
+
+(define-fun-rec CPToString ((cp CP)) String (str.++ "cp(" (ColorToString (c1 cp)) "," (ColorToString (c2 cp)) ")"))
+(declare-fun CPFromString (String) CP)
+(assert (forall ((cp1 CP)) (= cp1 (CPFromString (CPToString cp1)))))
+
+(declare-fun cpx() CP)
+(assert (= cpx (CPFromString "cp(white,red)")))
+
+; EXPECT: sat
+(check-sat)
+
+(declare-fun cpy() CP)
+(assert (= cpy (CPFromString "cp(red,blue)")))
+
+; EXPECT: sat
+(check-sat)
generated by cgit on debian on lair
contact matthew@masot.net with questions or feedback