Add test for RT #125428

Raku · Jun 17, 2015 · e9694a7 · e9694a7
1 parent 25d7195
commit e9694a7
Showing 1 changed file with 10 additions and 1 deletion.
diff --git a/S09-typed-arrays/arrays.t b/S09-typed-arrays/arrays.t
@@ -1,7 +1,7 @@
 use v6;
 use Test;
 
-plan 73;
+plan 74;
 
 # L<S09/Typed arrays/>
 
@@ -168,6 +168,15 @@ plan 73;
         'assignment checks for types';
 }
 
+# RT #125428
+{
+    subset Y of Int where 1..10;
+    my Y @x;
+    @x.push: 10;
+    throws-like '@x[0]++', X::TypeCheck,
+        'pushed value to typed array (using "subset") is type checked';
+}
+
 {
     my Int @a; @a[2] = 42;
     my @b := @a.perl.EVAL;