Skip to content

Commit

Permalink
Browse files Browse the repository at this point in the history
Fix fudging for niecza.
  • Loading branch information
colomon committed Dec 19, 2011
1 parent 9872f1f commit 2fdbd0d
Showing 1 changed file with 4 additions and 2 deletions.
6 changes: 4 additions & 2 deletions S05-metasyntax/litvar.t
Expand Up @@ -44,24 +44,26 @@ ok('a' ~~ m/@var[0]/, 'Array 0');
ok('1' ~~ m/$href.{'a'}/, 'Hash ref dot A');
#?niecza todo
ok('1' ~~ m/$href{'a'}/, 'Hash ref A');
#?niecza todo
#?niecza skip 'Only $ and @ variables may be used in regexes for now'
ok('1' ~~ m/%var{'a'}/, 'Hash A');

#?niecza todo
ok('1' ~~ m/$href.<a>/, 'Hash ref dot A');
#?niecza todo
ok('1' ~~ m/$href<a>/, 'Hash ref A');
#?niecza todo
#?niecza skip 'Only $ and @ variables may be used in regexes for now'
ok('1' ~~ m/%var<a>/, 'Hash A');

ok(!( 'a' ~~ m/$aref[1]/ ), 'Array ref 1');
ok(!( 'a' ~~ m/$aref.[1]/ ), 'Array ref dot 1');
ok(!( 'a' ~~ m/@var[1]/ ), 'Array 1');
ok(!( '1' ~~ m/$href.{'b'}/ ), 'Hash ref dot B');
ok(!( '1' ~~ m/$href{'b'}/ ), 'Hash ref B');
#?niecza skip 'Only $ and @ variables may be used in regexes for now'
ok(!( '1' ~~ m/%var{'b'}/ ), 'Hash B');
ok(!( '1' ~~ m/$href.<b>/ ), 'Hash ref dot B');
ok(!( '1' ~~ m/$href<b>/ ), 'Hash ref B');
#?niecza skip 'Only $ and @ variables may be used in regexes for now'
ok(!( '1' ~~ m/%var<b>/ ), 'Hash B');

# REGEXES
Expand Down

0 comments on commit 2fdbd0d

Please sign in to comment.