diff options
| author | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2006-10-03 14:29:48 +0000 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2006-10-03 14:29:48 +0000 |
| commit | 7a92afd129dd65597db2c33c3075bd7a57c99c3b (patch) | |
| tree | 8a8cdb5ca4a344909efa2da5b893c2f4adb4d8c3 /ext | |
| parent | 77e3170267e9f1a1ea8e24e3a4ef2aefe3c6bd45 (diff) | |
| download | perl-7a92afd129dd65597db2c33c3075bd7a57c99c3b.tar.gz | |
Un-TODO some B tests
p4raw-id: //depot/perl@28925
Diffstat (limited to 'ext')
| -rw-r--r-- | ext/B/t/optree_constants.t | 11 |
1 files changed, 5 insertions, 6 deletions
diff --git a/ext/B/t/optree_constants.t b/ext/B/t/optree_constants.t index d927f66ef2..c7f4cd1d0f 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', ], |