Skip to content

Commit

Permalink
Browse files Browse the repository at this point in the history
niecza unfudges
  • Loading branch information
moritz committed Feb 23, 2011
1 parent 58c1a6a commit b6cb10e
Show file tree
Hide file tree
Showing 7 changed files with 0 additions and 10 deletions.
1 change: 0 additions & 1 deletion S02-builtin_data_types/bool.t
Expand Up @@ -63,7 +63,6 @@ is(+Bool::False, '0', 'False numifies to 0');

# Arithmetic operations
my $bool = Bool::False;
#?niecza 4 skip "Bool.succ and Bool.pred"
is(++$bool, Bool::True, 'Increment of Bool::False produces Bool::True');
is(++$bool, Bool::True, 'Increment of Bool::True still produces Bool::True');
is(--$bool, Bool::False, 'Decrement of Bool::True produces Bool::False');
Expand Down
1 change: 0 additions & 1 deletion S02-names_and_variables/contextual.t
Expand Up @@ -39,7 +39,6 @@ my $o = CT.new;
is CT.foo_priv, 'one', 'back (private class method)';
}

#?niecza skip 'notdef'
ok foo().notdef, 'contextual $*VAR is undefined';

{
Expand Down
1 change: 0 additions & 1 deletion S04-statements/for_with_only_one_item.t
Expand Up @@ -76,7 +76,6 @@ plan 9;
}

# RT #73400
#?niecza skip '\\'
{
my $capture = \[1,2,3];
my $count = 0;
Expand Down
2 changes: 0 additions & 2 deletions S04-statements/if.t
Expand Up @@ -108,7 +108,6 @@ if (Mu) { flunk('if (Mu) {} failed'); } else { pass('if (Mu) {} works'); }
is($flag, 2, "'my' variable within 'if' conditional");
}

#?niecza skip "eval_dies_ok unimplemented"
{
eval_dies_ok('if 1; 2', '"if" requires a block');
}
Expand Down Expand Up @@ -163,7 +162,6 @@ if (Mu) { flunk('if (Mu) {} failed'); } else { pass('if (Mu) {} works'); }
}


#?niecza skip "eval_dies unimplemented"
# L<S04/Statement parsing/keywords require whitespace>
eval_dies_ok('if($x > 1) {}','keyword needs at least one whitespace after it');

Expand Down
1 change: 0 additions & 1 deletion S04-statements/next.t
Expand Up @@ -146,7 +146,6 @@ Check that C<next> works on the correct loop/block
is($i, 2, '$i++ executed only twice, because next ')
}

#?niecza skip '%'
{
my $i = 0;
my $j;
Expand Down
2 changes: 0 additions & 2 deletions S04-statements/no-implicit-block.t
Expand Up @@ -15,7 +15,6 @@ plan 12;
is $y, 5, '$y assigned in if\'s body';
}

#?niecza skip 'unless'
{
my $y;
unless (my $x = 2) != 2 {
Expand Down Expand Up @@ -54,7 +53,6 @@ plan 12;
is $y, 5, '$y assigned in for\'s body';
}

#?niecza skip 'loop'
{
my $y;
loop (my $x = 2; $x < 10; $x++) {
Expand Down
2 changes: 0 additions & 2 deletions S32-str/bool.t
Expand Up @@ -6,15 +6,13 @@ nok ?'', "?'' is false";
isa_ok ?'', Bool, "?'' is Bool";
ok ?'hello', "?'hello' is true";
isa_ok ?'hello', Bool, "?'hello' is Bool";
#?niecza skip '"0" should be False (issue 38)'
nok ?'0', "?'0' is false";
isa_ok ?'0', Bool, "?'0' is Bool";

nok ''.Bool, "''.Bool is false";
isa_ok ''.Bool, Bool, "''.Bool is Bool";
ok 'hello'.Bool, "'hello'.Bool is true";
isa_ok 'hello'.Bool, Bool, "'hello'.Bool is Bool";
#?niecza skip '"0" should be False (issue 38)'
nok '0'.Bool, "'0'.Bool is false";
isa_ok '0'.Bool, Bool, "'0'.Bool is Bool";

Expand Down

0 comments on commit b6cb10e

Please sign in to comment.