use strict;
local $^W = 1;
use Test::More;
# keep stdout and stderr in order on Win32
BEGIN {
$|=1;
my $oldfh = select(STDERR); $| = 1; select($oldfh);
}
#--------------------------------------------------------------------------#
# option() argument cases
#--------------------------------------------------------------------------#
my @cases = (
{
label => q{invalid call to register: no argument},
args => q{},
error => q{empty argument list},
},
{
label => q{invalid register argument: reference with no class name},
args => q{ {} },
error => q{must be an object or class name},
},
);
#--------------------------------------------------------------------------#
# Begin tests
#--------------------------------------------------------------------------#
plan tests => 1 + @cases;
require_ok( "Class::InsideOut" );
for my $case ( @cases ) {
eval( "Class::InsideOut::register( " . $case->{args} . ")" );
like( $@, "/$case->{error}/i", "$case->{label}");
}