Skip to content

Commit

Permalink
Browse files Browse the repository at this point in the history
Unfudge passing tests.
  • Loading branch information
colomon committed Dec 19, 2011
1 parent 2fdbd0d commit 6b769eb
Showing 1 changed file with 0 additions and 6 deletions.
6 changes: 0 additions & 6 deletions S05-metasyntax/litvar.t
Expand Up @@ -70,7 +70,6 @@ ok(!( '1' ~~ m/%var<b>/ ), 'Hash B');
# However, if $var contains a Regex object, instead of attempting to convert it to a string, it is called as a subrule
# A simple test for this
my $rx = rx/foo/;
#?niecza todo
ok('foobar' ~~ /$rx bar/, 'regex object in a regex');
ok('quxbaz' !~~ /$rx baz/, 'nonmatching regex object in a regex');

Expand All @@ -79,18 +78,13 @@ ok('quxbaz' !~~ /$rx baz/, 'nonmatching regex object in a regex');
# L<S05/Variable (non-)interpolation/An interpolated array:>

#?pugs 3 todo 'feature'
#?niecza todo
ok("a" ~~ m/@var/, 'Simple array interpolation (a)');
#?niecza todo
ok("b" ~~ m/@var/, 'Simple array interpolation (b)');
#?niecza todo
ok("c" ~~ m/@var/, 'Simple array interpolation (c)');
ok(!( "d" ~~ m/@var/ ), 'Simple array interpolation (d)');
#?pugs 2 todo 'feature'
#?niecza todo
ok("ddddaddddd" ~~ m/@var/, 'Nested array interpolation (a)');

#?niecza todo
ok("abca" ~~ m/^@var+$/, 'Multiple array matching');
ok(!( "abcad" ~~ m/^@var+$/ ), 'Multiple array non-matching');

Expand Down

0 comments on commit 6b769eb

Please sign in to comment.