1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
|
use Test::More tests => 15;
use PGObject;
use PGObject::Type::DateTime;
use strict;
use warnings;
use Data::Dumper;
no strict 'refs';
diag Dumper(\%{"::PGObject::Type::"});
# Theoretically we could grab ints as well, and this makes a nice test case.
# The tests here are:
# 1. Registration with the default registry, default types
# 2. Registration with the default registry, int8 type
# 3. Registration with custom registry 'test', int8 type
# 4. Registration with custom registry 'test', default types
# 5. Registry properly lists all appropriate types.
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");
}
}
|
