20-compile.t

   1 #!perl -T
   2
   3 use strict;
   4 use warnings;
   5
   6 use Test::More tests => 3;
   7
   8 use B::RecDeparse;
   9
  10 my $cr = eval { B::RecDeparse::compile(deparse => '-sCi0v1', level => 1) };
  11 is(defined $cr, 1, 'compile() returns a defined thingy');
  12 is(ref $cr, 'CODE', 'compile() returns a code reference');
  13 is($@, '', 'compile() re-evaluated without dieing');