no
strict
'refs'
;
diag Dumper(\%{
"::PGObject::Type::"
});
ok(PGObject->new_registry(
'test'
),
'creating test registry'
);
ok(PGObject::Type::DateTime->register(),
'default registration'
);
ok(PGObject::Type::DateTime->register(
types
=> [
'mytime'
]),
'mytime registration'
);
ok(PGObject::Type::DateTime->register(
registry
=>
'test'
,
types
=> [
'mytime'
]),
'custom registry, mytime registration'
),
ok(PGObject::Type::DateTime->register(
registry
=>
'test'
),
'default types, custom registry'
);
my
$registry
;
if
(
$PGObject::VERSION
=~ /^1\./){
$registry
= PGObject::get_type_registry();
}
else
{
$registry
= {
map
{
$_
=> PGObject::Type::Registry->inspect(
$_
) }
qw(test default)
} ;
}
for
my
$reg
(
qw(default test)
){
for
my
$type
(
qw(date time timestamp timestamptz mytime)
) {
is(
$registry
->{
$reg
}->{
$type
},
'PGObject::Type::DateTime'
,
"registry $reg, type $type correctly registered"
);
}
}