diff options
Diffstat (limited to 'test/regress/regress0/strings')
-rw-r--r-- | test/regress/regress0/strings/Makefile.am | 1 | ||||
-rw-r--r-- | test/regress/regress0/strings/substr001.smt2 | 14 |
2 files changed, 15 insertions, 0 deletions
diff --git a/test/regress/regress0/strings/Makefile.am b/test/regress/regress0/strings/Makefile.am index 90872cf4d..9b9fdef7a 100644 --- a/test/regress/regress0/strings/Makefile.am +++ b/test/regress/regress0/strings/Makefile.am @@ -26,6 +26,7 @@ TESTS = \ str004.smt2 \ str005.smt2 \ model001.smt2 \ + substr001.smt2 \ loop001.smt2 \ loop002.smt2 \ loop003.smt2 \ diff --git a/test/regress/regress0/strings/substr001.smt2 b/test/regress/regress0/strings/substr001.smt2 new file mode 100644 index 000000000..b5ff587b2 --- /dev/null +++ b/test/regress/regress0/strings/substr001.smt2 @@ -0,0 +1,14 @@ +(set-logic QF_S)
+(set-info :status sat)
+
+(declare-fun x () String)
+(declare-fun i1 () Int)
+(declare-fun i2 () Int)
+(declare-fun i3 () Int)
+(declare-fun i4 () Int)
+
+(assert (= "efg" (str.sub x i1 i2) ) )
+(assert (= "bef" (str.sub x i3 i4) ) )
+(assert (> (str.len x) 5))
+
+(check-sat)
|