6 use Test::More tests => 3;
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');