X-Git-Url: http://git.vpit.fr/?p=perl%2Fmodules%2FVariable-Magic.git;a=blobdiff_plain;f=t%2F18-opinfo.t;fp=t%2F18-opinfo.t;h=00133452d76d8acdb0ca8adcb2da5b833aaee0e3;hp=0147a6c612715f80549ab44761a83a89cd55c99a;hb=cdc5231a1c56c4eb1d731e59eb5b525477e538b6;hpb=f5cc0e8060f5255eb848d02f5d58d2f9eb96dfee

diff --git a/t/18-opinfo.t b/t/18-opinfo.t
index 0147a6c..0013345 100644
--- a/t/18-opinfo.t
+++ b/t/18-opinfo.t
@@ -39,13 +39,15 @@ our @o;
 
 my @tests = (
  [ 'len', '@c',      'my @c',    'my $x = @c',     [ 'padav',   'B::OP'     ] ],
- [ 'get', '$c[0]',   'my @c',    'my $x = $c[0]',  [ $aelem,    'B::OP'     ] ],
- [ 'get', '$o[0]',   'local @o', 'my $x = $o[0]',  [ $aelemf,   $aelemf_op  ] ],
+ [ 'get', '$c[0]',   'my @c',    'my $x = $c[0]; 1',
+                                                   [ $aelem,    'B::OP'     ] ],
+ [ 'get', '$o[0]',   'local @o', 'my $x = $o[0]; 1',
+                                                   [ $aelemf,   $aelemf_op  ] ],
  [ 'get', '$x->{a}', 'my $x',    'my $y = $x->{a}{b}',
                                                    [ $deref,    $deref_op   ] ],
  [ 'get', '$c',    'my $c = 1',  '++$c',           [ 'preinc',  'B::UNOP'   ] ],
  [ 'get', '$c',    'my $c = 1',  '$c ** 2',        [ 'pow',     'B::BINOP'  ] ],
- [ 'get', '$c',    'my $c = 1',  'my $x = $c',     [ $assign_op, $assign_op_cl ] ],
+ [ 'get', '$c',    'my $c = 1',  'my $x = $c; 1',  [ $assign_op, $assign_op_cl ] ],
  [ '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'   ] ],