From c7ec792a2086c5b92c4a96d18f7cedb293712dfd Mon Sep 17 00:00:00 2001 From: Andrew Reynolds Date: Mon, 13 Jul 2020 00:43:45 -0500 Subject: Add support for string/sequence update (#4725) This adds basic support for string/sequence updating, which has a semantics that is length preserving. --- test/regress/regress2/strings/update-ex3.smt2 | 13 +++++++++++++ test/regress/regress2/strings/update-ex4-seq.smt2 | 11 +++++++++++ 2 files changed, 24 insertions(+) create mode 100644 test/regress/regress2/strings/update-ex3.smt2 create mode 100644 test/regress/regress2/strings/update-ex4-seq.smt2 (limited to 'test/regress/regress2') diff --git a/test/regress/regress2/strings/update-ex3.smt2 b/test/regress/regress2/strings/update-ex3.smt2 new file mode 100644 index 000000000..e21a2f445 --- /dev/null +++ b/test/regress/regress2/strings/update-ex3.smt2 @@ -0,0 +1,13 @@ +(set-logic QF_SLIA) +(set-option :strings-exp true) +(set-info :status sat) +(declare-fun s () String) +(declare-fun x () Int) +(declare-fun y () Int) + +(assert (= s (str.update (str.update "ABCDEFG" x "ZZZ") y "X"))) +(assert (not (str.contains s "B"))) +(assert (not (str.contains s "D"))) +(assert (not (str.contains s "G"))) + +(check-sat) diff --git a/test/regress/regress2/strings/update-ex4-seq.smt2 b/test/regress/regress2/strings/update-ex4-seq.smt2 new file mode 100644 index 000000000..d28df8534 --- /dev/null +++ b/test/regress/regress2/strings/update-ex4-seq.smt2 @@ -0,0 +1,11 @@ +(set-logic QF_SLIA) +(set-option :strings-exp true) +(set-info :status sat) +(declare-fun s () (Seq Int)) +(declare-fun x () Int) + +(assert (= s (seq.++ (seq.unit 0) (seq.unit 1) (seq.unit 7) (seq.unit 3) (seq.unit 4) (seq.unit 5)))) + +(assert (not (= s (seq.update s x (seq.unit x))))) + +(check-sat) -- cgit v1.2.3