# $Id $
# Test::Plan::import() tests
use strict;
use warnings FATAL => qw(all);
# don't inherit Test::More::plan()
use Test::More tests => 11,
import => ['!plan'];
#---------------------------------------------------------------------
# compilation
#---------------------------------------------------------------------
our $class = qw(Test::Plan);
use_ok ($class);
#---------------------------------------------------------------------
# import()
#---------------------------------------------------------------------
$class->import;
#---------------------------------------------------------------------
# make sure that all our functions are properly exported
#---------------------------------------------------------------------
foreach my $function (qw(plan need need_module need_min_perl_version
need_min_module_version need_perl_iolayers
need_threads need_perl under_construction
skip_reason)
)
{
no strict qw(refs);
no warnings qw(uninitialized);
my $rc = eval { &{$function}(); 1 };
ok ($rc,
"was able to call function '$function' directly");
}