Skip to content

Commit

Permalink
Browse files Browse the repository at this point in the history
case-insensitive comparison of $*OS
the test assumes the p5 insanity of "linux" vs. "MSWin32", but the specs
are silent on the exact case of the return value. (And on the exact return
value itself, for that matter).
  • Loading branch information
moritz committed Jun 30, 2013
1 parent de39835 commit 99263cb
Showing 1 changed file with 3 additions and 3 deletions.
6 changes: 3 additions & 3 deletions S02-magicals/config.t
Expand Up @@ -21,12 +21,12 @@ ok $?OS, "We were compiled in '$?OS'";
# $*OS is the OS we are running
ok $*OS, "We are running under '$*OS'";

my $osnames = any <darwin linux freebsd MSWin32 mingw msys cygwin browser solaris haiku openbsd>;
my $osnames = lc any <darwin linux freebsd MSWin32 mingw msys cygwin browser solaris haiku openbsd>;

#?rakudo skip 'unimpl $?OS'
ok $?OS eq $osnames, "we know of the OS we were compiled in";
ok $?OS.lc eq $osnames, "we know of the OS we were compiled in";

ok $*OS eq $osnames, "we know of the OS we are running under";
ok $*OS.lc eq $osnames, "we know of the OS we are running under";

# like $*OS, this is tested in perlver.t but that test is not included
ok $*OSVER, '$*OSVER is present';
Expand Down

0 comments on commit 99263cb

Please sign in to comment.