From: Vincent Pit <vince@profvince.com>
Date: Sat, 24 Apr 2010 21:01:49 +0000 (+0200)
Subject: Improve op_info coverage
X-Git-Tag: v0.42~4
X-Git-Url: http://git.vpit.fr/?a=commitdiff_plain;h=2975abf490c4cfe24e0230f1b050e4d95d3d9b25;p=perl%2Fmodules%2FVariable-Magic.git

Improve op_info coverage
---

diff --git a/t/18-opinfo.t b/t/18-opinfo.t
index c03c3de..c1d3961 100644
--- a/t/18-opinfo.t
+++ b/t/18-opinfo.t
@@ -3,7 +3,7 @@
 use strict;
 use warnings;
 
-use Test::More tests => 14 * (3 + 4) + 5;
+use Test::More tests => 17 * (3 + 4) + 5;
 
 use Config qw/%Config/;
 
@@ -24,6 +24,10 @@ my @tests = (
  [ 'get', '$c',    'my $c = 1', '$c ** 2',         [ 'pow',     'B::BINOP'  ] ],
  [ 'get', '$c',    'my $c = 1', 'my $x = $c',      [ 'sassign', 'B::BINOP'  ] ],
  [ 'get', '$c',    'my $c = 1', '1 if $c',         [ 'and',     'B::LOGOP'  ] ],
+ [ 'get', '$c',    'my $c = []','ref $c',          [ 'ref',     'B::UNOP'   ] ],
+ [ 'get', '$c',    'my $c = $0','-f $c',           [ 'ftfile',  'B::UNOP'   ] ],
+ [ 'get', '$c',    'my $c = "Z"',
+                   'my $i = 1; Z:goto $c if $i--', [ 'goto',    'B::UNOP'   ] ],
  [ 'set', '$c',    'my $c = 1', 'bless \$c, "main"',
                                                    [ 'bless',   'B::LISTOP' ] ],
  [ 'get', '$c',    'my $c = ""','$c =~ /x/',       [ 'match',   'B::PMOP'   ] ],