diff options
author | Andrew Reynolds <andrew.j.reynolds@gmail.com> | 2018-02-15 15:31:48 -0600 |
---|---|---|
committer | Aina Niemetz <aina.niemetz@gmail.com> | 2018-02-15 13:31:48 -0800 |
commit | 55037e0bcef45c795f28ff3fcf6c1055af465c70 (patch) | |
tree | 397d89bd10e541e1206c5dafdb8cf731feb34730 /test/regress/regress2/bug765.smt2 | |
parent | 52a39aca19b7238d08c3cebcfa46436a73194008 (diff) |
Refactor regressions (#1581)
Diffstat (limited to 'test/regress/regress2/bug765.smt2')
-rw-r--r-- | test/regress/regress2/bug765.smt2 | 30 |
1 files changed, 30 insertions, 0 deletions
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) |