From 55037e0bcef45c795f28ff3fcf6c1055af465c70 Mon Sep 17 00:00:00 2001 From: Andrew Reynolds Date: Thu, 15 Feb 2018 15:31:48 -0600 Subject: Refactor regressions (#1581) --- test/regress/regress2/bug765.smt2 | 30 ++++++++++++++++++++++++++++++ 1 file changed, 30 insertions(+) create mode 100644 test/regress/regress2/bug765.smt2 (limited to 'test/regress/regress2/bug765.smt2') diff --git a/test/regress/regress2/bug765.smt2 b/test/regress/regress2/bug765.smt2 new file mode 100644 index 000000000..2144de060 --- /dev/null +++ b/test/regress/regress2/bug765.smt2 @@ -0,0 +1,30 @@ +; COMMAND-LINE: --incremental --fmf-fun-rlv --no-check-models --lang=smt2.5 +(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) -- cgit v1.2.3