diff options
Diffstat (limited to 'test/regress/regress0/strings')
-rw-r--r-- | test/regress/regress0/strings/Makefile.am | 6 | ||||
-rw-r--r-- | test/regress/regress0/strings/reloop.smt2 | 17 |
2 files changed, 20 insertions, 3 deletions
diff --git a/test/regress/regress0/strings/Makefile.am b/test/regress/regress0/strings/Makefile.am index e82076520..9977da6a5 100644 --- a/test/regress/regress0/strings/Makefile.am +++ b/test/regress/regress0/strings/Makefile.am @@ -44,13 +44,13 @@ TESTS = \ loop006.smt2 \ loop007.smt2 \ loop008.smt2 \ - loop009.smt2 - -#regexp002.smt2 + loop009.smt2 \ + reloop.smt2 FAILING_TESTS = EXTRA_DIST = $(TESTS) \ + regexp002.smt2 \ type002.smt2 # and make sure to distribute it diff --git a/test/regress/regress0/strings/reloop.smt2 b/test/regress/regress0/strings/reloop.smt2 new file mode 100644 index 000000000..f54607121 --- /dev/null +++ b/test/regress/regress0/strings/reloop.smt2 @@ -0,0 +1,17 @@ +(set-logic QF_S)
+(set-info :status sat)
+
+(declare-fun x () String)
+(declare-fun y () String)
+(declare-fun z () String)
+(declare-fun w () String)
+
+(assert (str.in.re x (re.loop (str.to.re "a") 5)))
+(assert (str.in.re y (re.loop (str.to.re "b") 2 5)))
+(assert (str.in.re z (re.loop (str.to.re "c") 5)))
+(assert (> (str.len z) 7))
+(assert (str.in.re w (re.loop (str.to.re "b") 2 7)))
+(assert (> (str.len w) 2))
+(assert (< (str.len w) 5))
+
+(check-sat)
|