diff --git a/S02-magicals/config.t b/S02-magicals/config.t index bd12ef3e45..c911cd0767 100644 --- a/S02-magicals/config.t +++ b/S02-magicals/config.t @@ -21,7 +21,7 @@ ok $?OS, "We were compiled in '$?OS'"; # $*OS is the OS we are running ok $*OS, "We are running under '$*OS'"; -my $osnames = lc any ; +my $osnames = lc any ; #?rakudo skip 'unimpl $?OS' ok $?OS.lc eq $osnames, "we know of the OS we were compiled in"; diff --git a/S02-magicals/env.t b/S02-magicals/env.t index 790ba0ce6a..0ead50d6c1 100644 --- a/S02-magicals/env.t +++ b/S02-magicals/env.t @@ -8,11 +8,6 @@ use Test::Util; # L plan 16; -if $*OS eq "browser" { - skip_rest "Programs running in browsers don't have access to regular IO."; - exit; -} - =begin desc = DESCRIPTION diff --git a/S02-magicals/progname.t b/S02-magicals/progname.t index a0f3affa64..d34d8a004c 100644 --- a/S02-magicals/progname.t +++ b/S02-magicals/progname.t @@ -4,12 +4,6 @@ use Test; plan 4; -# TODO: this should be $?OS, but that's not yet supported under Rakudo -if $*OS eq "browser" { - skip_rest "Programs running in browsers don't have access to regular IO."; - exit; -} - 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"); diff --git a/S02-names/caller.t b/S02-names/caller.t index 922d7e9bef..481a83065e 100644 --- a/S02-names/caller.t +++ b/S02-names/caller.t @@ -146,36 +146,4 @@ plan 15; is $foo, 24, 'rebinding $CALLER:: variables works (3)'; } #2 -=begin pod - -Larry ruled that as erroneous. - -15:13 < iblech> autrijus: :) BTW, WRT lex hoisting: sub foo { $CALLER::a }; { foo(); my $a -= 3; foo() } -15:13 < autrijus> iblech: larry ruled it as erroneous. -15:13 < autrijus> i.e. foo()'s behaviour is undefined. -15:14 < iblech> ok then :) -15:14 < autrijus> it's essential we do that because -15:14 < autrijus> foo($a, my $a) -15:14 < autrijus> is legal -15:14 < autrijus> and will be simply hazadrous to implement either way. -15:14 < autrijus> s/implement/mandate/ - -{ - if $*OS eq "browser" { # test works under PIL2JS :) - my $sub = sub { $CALLER::a }; - - # No declaration of $a yet. - dies_ok { $sub() }, '$CALLER:: dies when accessing not yet declared vars'; - - my $a = 3; - is $sub(), 3, '$CALLER:: works now (accessing a declared var)'; - } else { - flunk "Test loops infinitely"; - flunk "Test loops infinitely"; - } -} - -=end pod - # vim: ft=perl6 diff --git a/S16-filehandles/chmod.t b/S16-filehandles/chmod.t index 9c69675896..0c0f3f219d 100644 --- a/S16-filehandles/chmod.t +++ b/S16-filehandles/chmod.t @@ -28,11 +28,6 @@ We really need the stat() function in order to test this. plan 19; -if $*OS eq "browser" { - skip_rest "Programs running in browsers don't have access to regular IO."; - exit; -} - if $*OS eq any { skip_rest "file tests not fully available on win32"; exit; diff --git a/S16-filehandles/connect.t b/S16-filehandles/connect.t index 1fb04d5500..373f12840e 100644 --- a/S16-filehandles/connect.t +++ b/S16-filehandles/connect.t @@ -15,11 +15,6 @@ Tests for IO connect() builtin plan 4; -if $*OS eq "browser" { - skip_rest "Programs running in browsers don't have access to regular IO."; - exit; -} - my $skip_var = 'PERL_TESTS_ALLOW_NETWORK'; unless %*ENV{$skip_var} { skip_rest "Won't test &connect as environment variable \"$skip_var\" is not true."; diff --git a/S16-filehandles/dir.t b/S16-filehandles/dir.t index 762d53e60b..179086d2f1 100644 --- a/S16-filehandles/dir.t +++ b/S16-filehandles/dir.t @@ -12,11 +12,6 @@ plan 36; # XXX rewinddir is not defined rigth now, should it be IO::Dir::rewind"? # old: L -if ($*OS eq any ) { - skip_rest "not supported on this platform"; - exit; -} - =begin pod opendir/readdir support diff --git a/S16-filehandles/filestat.t b/S16-filehandles/filestat.t index b20740c67b..8550fa51a3 100644 --- a/S16-filehandles/filestat.t +++ b/S16-filehandles/filestat.t @@ -12,11 +12,6 @@ This test tests various file stat methods. plan 13; -if $*OS eq "browser" { - skip_rest "Programs running in browsers don't have access to regular IO."; - exit; -} - # time stat tests (modify/change/access) { my $before_creation = time - 1; diff --git a/S16-filehandles/filetest.t b/S16-filehandles/filetest.t index 1832ff0d10..c1429c03e1 100644 --- a/S16-filehandles/filetest.t +++ b/S16-filehandles/filetest.t @@ -12,11 +12,6 @@ This test tests the various filetest operators. plan 41; -if $*OS eq "browser" { - skip_rest "Programs running in browsers don't have access to regular IO."; - exit; -} - # L # L # old: L diff --git a/S16-filehandles/io.t b/S16-filehandles/io.t index 06b530cd0f..32a79e8761 100644 --- a/S16-filehandles/io.t +++ b/S16-filehandles/io.t @@ -15,12 +15,6 @@ I/O tests plan 84; -#?pugs emit if $*OS eq "browser" { -#?pugs emit skip_rest "Programs running in browsers don't have access to regular IO."; -#?pugs emit exit; -#?pugs emit } - - sub nonce () { return ".{$*PID}." ~ (1..1000).pick() } my $filename = 'tempfile_filehandles_io' ~ nonce(); diff --git a/S16-filehandles/io_in_for_loops.t b/S16-filehandles/io_in_for_loops.t index 160d2bf051..d60227b93d 100644 --- a/S16-filehandles/io_in_for_loops.t +++ b/S16-filehandles/io_in_for_loops.t @@ -7,11 +7,6 @@ use Test; plan 29; -if $*OS eq "browser" { - skip_rest "Programs running in browsers don't have access to regular IO."; - exit; -} - my $filename = 'tempfile_io_in_for_loop'; { # write the file first diff --git a/S16-filehandles/io_in_while_loops.t b/S16-filehandles/io_in_while_loops.t index 20a4bfa6f1..874886f804 100644 --- a/S16-filehandles/io_in_while_loops.t +++ b/S16-filehandles/io_in_while_loops.t @@ -6,12 +6,6 @@ use Test; plan 13; -if $*OS eq "browser" { - skip_rest "Programs running in browsers don't have access to regular IO."; - exit; -} - - my $filename = 'tempfile_io_in_while_loop'; { # write the file first diff --git a/S16-filehandles/mkdir_rmdir.t b/S16-filehandles/mkdir_rmdir.t index ac2936cc77..22c09c18de 100644 --- a/S16-filehandles/mkdir_rmdir.t +++ b/S16-filehandles/mkdir_rmdir.t @@ -2,11 +2,6 @@ use v6; use Test; plan 14; -if $*OS eq "browser" { - skip_rest "Programs running in browsers don't have access to regular IO."; - exit; -} - my $root = "mkdir-t-testfile-" ~ 1000000.rand.floor; diag $root; diff --git a/S16-filehandles/open.t b/S16-filehandles/open.t index 8c24f9fe3a..4f3cb13e03 100644 --- a/S16-filehandles/open.t +++ b/S16-filehandles/open.t @@ -11,12 +11,6 @@ Some edge and error cases for open() =end pod - -if $*OS eq "browser" { - skip_rest "Programs running in browsers don't have access to regular IO."; - exit; -} - # deal with non-existent files { skip("open('nonexisting') => undefined is waiting on 'use fatal'", 1); diff --git a/S16-filehandles/unlink.t b/S16-filehandles/unlink.t index 009967394b..1f65b6e538 100644 --- a/S16-filehandles/unlink.t +++ b/S16-filehandles/unlink.t @@ -7,11 +7,6 @@ plan 6; sub nonce() { "unlink-t-testfile-" ~ 1000.rand } -if $*OS eq "browser" { - skip_rest "Programs running in browsers don't have access to regular IO."; - exit; -} - my $fn = "unlink-test-file" ~ nonce; my $iswin32 = ?($*OS eq any ) ?? "Timely closing of file handles does not yet work" !! False; diff --git a/S16-io/getc.t b/S16-io/getc.t index 7f04169521..c0a8ef436c 100644 --- a/S16-io/getc.t +++ b/S16-io/getc.t @@ -6,11 +6,6 @@ plan 1; sub nonce () { return (".{$*PID}." ~ 1000.rand.Int) } -if $*OS eq "browser" { - skip_rest "Programs running in browsers don't have access to regular IO."; - exit; -} - my $tmpfile = "temp-test" ~ nonce(); { my $fh = open($tmpfile, :w) or die "Couldn't open \"$tmpfile\" for writing: $!\n"; diff --git a/S16-unfiled/getpeername.t b/S16-unfiled/getpeername.t index eadb1ef1b6..8b5b2b6eb5 100644 --- a/S16-unfiled/getpeername.t +++ b/S16-unfiled/getpeername.t @@ -12,11 +12,6 @@ IO.getpeername test plan 1; -if $*OS eq "browser" { - skip_rest "Programs running in browsers don't have access to regular IO."; - exit; -} - my $sock = connect('google.com', 80); ok $sock.getpeername.defined, "IO.getpeer works"; diff --git a/S19-command-line-options/01-dash-uppercase-i.t b/S19-command-line-options/01-dash-uppercase-i.t index c43192e95a..0fa7de24c0 100644 --- a/S19-command-line-options/01-dash-uppercase-i.t +++ b/S19-command-line-options/01-dash-uppercase-i.t @@ -35,10 +35,6 @@ my @tests = ( ); plan @tests*2; -if $*OS eq "browser" { - skip_rest "Programs running in browsers don't have access to regular IO."; - exit; -} diag "Running under $*OS"; diff --git a/S19-command-line-options/01-multiple-e.t b/S19-command-line-options/01-multiple-e.t index 2dfed46d17..e3f39b5c7e 100644 --- a/S19-command-line-options/01-multiple-e.t +++ b/S19-command-line-options/01-multiple-e.t @@ -23,10 +23,6 @@ my @examples = ( ); plan +@examples +1; -if $*OS eq "browser" { - skip_rest "Programs running in browsers don't have access to regular IO."; - exit; -} diag "Running under $*OS"; diff --git a/S19-command-line-options/02-dash-n.t b/S19-command-line-options/02-dash-n.t index 2b507dab95..63c9ba96f5 100644 --- a/S19-command-line-options/02-dash-n.t +++ b/S19-command-line-options/02-dash-n.t @@ -24,10 +24,6 @@ my @examples = ( ); plan +@examples; -if $*OS eq "browser" { - skip_rest "Programs running in browsers don't have access to regular IO."; - exit; -} diag "Running under $*OS"; diff --git a/S19-command-line-options/03-dash-p.t b/S19-command-line-options/03-dash-p.t index d3418f6219..389e4ffa4a 100644 --- a/S19-command-line-options/03-dash-p.t +++ b/S19-command-line-options/03-dash-p.t @@ -28,10 +28,6 @@ my @examples = ( ); plan +@examples; -if $*OS eq "browser" { - skip_rest "Programs running in browsers don't have access to regular IO."; - exit; -} diag "Running under $*OS"; diff --git a/S29-context/evalfile.t b/S29-context/evalfile.t index e875247561..ae5ddd87f0 100644 --- a/S29-context/evalfile.t +++ b/S29-context/evalfile.t @@ -7,11 +7,6 @@ plan 1; sub nonce () { return (".{$*PID}." ~ 1000.rand.Int) } -if $*OS eq "browser" { - skip_rest "Programs running in browsers don't have access to regular IO."; - exit; -} - my $tmpfile = "temp-evalfile" ~ nonce(); { my $fh = open("$tmpfile", :w); diff --git a/S29-os/system.t b/S29-os/system.t index d29bafb42f..00e865bc1c 100644 --- a/S29-os/system.t +++ b/S29-os/system.t @@ -6,11 +6,6 @@ use Test; plan 5; -if $*OS eq "browser" { - skip_rest "Programs running in browsers don't have access to regular IO."; - exit; -} - my $res; $res = run($*EXECUTABLE_NAME,'-e1');