t/42-deparse.t

   1 #!perl -T
   2
   3 use strict;
   4 use warnings;
   5
   6 use Test::More;
   7
   8 use lib 't/lib';
   9 use VPIT::TestHelpers;
  10
  11 load_or_skip_all('B::Deparse', undef, [ ]);
  12
  13 plan tests => 2;
  14
  15 my $bd = B::Deparse->new;
  16
  17 {
  18  no autovivification qw<fetch strict>;
  19
  20  sub blech { my $key = $_[0]->{key} }
  21 }
  22
  23 {
  24  my $undef;
  25  eval 'blech($undef)';
  26  like $@, qr/Reference vivification forbidden/, 'Original blech() works';
  27 }
  28
  29 {
  30  my $code = $bd->coderef2text(\&blech);
  31  my $undef;
  32  eval "$code; blech(\$undef)";
  33  like $@, qr/Reference vivification forbidden/, 'Deparsed blech() works';
  34 }