This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Un-TODO some B tests
authorRafael Garcia-Suarez <rgarciasuarez@gmail.com>
Tue, 3 Oct 2006 14:29:48 +0000 (14:29 +0000)
committerRafael Garcia-Suarez <rgarciasuarez@gmail.com>
Tue, 3 Oct 2006 14:29:48 +0000 (14:29 +0000)
p4raw-id: //depot/perl@28925

ext/B/t/optree_constants.t

index d927f66..c7f4cd1 100644 (file)
@@ -58,12 +58,11 @@ my $want = {        # expected types, how value renders in-line, todos (maybe)
     myhref     => [ 'RV', '\\\\HASH'],
     myundef    => [ 'NULL', ],
     pi         => [ 'NV', pi ],
     myhref     => [ 'RV', '\\\\HASH'],
     myundef    => [ 'NULL', ],
     pi         => [ 'NV', pi ],
-    # these have todos, since they render as a bare backslash
-    myaref     => [ 'RV', '\\\\', ' - should render as \\ARRAY' ],
-    myglob     => [ 'RV', '\\\\', ' - should render as \\GV' ],
-    myrex      => [ 'RV', '\\\\', ' - should render as ??' ],
-    mysub      => [ 'RV', '\\\\', ' - should render as \\CV' ],
-    myunsub    => [ 'RV', '\\\\', ' - should render as \\CV' ],
+    myaref     => [ 'RV', '\\\\' ],
+    myglob     => [ 'RV', '\\\\' ],
+    myrex      => [ 'RV', '\\\\' ],
+    mysub      => [ 'RV', '\\\\' ],
+    myunsub    => [ 'RV', '\\\\' ],
     # these are not inlined, at least not per BC::Concise
     #myyes     => [ 'RV', ],
     #myno      => [ 'RV', ],
     # these are not inlined, at least not per BC::Concise
     #myyes     => [ 'RV', ],
     #myno      => [ 'RV', ],