add a string test case

diff --git a/test/regress/regress0/strings/Makefile.am b/test/regress/regress0/strings/Makefile.am
index cd3116eacd1237b1ff92d3047d44153f07ed4a89..c98f37958219d611ddc64cdc98a0560328399051 100644 (file)
--- a/test/regress/regress0/strings/Makefile.am
+++ b/test/regress/regress0/strings/Makefile.am
@@ -39,7 +39,8 @@ TESTS =       \
   loop005.smt2 \
   loop006.smt2 \
   loop007.smt2 \
-  loop008.smt2
+  loop008.smt2 \
+  loop009.smt2
 
 FAILING_TESTS =
 

diff --git a/test/regress/regress0/strings/loop009.smt2 b/test/regress/regress0/strings/loop009.smt2
new file mode 100644 (file)
index 0000000..41eab0f
--- /dev/null
+++ b/test/regress/regress0/strings/loop009.smt2
@@ -0,0 +1,9 @@
+(set-logic QF_S)\r
+(set-info :status sat)\r
+\r
+(declare-fun x () String)\r
+\r
+(assert (= (str.++ x "aa") (str.++ "aa" x)))\r
+(assert (= (str.len x) 7))\r
+\r
+(check-sat)\r