Track disappearence of Cool.eval and eval()

Raku · Jul 9, 2014 · 6e71b0b · 6e71b0b
1 parent d9f950a
commit 6e71b0b
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 30 deletions.
diff --git a/S02-types/deprecations.t b/S02-types/deprecations.t
@@ -2,7 +2,7 @@ use v6;
 
 use Test;
 
-plan 38;
+plan 36;
 
 # currently deprecated core features
 
@@ -375,34 +375,6 @@ Please use the :exists adverb with postcircumfix:<\{ }> instead.
 TEXT
 } #2
 
-# eval() and .eval
-#?niecza skip 'is DEPRECATED NYI'
-#?pugs   skip 'is DEPRECATED NYI'
-#?rakudo.jvm skip 'tracebacks in deprecations'
-{
-    $line = $?LINE; eval("1+1");
-    eval("1+1");
-    is Deprecation.report, qq:to/TEXT/.chop.subst(/\r/, '', :g), 'deprecation eval("1+1")';
-Saw 1 call to deprecated code during execution.
-================================================================================
-Sub eval (from GLOBAL) called at:
-  $*PROGRAM, lines $line,{$line + 1}
-Please use 'EVAL' instead.
---------------------------------------------------------------------------------
-TEXT
-
-    $line = $?LINE; "1+1".eval;
-    "1+1".eval;
-    is Deprecation.report, qq:to/TEXT/.chop.subst(/\r/, '', :g), 'deprecation "1+1".eval';
-Saw 1 call to deprecated code during execution.
-================================================================================
-Method eval (from Cool) called at:
-  $*PROGRAM, lines $line,{$line + 1}
-Please use 'EVAL' instead.
---------------------------------------------------------------------------------
-TEXT
-} #2
-
 # $*OS
 #?niecza skip 'is DEPRECATED NYI'
 #?pugs   skip 'is DEPRECATED NYI'

diff --git a/S32-exceptions/misc.t b/S32-exceptions/misc.t
@@ -157,7 +157,7 @@ throws_like 'sub f(*@a, $b?) { }', X::Parameter::WrongOrder,
 #?rakudo todo 'parsing regression'
 throws_like '#`', X::Syntax::Comment::Embedded;
 # RT #71814
-throws_like "=begin\n", X::Syntax::Pod::BeginWithoutIdentifier, line => 1, filename => rx/eval/;
+throws_like "=begin\n", X::Syntax::Pod::BeginWithoutIdentifier, line => 1, filename => rx/EVAL/;
 
 for <
   $ @ % &