diff --git a/src/test/create_testsuite b/src/test/create_testsuite
index 419f561d7842d9ce48b7207fa4a26b2e9da50405..56718befc185d5ab75ed7b817bb555f76ae9176a 100755
--- a/src/test/create_testsuite
+++ b/src/test/create_testsuite
@@ -1201,6 +1201,12 @@ test_eq(clone((program)"/precompiled/regexp","^[^abc]$")->match("-"),1)
 test_eq(clone((program)"/precompiled/regexp","^[^abc]$")->match("a"),0)
 test_eq(clone((program)"/precompiled/regexp","^[^abc]$")->match("c"),0)
 test_eq(clone((program)"/precompiled/regexp","^a*$")->match("aaaa"),1)
+test_eq(clone((program)"/precompiled/regexp","^(a|bb)*$")->match("aabbabb"),1)
+test_eq(clone((program)"/precompiled/regexp","^(a|bb)*$")->match(""),1)
+test_eq(clone((program)"/precompiled/regexp","^(a|bb)+$")->match(""),0)
+test_eq(clone((program)"/precompiled/regexp","^(a|bb)+$")->match("aaa"),1)
+test_eq(clone((program)"/precompiled/regexp","^(a|bb)+$")->match("bbb"),0)
+test_eq(clone((program)"/precompiled/regexp","^(a|bb)+$")->match("bbaabba"),1)
 test_eq(clone((program)"/precompiled/regexp","^a|b$")->match("a"),1)
 test_eq(clone((program)"/precompiled/regexp","^a|b$")->match("b"),1)