remove references to "browser" os.

it's from an old version of pugs++
Raku · Nov 13, 2013 · 93db1ca · 93db1ca
1 parent a2f7811
commit 93db1ca
Show file tree

Hide file tree

Showing 23 changed files with 1 addition and 138 deletions.
diff --git 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 <darwin linux freebsd MSWin32 mingw msys cygwin browser solaris haiku openbsd>;
+my $osnames = lc any <darwin linux freebsd MSWin32 mingw msys cygwin solaris haiku openbsd>;
 
 #?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
@@ -8,11 +8,6 @@ use Test::Util;
 # L<S28/Named variables>
 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
@@ -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
@@ -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
@@ -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 <MSWin32 mingw msys cygwin> {
     skip_rest "file tests not fully available on win32";
     exit;

diff --git 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
@@ -12,11 +12,6 @@ plan 36;
 # XXX rewinddir is not defined rigth now, should it be IO::Dir::rewind"?
 # old: L<S16/"Filehandles, files, and directories"/"IO::Dir::open">
 
-if ($*OS eq any <browser>) {
-    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
@@ -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
@@ -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<S32::IO/IO::FSNode/=item IO ~~ :X>
 # L<S03/Changes to Perl 5 operators/The filetest operators are gone.>
 # old: L<S16/Filehandles, files, and directories/A file test, where X is one of the letters listed below.>

diff --git 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
@@ -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
@@ -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
@@ -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
@@ -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
@@ -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 <MSWin32 mingw msys cygwin>) ?? "Timely closing of file handles does not yet work" !! False;

diff --git 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
@@ -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
@@ -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
@@ -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
@@ -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
@@ -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
@@ -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
@@ -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');