summaryrefslogtreecommitdiff
path: root/test/regress/regress0
diff options
context:
space:
mode:
authorAndrew Reynolds <andrew.j.reynolds@gmail.com>2019-09-11 16:29:21 -0500
committerGitHub <noreply@github.com>2019-09-11 16:29:21 -0500
commit3e6de62d11dcb3cf266f58e68def2f2c2ce728c3 (patch)
treedfccefc822de0cdfe5165b429b2bb356740eddc6 /test/regress/regress0
parent09be883cb1e27635426a3ca6c296a3557a07f2e0 (diff)
Fix constructor type printing (#3246)
Diffstat (limited to 'test/regress/regress0')
-rw-r--r--test/regress/regress0/datatypes/dt-param-2.6-print.smt220
1 files changed, 20 insertions, 0 deletions
diff --git a/test/regress/regress0/datatypes/dt-param-2.6-print.smt2 b/test/regress/regress0/datatypes/dt-param-2.6-print.smt2
new file mode 100644
index 000000000..165de0dba
--- /dev/null
+++ b/test/regress/regress0/datatypes/dt-param-2.6-print.smt2
@@ -0,0 +1,20 @@
+; EXPECT: sat
+; EXPECT: (model
+; EXPECT: (declare-datatypes ((Pair 2)) ((par (X Y)((mkPair (first X) (second Y))))))
+; EXPECT: (define-fun x () (Pair Int Real) ((as mkPair (Pair Int Real)) 2 (/ 3 2)))
+; EXPECT: )
+
+(set-logic ALL)
+(set-option :produce-models true)
+(set-info :status sat)
+(declare-datatypes ( (Pair 2) ) (
+(par ( X Y ) ( (mkPair (first X) (second Y))))
+))
+
+
+(declare-fun x () (Pair Int Real))
+
+(assert (= x (mkPair 2 1.5)))
+
+(check-sat)
+(get-model)
generated by cgit on debian on lair
contact matthew@masot.net with questions or feedback