Skip to content

Commit

Permalink
Browse files Browse the repository at this point in the history
Follow latest deprecation wording changes
  • Loading branch information
@lizmat
lizmat committed May 19, 2015
1 parent 1ceff32 commit f6e598f
Show file tree
Hide file tree
Showing 2 changed files with 47 additions and 47 deletions.
44 changes: 22 additions & 22 deletions S02-types/deprecations.t
View file
Expand Up @@ -14,9 +14,9 @@ my $line;
$line = $?LINE; say $*OS;
say $*OS;
is Deprecation.report, qq:to/TEXT/.chop.subst(/\r/, '', :g), 'deprecation $*OS';
Saw 1 call to deprecated code during execution.
Saw 1 occurrence of deprecated code.
================================================================================
\$*OS called at:
\$*OS seen at:
$*PROGRAM, lines $line,{$line + 1}
Deprecated since v2014.9, will be removed with release v2015.9!
Please use \$*DISTRO.name instead.
Expand All @@ -30,9 +30,9 @@ TEXT
$line = $?LINE; say $*OSVER;
say $*OSVER;
is Deprecation.report, qq:to/TEXT/.chop.subst(/\r/, '', :g), 'deprecation $*OSVER';
Saw 1 call to deprecated code during execution.
Saw 1 occurrence of deprecated code.
================================================================================
\$*OSVER called at:
\$*OSVER seen at:
$*PROGRAM, lines $line,{$line + 1}
Deprecated since v2014.9, will be removed with release v2015.9!
Please use \$*DISTRO.version instead.
Expand All @@ -46,9 +46,9 @@ TEXT
$line = $?LINE; say $*VM<name>;
say $*VM<name>;
is Deprecation.report, qq:to/TEXT/.chop.subst(/\r/, '', :g), 'deprecation $*VM<name>';
Saw 1 call to deprecated code during execution.
Saw 1 occurrence of deprecated code.
================================================================================
\$*VM<name> called at:
\$*VM<name> seen at:
$*PROGRAM, lines $line,{$line + 1}
Deprecated since v2014.5, will be removed with release v2015.5!
Please use \$*VM.name instead.
Expand All @@ -62,9 +62,9 @@ TEXT
$line = $?LINE; say $*VM<config>;
say $*VM<config>;
is Deprecation.report, qq:to/TEXT/.chop.subst(/\r/, '', :g), 'deprecation $*VM<config>';
Saw 1 call to deprecated code during execution.
Saw 1 occurrence of deprecated code.
================================================================================
\$*VM<config> called at:
\$*VM<config> seen at:
$*PROGRAM, lines $line,{$line + 1}
Deprecated since v2014.5, will be removed with release v2015.5!
Please use \$*VM.config instead.
Expand All @@ -78,9 +78,9 @@ TEXT
$line = $?LINE; say $*PERL<name>;
say $*PERL<name>;
is Deprecation.report, qq:to/TEXT/.chop.subst(/\r/, '', :g), 'deprecation $*PERL<name>';
Saw 1 call to deprecated code during execution.
Saw 1 occurrence of deprecated code.
================================================================================
\$*PERL<name> called at:
\$*PERL<name> seen at:
$*PROGRAM, lines $line,{$line + 1}
Deprecated since v2014.6, will be removed with release v2015.6!
Please use \$*PERL.name instead.
Expand All @@ -94,9 +94,9 @@ TEXT
$line = $?LINE; say $*PERL<compiler><name>;
say $*PERL<compiler><name>;
is Deprecation.report, qq:to/TEXT/.chop.subst(/\r/, '', :g), 'deprecation $*PERL<compiler><name>';
Saw 1 call to deprecated code during execution.
Saw 1 occurrence of deprecated code.
================================================================================
\$*PERL<compiler><name> called at:
\$*PERL<compiler><name> seen at:
$*PROGRAM, lines $line,{$line + 1}
Deprecated since v2014.6, will be removed with release v2015.6!
Please use \$*PERL.compiler.name instead.
Expand All @@ -110,9 +110,9 @@ TEXT
$line = $?LINE; say $*PERL<compiler><ver>;
say $*PERL<compiler><ver>;
is Deprecation.report, qq:to/TEXT/.chop.subst(/\r/, '', :g), 'deprecation $*PERL<compiler><ver>';
Saw 1 call to deprecated code during execution.
Saw 1 occurrence of deprecated code.
================================================================================
\$*PERL<compiler><ver> called at:
\$*PERL<compiler><ver> seen at:
$*PROGRAM, lines $line,{$line + 1}
Deprecated since v2014.6, will be removed with release v2015.6!
Please use \$*PERL.compiler.version instead.
Expand All @@ -126,9 +126,9 @@ TEXT
$line = $?LINE; say $*PERL<compiler><release-number>;
say $*PERL<compiler><release-number>;
is Deprecation.report, qq:to/TEXT/.chop.subst(/\r/, '', :g), 'deprecation $*PERL<compiler><release-number>';
Saw 1 call to deprecated code during execution.
Saw 1 occurrence of deprecated code.
================================================================================
\$*PERL<compiler><release-number> called at:
\$*PERL<compiler><release-number> seen at:
$*PROGRAM, lines $line,{$line + 1}
Deprecated since v2014.6, will be removed with release v2015.6!
Please use \$*PERL.compiler.release instead.
Expand All @@ -142,9 +142,9 @@ TEXT
$line = $?LINE; say $*PERL<compiler><build-date>;
say $*PERL<compiler><build-date>;
is Deprecation.report, qq:to/TEXT/.chop.subst(/\r/, '', :g), 'deprecation $*PERL<compiler><build-date>';
Saw 1 call to deprecated code during execution.
Saw 1 occurrence of deprecated code.
================================================================================
\$*PERL<compiler><build-date> called at:
\$*PERL<compiler><build-date> seen at:
$*PROGRAM, lines $line,{$line + 1}
Deprecated since v2014.6, will be removed with release v2015.6!
Please use \$*PERL.compiler.build-date instead.
Expand All @@ -158,9 +158,9 @@ TEXT
$line = $?LINE; say $*PERL<compiler><codename>;
say $*PERL<compiler><codename>;
is Deprecation.report, qq:to/TEXT/.chop.subst(/\r/, '', :g), 'deprecation $*PERL<compiler><codename>';
Saw 1 call to deprecated code during execution.
Saw 1 occurrence of deprecated code.
================================================================================
\$*PERL<compiler><codename> called at:
\$*PERL<compiler><codename> seen at:
$*PROGRAM, lines $line,{$line + 1}
Deprecated since v2014.6, will be removed with release v2015.6!
Please use \$*PERL.compiler.codename instead.
Expand All @@ -174,9 +174,9 @@ TEXT
my %h; $line = $?LINE; %h = { a => 1 };
%h = { b => 2 };
is Deprecation.report, qq:to/TEXT/.chop.subst(/\r/, '', :g), 'deprecation %h = itemized hash';
Saw 1 call to deprecated code during execution.
Saw 1 occurrence of deprecated code.
================================================================================
%h = itemized hash called at:
%h = itemized hash seen at:
$*PROGRAM, lines $line,{$line + 1}
Deprecated since v2014.7, will be removed with release v2015.7!
Please use %h = \%(itemized hash) instead.
Expand Down
50 changes: 25 additions & 25 deletions S02-types/isDEPRECATED.t
View file
Expand Up @@ -19,9 +19,9 @@ my $line;
$line = $?LINE; a();
is $a, 1, 'was "a" really called';
is Deprecation.report, qq:to/TEXT/.chop.subst(/\r/, '', :g), 'right deprecation for a()';
Saw 1 call to deprecated code during execution.
Saw 1 occurrence of deprecated code.
================================================================================
Sub a (from GLOBAL) called at:
Sub a (from GLOBAL) seen at:
$*PROGRAM, line $line
Please use something else instead.
--------------------------------------------------------------------------------
Expand All @@ -31,9 +31,9 @@ TEXT
awith();
is $awith, 2, 'was "awith" really called';
is Deprecation.report, qq:to/TEXT/.chop.subst(/\r/, '', :g), 'right deprecation for awith()';
Saw 1 call to deprecated code during execution.
Saw 1 occurrence of deprecated code.
================================================================================
Sub awith (from GLOBAL) called at:
Sub awith (from GLOBAL) seen at:
$*PROGRAM, lines $line,{$line + 1}
Please use 'fnorkle' instead.
--------------------------------------------------------------------------------
Expand All @@ -49,9 +49,9 @@ TEXT
$line = $?LINE; A.new;
#?rakudo todo 'NYI'
is Deprecation.report, qq:to/TEXT/.chop.subst(/\r/, '', :g), 'right deprecation for A.new';
Saw 1 call to deprecated code during execution.
Saw 1 occurrence of deprecated code.
================================================================================
Method new (from A) called at:
Method new (from A) seen at:
$*PROGRAM, line $line
Please use something else instead.
--------------------------------------------------------------------------------
Expand All @@ -61,9 +61,9 @@ TEXT
Awith.new;
#?rakudo todo 'NYI'
is Deprecation.report, qq:to/TEXT/.chop.subst(/\r/, '', :g), 'right deprecation for Awith.new';
Saw 1 call to deprecated code during execution.
Saw 1 occurrence of deprecated code.
================================================================================
Method new (from Awith) called at:
Method new (from Awith) seen at:
$*PROGRAM, lines $line,{$line + 1}
Please use 'Fnorkle.new' instead.
--------------------------------------------------------------------------------
Expand All @@ -82,9 +82,9 @@ TEXT
is $B, 1, 'was "B.new" really called';
#?rakudo todo 'NYI'
is Deprecation.report, qq:to/TEXT/.chop.subst(/\r/, '', :g), 'right deprecation for B.new';
Saw 1 call to deprecated code during execution.
Saw 1 occurrence of deprecated code.
================================================================================
Method new (from B) called at:
Method new (from B) seen at:
$*PROGRAM, line $line
Please use something else instead.
--------------------------------------------------------------------------------
Expand All @@ -95,9 +95,9 @@ TEXT
is $Bwith, 2, 'was "Bwith.new" really called';
#?rakudo todo 'NYI'
is Deprecation.report, qq:to/TEXT/.chop.subst(/\r/, '', :g), 'right deprecation for Bwith.new';
Saw 1 call to deprecated code during execution.
Saw 1 occurrence of deprecated code.
================================================================================
Method new (from Bwith) called at:
Method new (from Bwith) seen at:
$*PROGRAM, lines $line,{$line + 1}
Please use 'Borkle.new' instead.
--------------------------------------------------------------------------------
Expand All @@ -115,9 +115,9 @@ TEXT
$line = $?LINE; C.new.foo;
is $C, 1, 'was "C.new.foo" really called';
is Deprecation.report, qq:to/TEXT/.chop.subst(/\r/, '', :g), 'right deprecation for C.new.foo';
Saw 1 call to deprecated code during execution.
Saw 1 occurrence of deprecated code.
================================================================================
Method foo (from C) called at:
Method foo (from C) seen at:
$*PROGRAM, line $line
Please use something else instead.
--------------------------------------------------------------------------------
Expand All @@ -127,9 +127,9 @@ TEXT
Cwith.new.foo;
is $Cwith, 2, 'was "Cwith.new.foo" really called';
is Deprecation.report, qq:to/TEXT/.chop.subst(/\r/, '', :g), 'right deprecation Cwith.new.foo';
Saw 1 call to deprecated code during execution.
Saw 1 occurrence of deprecated code.
================================================================================
Method foo (from Cwith) called at:
Method foo (from Cwith) seen at:
$*PROGRAM, lines $line,{$line + 1}
Please use 'bar' instead.
--------------------------------------------------------------------------------
Expand All @@ -145,9 +145,9 @@ TEXT
$line = $?LINE; D.new.foo;
#?rakudo todo 'NYI'
is Deprecation.report, qq:to/TEXT/.chop.subst(/\r/, '', :g), 'right deprecation for D.new.foo';
Saw 1 call to deprecated code during execution.
Saw 1 occurrence of deprecated code.
================================================================================
Method foo (from D) called at:
Method foo (from D) seen at:
$*PROGRAM, line $line
Please use something else instead.
--------------------------------------------------------------------------------
Expand All @@ -157,9 +157,9 @@ TEXT
Dwith.new;
#?rakudo todo 'NYI'
is Deprecation.report, qq:to/TEXT/.chop.subst(/\r/, '', :g), 'right deprecation Dwith.new.foo';
Saw 1 call to deprecated code during execution.
Saw 1 occurrence of deprecated code.
================================================================================
Method foo (from Dwith) called at:
Method foo (from Dwith) seen at:
$*PROGRAM, lines $line,{$line + 1}
Please use 'bar' instead.
--------------------------------------------------------------------------------
Expand All @@ -178,9 +178,9 @@ TEXT
is $E, 1, 'was "E.new.foo" really called';
#?rakudo todo 'NYI'
is Deprecation.report, qq:to/TEXT/.chop.subst(/\r/, '', :g), 'right deprecation for E.new.foo';
Saw 1 call to deprecated code during execution.
Saw 1 occurrence of deprecated code.
================================================================================
Method foo (from E) called at:
Method foo (from E) seen at:
$*PROGRAM, line $line
Please use something else instead.
--------------------------------------------------------------------------------
Expand All @@ -191,9 +191,9 @@ TEXT
is $Ewith, 2, 'was "Ewith.new.foo" really called';
#?rakudo todo 'NYI'
is Deprecation.report, qq:to/TEXT/.chop.subst(/\r/, '', :g), 'right deprecation Ewith.new.foo';
Saw 1 call to deprecated code during execution.
Saw 1 occurrence of deprecated code.
================================================================================
Method foo (from Ewith) called at:
Method foo (from Ewith) seen at:
$*PROGRAM, lines $line,{$line + 1}
Please use 'bar' instead.
--------------------------------------------------------------------------------
Expand All @@ -204,7 +204,7 @@ TEXT
{
sub rt120908 is DEPRECATED((sub { "a" })()) { };
rt120908();
ok Deprecation.report ~~ m/'Sub rt120908 (from GLOBAL) called at:'/,
ok Deprecation.report ~~ m/'Sub rt120908 (from GLOBAL) seen at:'/,
'right deprecation for rt120908()';
}
Expand Down

0 comments on commit f6e598f

Please sign in to comment.