[S02-magicals/progname] Make both tests equally forgiving

Raku · Nov 1, 2011 · f926610 · f926610
1 parent f8ffa96
commit f926610
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/S02-magicals/progname.t b/S02-magicals/progname.t
@@ -11,7 +11,7 @@ if $*OS eq "browser" {
 }
 
 #?rakudo skip 'No PROCESS yet'
-ok(PROCESS::<$PROGRAM_NAME> eq ('t/spec/S02-magicals/progname.t' | 't\\spec\\S02-magicals\\progname.t'), "progname var matches test file path");
+ok(PROCESS::<$PROGRAM_NAME> ~~ / t['/'|'\\']spec['/'|'\\']S02'-'magicals['/'|'\\']progname'.'\w+$/, "progname var matches test file path");
 ok($*PROGRAM_NAME ~~ / t['/'|'\\']spec['/'|'\\']S02'-'magicals['/'|'\\']progname'.'\w+$/, "progname var accessible as context var");
 
 # NOTE: