Add test for RT #89704

Raku · Nov 21, 2012 · 5828eb7 · 5828eb7
1 parent be54170
commit 5828eb7
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/S02-magicals/progname.t b/S02-magicals/progname.t
@@ -2,7 +2,7 @@ use v6;
 
 use Test;
 
-plan 2;
+plan 3;
 
 # TODO: this should be $?OS, but that's not yet supported under Rakudo
 if $*OS eq "browser" {
@@ -18,4 +18,6 @@ ok($*PROGRAM_NAME ~~ / t['/'|'\\']spec['/'|'\\']S02'-'magicals['/'|'\\']progname
 # paths until the FileSpec hack is working - Stevan
 # changed junction hack in test 2 to regex for Rakudo fudged filename - mberends
 
+lives_ok { $*PROGRAM_NAME = "coldfusion" }, '$*PROGRAM_NAME is assignable'
+
 # vim: ft=perl6