[t/spec] test for RT #72960, Null PMC access when doing [].WHAT.say

git-svn-id: http://svn.pugscode.org/pugs@30224 c213334d-75ef-0310-aa23-eaa082d1ae64
Raku · Mar 28, 2010 · 519066c · 519066c
1 parent 0b22fe8
commit 519066c
Showing 1 changed file with 7 additions and 1 deletion.
diff --git a/integration/weird-errors.t b/integration/weird-errors.t
@@ -3,7 +3,7 @@ use Test;
 BEGIN { @*INC.push: 't/spec/packages' };
 use Test::Util;
 
-plan 2;
+plan 3;
 
 # this used to segfault in rakudo
 is_run(
@@ -18,5 +18,11 @@ is_run(
        'Can say $!.WHAT in a CATCH block',
 );
 
+is_run(
+       '[].WHAT.say',
+       { status => 0, out => "Array()\n"},
+       'Can [].WHAT.say',
+);
+