Change (and move) test for RT #98854

Raku · Jul 1, 2015 · b251b6f · b251b6f
1 parent 3e73c1e
commit b251b6f
Show file tree

Hide file tree

Showing 2 changed files with 6 additions and 7 deletions.
diff --git a/S02-names/bare-sigil.t b/S02-names/bare-sigil.t
@@ -1,7 +1,7 @@
 use v6;
 use Test;
 
-plan 10;
+plan 11;
 
 # L<S02/Names/"In declarative constructs bare sigils">
 
@@ -30,3 +30,7 @@ ok (my % = baz => "luhrman"), 'initialized bare sigil hash %';
     is +d(), 2, "anonymous 'state' bare sigil array retains state";
     is d()[2], 2, "anonymous 'state' bare sigil array can grow";
 }
+
+# RT #98854
+lives-ok { sub f { f(|$) } },
+    'no misleading warning about P5 special var \'$)\'';
diff --git a/S32-exceptions/misc.t b/S32-exceptions/misc.t
@@ -3,7 +3,7 @@ use Test;
 use lib "t/spec/packages";
 use Test::Util;
 
-plan 318;
+plan 317;
 
 throws-like '42 +', X::AdHoc, "missing rhs of infix", message => rx/term/;
 
@@ -513,11 +513,6 @@ throws-like q[sub f() {CALLER::<$x>}; my $x; f], X::Caller::NotDynamic, symbol =
 throws-like 'my class A { method b { Q<b> } }; my $a = A.new; my $b = &A::b.assuming($a); $b();',
     X::Method::NotFound, method => { m/'assuming'/ }, private => { $_ === False };
 
-# RT #98854
-#?rakudo todo 'Cannot find method "returns" RT #124680'
-throws-like 'sub f { f(|$) }', X::Obsolete,
-    old => { m/'$) variable'/ }, replacement => { m/'$*EGID'/ }, when => { m/'in Perl 6'/ };
-
 # RT #66776
 throws-like 'for 1,2,3, { say 3 }', X::Comp::Group, 
     sorrows => sub (@s) { @s[0] ~~ X::Syntax::BlockGobbled && @s[0].message ~~ /^Expression/ },