Changeset 24130

Timestamp:

12/01/08 23:06:01 (5 weeks ago)

Author:

moritz

Message:

[t/spec] test for subset type with `where /regex/', RT #60976

Files:

• t/spec/S12-subset/subtypes.t (modified) (2 diffs)

t/spec/S12-subset/subtypes.t

@@ -3 +3 @@
 use Test;
 
-plan 19;
+plan 21;
 
 =begin description
@@ -80 +80 @@
 }
 
+# Rakudo had a bug where 'where /regex/' failed
+# http://rt.perl.org/rt3/Ticket/Display.html?id=60976
+#?rakudo skip 'RT #60976'
+#?DOES 2
+{
+    subset HasA of Str where /a/;
+    lives_ok { my HasA $x = 'bla' },   'where /regex/ works (positive)';
+    eval_dies_ok 'my HasA $x = "foo"', 'where /regex/ works (negative)';
+}
+
+
+# vim: ft=perl6