Permalink
Browse files

t[t/spec/S06-signature/slurpy-params.t] tests for RT #72600 if statem…

…ents clobber @_ in Rakudo

git-svn-id: http://svn.pugscode.org/pugs@31482 c213334d-75ef-0310-aa23-eaa082d1ae64
  • Loading branch information...
1 parent a04125d commit 70a2f678909561c22ba10fb21a9f3a214fecf48d bbkr committed Jun 28, 2010
Showing with 11 additions and 0 deletions.
  1. +11 −0 S06-signature/slurpy-params.t
@@ -312,6 +312,17 @@ eval_dies_ok 'sub rt65324(*@x, $oops) { say $oops }',
is @c[0], 'a', 'slurpy is copy-array works fine, thank you';
}
+# RT #72600
+{
+ sub A (*@_) {
+ is @_, [5, 4], 'slurpy @_ contains proper values';
+ if 1 {
+ is @_, [5, 4], 'slurpy @_ values not clobbered by if statement';
+ }
+ };
+ A(5, 4);
+}
+
done_testing;
# vim: ft=perl6

0 comments on commit 70a2f67

Please sign in to comment.