diff options
Diffstat (limited to 'test/regress/regress1/fmf/bug764.smt2')
-rw-r--r-- | test/regress/regress1/fmf/bug764.smt2 | 19 |
1 files changed, 9 insertions, 10 deletions
diff --git a/test/regress/regress1/fmf/bug764.smt2 b/test/regress/regress1/fmf/bug764.smt2 index 3172fd695..cb55d8504 100644 --- a/test/regress/regress1/fmf/bug764.smt2 +++ b/test/regress/regress1/fmf/bug764.smt2 @@ -1,19 +1,19 @@ -; COMMAND-LINE: --fmf-fun --no-check-models --lang=smt2.5 +; COMMAND-LINE: --fmf-fun --no-check-models ; EXPECT: sat (set-logic ALL) (set-info :status sat) (define-fun BoolToString ((b Bool)) String (ite b "true" "false") ) -(declare-datatypes () ( - (Color (red) (white) (blue)) -) ) +(declare-datatypes ((Color 0)) ( + ((red) (white) (blue)) +)) -(define-fun ColorToString ((c Color)) String (ite (is-red c) "red" (ite (is-white c) "white" "blue")) ) +(define-fun ColorToString ((c Color)) String (ite ((_ is red) c) "red" (ite ((_ is white) c) "white" "blue")) ) -(declare-datatypes () ( - (CP (cp (b Bool) (c Color))) -) ) +(declare-datatypes ((CP 0)) ( + ((cp (b Bool) (c Color))) +)) (define-fun-rec CPToString ((cp CP)) String (str.++ "cp(" (BoolToString (b cp)) "," (ColorToString (c cp)) ")")) @@ -21,8 +21,7 @@ (assert (forall ((cp1 CP)) (= cp1 (CPFromString (CPToString cp1))))) -(declare-fun cpx() CP) +(declare-fun cpx () CP) (assert (= cpx (CPFromString "cp(true,white)"))) (check-sat) - |