#!perl -T
=head1 PURPOSE
Test creating a new L<DBIx::NinjaORM::StaticClassInfo> object.
=cut
use DBIx::NinjaORM::StaticClassInfo;
use Test::Exception;
use Test::FailWarnings -allow_deps => 1;
use Test::More tests => 4;
can_ok(
'DBIx::NinjaORM::StaticClassInfo',
'new',
);
my $static_class_info;
lives_ok(
sub
{
$static_class_info = DBIx::NinjaORM::StaticClassInfo->new();
},
'Instantiate a new object.',
);
isa_ok(
$static_class_info,
'DBIx::NinjaORM::StaticClassInfo',
);
isnt(
scalar( keys %$static_class_info ),
0,
'The object has keys defined.',
) || diag( explain( $static_class_info ) );