#!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 => 7;
can_ok(
'DBIx::NinjaORM::StaticClassInfo',
'get',
);
my $static_class_info;
lives_ok(
sub
{
$static_class_info = DBIx::NinjaORM::StaticClassInfo->new();
},
'Instantiate a new object.',
);
throws_ok(
sub
{
$static_class_info->get();
},
qr/\QThe key name must be defined\E/,
'The key name must be defined.',
);
throws_ok(
sub
{
$static_class_info->get('invalid');
},
qr/\QThe key 'invalid' is not valid\E/,
'The key name must be valid.',
);
ok(
$static_class_info->{'test_key'} = 42,
'Set test value.',
);
my $value;
lives_ok(
sub
{
$value = $static_class_info->get('test_key');
},
'Retrieve test value.',
);
is(
$value,
42,
'The test key returned the correct value.',
);