Add test for $*OS deprecation

Raku · May 11, 2014 · 5e70780 · 5e70780
1 parent 56b0c83
commit 5e70780
Showing 1 changed file with 18 additions and 1 deletion.
diff --git a/S02-types/deprecations.t b/S02-types/deprecations.t
@@ -2,7 +2,7 @@ use v6;
 
 use Test;
 
-plan 29;
+plan 30;
 
 # currently deprecated core features
 
@@ -437,4 +437,21 @@ Please use 'EVAL' instead.
 TEXT
 } #2
 
+# $*OS
+#?niecza skip 'is DEPRECATED NYI'
+#?pugs   skip 'is DEPRECATED NYI'
+#?rakudo.jvm skip 'tracebacks in deprecations'
+{
+    $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.
+================================================================================
+\$*OS called at:
+  $*PROGRAM_NAME, lines $line,{$line + 1}
+Please use \$*DISTRO.OS instead.
+--------------------------------------------------------------------------------
+TEXT
+} #1
+
 # vim:set ft=perl6