Skip to content
Browse files

[t] and [t/spec]: small improvements, mostly found by STD.pm

git-svn-id: http://svn.pugscode.org/pugs@25732 c213334d-75ef-0310-aa23-eaa082d1ae64
  • Loading branch information...
1 parent 34f391e commit a2ad386e345fc5dc03103b5d7acc62390064b10f moritz committed Mar 7, 2009
Showing with 9 additions and 7 deletions.
  1. +4 −2 S02-builtin_data_types/whatever.t
  2. +4 −4 S02-magicals/pid.t
  3. +1 −1 S03-operators/feed.t
View
6 S02-builtin_data_types/whatever.t
@@ -3,8 +3,10 @@ use Test;
plan 4;
-my $x = *;
-ok($x.isa(Whatever), 'can assign * to a variable and isa works');
+{
+ my $x = *;
+ ok($x.isa(Whatever), 'can assign * to a variable and isa works');
+}
my $x = *-1;
lives_ok { $x.WHAT }, '(*-1).WHAT lives';
View
8 S02-magicals/pid.t
@@ -12,10 +12,10 @@ L<A05/"RFC 332: Regex: Make /\$/ equivalent to /\z/ under the '/s' modifier" /Th
plan 1;
-if $*OS eq "browser" {
- skip_rest "Programs running in browsers don't have access to \$*PID.";
- exit;
-}
+#?pugs emit if $*OS eq "browser" {
+#?pugs emit skip_rest "Programs running in browsers don't have access to \$*PID.";
+#?pugs emit exit;
+#?pugs emit }
my ($pugs,$redir,$squo) = ($*EXECUTABLE_NAME, ">", "'");
View
2 S03-operators/feed.t
@@ -111,7 +111,7 @@ plan 23;
my @numbers = do {@odds ==>> @even};
is(~@numbers, ~(@even, @odds), 'basic ==>> test');
- my @numbers = do {@odds <<== @even};
+ @numbers = do {@odds <<== @even};
is(~@numbers, ~(@odds, @even), 'basic <<== test');
}

0 comments on commit a2ad386

Please sign in to comment.
Something went wrong with that request. Please try again.