Changeset 21987

Timestamp:

08/21/08 10:00:27 (3 months ago)

Author:

moritz

Message:

[t/spec] correct subscript in regex interpolation in litvar.t

Files:

• t/spec/S05-metasyntax/litvar.t (modified) (2 diffs)

t/spec/S05-metasyntax/litvar.t

@@ -13 +13 @@
 =end pod
 
-plan 29;
+plan 35;
 
 # L<S05/Variable (non-)interpolation/The default way in which the engine handles a scalar>
@@ -36 +36 @@
 ok('a' ~~ m/@var[0]/, 'Array 0');
 
-ok('1' ~~ m/$href.{a}/, 'Hash ref dot A');
-ok('1' ~~ m/$href{a}/, 'Hash ref A');
-ok('1' ~~ m/%var{a}/, 'Hash A');
+ok('1' ~~ m/$href.{'a'}/, 'Hash ref dot A');
+ok('1' ~~ m/$href{'a'}/, 'Hash ref A');
+ok('1' ~~ m/%var{'a'}/, 'Hash A');
+
+ok('1' ~~ m/$href.<a>/, 'Hash ref dot A');
+ok('1' ~~ m/$href<a>/, 'Hash ref A');
+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');
-ok(!( '1' ~~ m/%var{b}/ ), 'Hash B');
+ok(!( '1' ~~ m/$href.{'b'}/ ), 'Hash ref dot B');
+ok(!( '1' ~~ m/$href{'b'}/ ), 'Hash ref B');
+ok(!( '1' ~~ m/%var{'b'}/ ), 'Hash B');
+ok(!( '1' ~~ m/$href.<b>/ ), 'Hash ref dot B');
+ok(!( '1' ~~ m/$href<b>/ ), 'Hash ref B');
+ok(!( '1' ~~ m/%var<b>/ ), 'Hash B');
 
 # REGEXES