spectest: Test str clause: is_re

perlancar · Nov 1, 2012 · dafd88d · dafd88d
1 parent 8a6bb6d
commit dafd88d
Showing 1 changed file with 25 additions and 1 deletion.
diff --git a/devscripts/gen-type-spectest b/devscripts/gen-type-spectest
@@ -843,7 +843,31 @@ sub gen_str_tests {
             dies   => 1,
         },
 
-        # XXX is_re
+        {
+            name   => 'is_re: 1 (ok)',
+            input  => "a",
+            schema => [str => is_re => 1],
+            valid  => 1,
+        },
+        {
+            name   => 'is_re: 1 (nok)',
+            input  => "a(",
+            schema => [str => is_re => 1],
+            valid  => 0,
+        },
+        {
+            name   => 'is_re: 0 (ok)',
+            input  => "a(",
+            schema => [str => is_re => 0],
+            valid  => 1,
+        },
+        {
+            name   => 'is_re: 0 (nok)',
+            input  => "a",
+            schema => [str => is_re => 0],
+            valid  => 0,
+        },
+
     );
 }