#!perl -T

use strict;
use warnings;

use Test::More tests => 3;

use B::RecDeparse;

my $cr = eval { B::RecDeparse::compile(deparse => '-sCi0v1', level => 1) };
is(defined $cr, 1, 'compile() returns a defined thingy');
is(ref $cr, 'CODE', 'compile() returns a code reference');
is($@, '', 'compile() re-evaluated without dieing');