Skip to content

Commit

Permalink
Browse files Browse the repository at this point in the history
Refudge a few evals for niecza
  • Loading branch information
sorear committed Mar 1, 2011
1 parent 73038b4 commit b8687da
Show file tree
Hide file tree
Showing 4 changed files with 8 additions and 0 deletions.
1 change: 1 addition & 0 deletions S02-lexical-conventions/unicode.t
Expand Up @@ -110,6 +110,7 @@ is((do { my $दूसरा = 2; sub टोटल ($x) { $x + 2 }; टोटल
# L<S02/Lexical Conventions/Perl can count Unicode line and paragraph separators>
#?rakudo: todo 'PS does not work to separate lines'
#?niecza skip 'PS does not work to separate lines'
eval_lives_ok "\{ 1 \} \x2029 \{ 1 \}", "Unicode 2029 can terminate lines";
# L<S02/Lexical Conventions/If a character is already used>
Expand Down
2 changes: 2 additions & 0 deletions S04-declarations/multiple.t
Expand Up @@ -9,6 +9,7 @@ plan 6;
eval_lives_ok 'my $x; my $x',
'it is legal to declare my $x twice in the same scope.';

#?niecza skip 'Not working'
eval_lives_ok 'state $x; state $x',
'it is legal to declare state $x twice in the same scope.';

Expand All @@ -27,6 +28,7 @@ eval_dies_ok 'sub foo {1; }; sub foo($x) {1; };',
eval_dies_ok 'only sub foo {1; }; sub foo($x) {1; };',
'multiple declarations need multi or proto';

#?niecza skip "MMD"
eval_lives_ok 'proto foo {1; }; sub foo {1; }; sub foo($x) {1; };',
'multiple declarations need multi or proto';

Expand Down
1 change: 1 addition & 0 deletions S04-statements/loop.t
Expand Up @@ -94,6 +94,7 @@ plan 13;
}

# RT #71466
#?niecza skip ':$!to broken'
eval_lives_ok('class A { has $!to; method x { loop { (:$!to); } } };', 'pair colon syntax in a loop refers to an attribute works');

# vim: ft=perl6
4 changes: 4 additions & 0 deletions S05-capture/subrule.t
Expand Up @@ -23,6 +23,7 @@ my regex once {<&abc>}
ok("abcabcabcabcd" ~~ m/<&once>/, 'Once match');
ok($/, 'Once matched');
is(~$/, "abc", 'Once matched');
#?niecza skip 'auto $0 confuses this'
ok(@($/) == 0, 'Once no array capture');
ok(%($/).keys == 0, 'Once no hash capture');

Expand All @@ -32,6 +33,7 @@ my regex rep {<&abc>**{4}}
ok("abcabcabcabcd" ~~ m/<&rep>/, 'Rep match');
ok($/, 'Rep matched');
is(~$/, "abcabcabcabc", 'Rep matched');
#?niecza skip 'auto $0 confuses this'
ok(@($/) == 0, 'Rep no array capture');
ok(%($/).keys == 0, 'Rep no hash capture');

Expand All @@ -44,6 +46,7 @@ is(~$/, "abc", 'Cap zero matched');
is(~$/<cap>, "abc", 'Cap captured');

is(~$/<cap><abc>, "abc", 'Cap abc captured');
#?niecza skip 'auto $0 confuses this'
ok(@($/) == 0, 'Cap no array capture');
ok(%($/).keys == 1, 'Cap hash capture');

Expand All @@ -57,6 +60,7 @@ is(~$/<repcap><abc>[0], "abc", 'Repcap abc zero captured');
is(~$/<repcap><abc>[1], "abc", 'Repcap abc one captured');
is(~$/<repcap><abc>[2], "abc", 'Repcap abc two captured');
is(~$/<repcap><abc>[3], "abc", 'Repcap abc three captured');
#?niecza skip 'auto $0 confuses this'
ok(@($/) == 0, 'Repcap no array capture');


Expand Down

0 comments on commit b8687da

Please sign in to comment.