From: Rafael Garcia-Suarez <rgarciasuarez@gmail.com>
Date: Tue, 3 Oct 2006 14:29:48 +0000 (+0000)
Subject: Un-TODO some B tests
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=7a92afd129dd65597db2c33c3075bd7a57c99c3b;p=p5sagit%2Fp5-mst-13.2.git

Un-TODO some B tests

p4raw-id: //depot/perl@28925
---

diff --git a/ext/B/t/optree_constants.t b/ext/B/t/optree_constants.t
index d927f66..c7f4cd1 100644
--- a/ext/B/t/optree_constants.t
+++ b/ext/B/t/optree_constants.t
@@ -58,12 +58,11 @@ my $want = {	# expected types, how value renders in-line, todos (maybe)
     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', ],