Permalink
Browse files

Add test for RT #89704

  • Loading branch information...
1 parent be54170 commit 5828eb791a8c32980d54b49e3603843edf0b0c99 @coke coke committed Nov 14, 2012
Showing with 3 additions and 1 deletion.
  1. +3 −1 S02-magicals/progname.t
View
@@ -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

0 comments on commit 5828eb7

Please sign in to comment.