Tests for RT #123789.

Raku · Apr 12, 2015 · 31ffc2c · 31ffc2c
1 parent f7729ba
commit 31ffc2c
Showing 1 changed file with 6 additions and 1 deletion.
diff --git a/S02-types/native.t b/S02-types/native.t
@@ -1,7 +1,7 @@
 use v6;
 use Test;
 
-plan 39;
+plan 42;
 
 {
     my int $x;
@@ -168,4 +168,9 @@ plan 39;
         'int does not get confused with goldilocks number (high)';
 }
 
+# RT #123789 (ensure we die, not SEGV)
+dies_ok { EVAL 'my int $x = Int;' }, '"my int $x = Int" dies';
+dies_ok { EVAL 'my num $x = Num;' }, '"my num $x = Num" dies';
+dies_ok { EVAL 'my str $x = Str;' }, '"my str $x = Str" dies';
+
 # vim: ft=perl6