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
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
|
use strict;
use warnings;
use Test::More;
use Test::Deep;
use lib 't/lib';
use IRC::Schema;
subtest Channel => sub { # {{{
my $result_class = IRC::Schema->resultset('Channel')->result_class;
isa_ok $result_class, 'IRC::Schema::Result';
cmp_set [$result_class->columns], [qw(id name network_id)], 'columns get set correctly';
cmp_deeply $result_class->column_info('name'), {
data_type => 'varchar',
size => 100,
}, 'name metadata set';
cmp_deeply $result_class->column_info('id'), {
data_type => 'int',
is_auto_increment => 1,
}, 'id metadata set';
cmp_deeply $result_class->column_info('network_id'), {
data_type => 'int',
}, 'network_id metadata set';
ok $result_class->has_relationship('network'), 'network relationship works';
cmp_deeply([$result_class->primary_columns], [ 'id' ], 'id gets set to pk');
cmp_deeply({ $result_class->unique_constraints }, {
Channels_name => [ 'name' ],
primary => [ 'id' ],
}, 'unqiue constraints get set correctly');
is( $result_class->table, 'Channels', 'table gets set correctly');
is( $result_class->test_perl_version, 'station', 'perl version gets set from base class') if $] >= 5.034;
is( $result_class->test_experimental, 1, 'experimental gets set from base class') if $] >= 5.034;
is( IRC::Schema->resultset('Channel')->test_experimental->(2), 3, 'experimental gets set from base class of rs') if $] >= 5.020;
}; # }}}
subtest Message => sub { # {{{
my $result_class = IRC::Schema->resultset('Message')->result_class;
isa_ok $result_class, 'DBIx::Class::Core';
ok(!$result_class->isa('IRC::Schema::Result'), 'Not a ::Result');
cmp_set [$result_class->columns], [qw(id user_id mode_id channel_id value when_said)], 'columns get set correctly';
cmp_deeply $result_class->column_info('id'), {
data_type => 'int',
is_auto_increment => 1,
}, 'id metadata set';
cmp_deeply $result_class->column_info('user_id'), {
data_type => 'int',
}, 'user_id metadata set';
cmp_deeply $result_class->column_info('mode_id'), {
data_type => 'int',
}, 'mode_id metadata set';
cmp_deeply $result_class->column_info('channel_id'), {
data_type => 'int',
}, 'channel_id metadata set';
cmp_deeply $result_class->column_info('value'), {
data_type => 'varchar',
size => 100,
}, 'value metadata set';
cmp_deeply $result_class->column_info('when_said'), {
data_type => 'datetime',
}, 'when_said metadata set';
ok $result_class->has_relationship('user'), 'user relationship works';
ok $result_class->has_relationship('channel'), 'channel relationship works';
ok $result_class->has_relationship('mode'), 'mode relationship works';
cmp_deeply([$result_class->primary_columns], [ 'id' ], 'id gets set to pk');
is( $result_class->table, 'Messages', 'table gets set correctly');
}; # }}}
subtest Mode => sub { # {{{
my $result_class = IRC::Schema->resultset('Mode')->result_class;
isa_ok $result_class, 'IRC::Schema::Result';
cmp_set [$result_class->columns], [qw(id name code)], 'columns get set correctly';
cmp_deeply $result_class->column_info('id'), {
data_type => 'int',
is_auto_increment => 1,
}, 'id metadata set';
cmp_deeply $result_class->column_info('name'), {
data_type => 'varchar',
size => 30,
}, 'name metadata set';
cmp_deeply $result_class->column_info('code'), {
data_type => 'char',
size => 1,
}, 'code metadata set';
cmp_deeply([$result_class->primary_columns], [ 'id' ], 'id gets set to pk');
cmp_deeply({ $result_class->unique_constraints }, {
Modes_name => [ 'name' ],
Modes_code => [ 'code' ],
primary => [ 'id' ],
}, 'unqiue constraints get set correctly');
is( $result_class->table, 'Modes', 'table gets set correctly');
}; # }}}
subtest Network => sub { # {{{
my $result_class = IRC::Schema->resultset('Network')->result_class;
isa_ok $result_class, 'IRC::Schema::Result';
cmp_set [$result_class->columns], [qw(id name)], 'columns get set correctly';
cmp_deeply $result_class->column_info('id'), {
data_type => 'int',
is_auto_increment => 1,
}, 'id metadata set';
cmp_deeply $result_class->column_info('name'), {
data_type => 'varchar',
size => 100,
}, 'name metadata set';
cmp_deeply([$result_class->primary_columns], [ 'id' ], 'id gets set to pk');
cmp_deeply({ $result_class->unique_constraints }, {
Networks_name => [ 'name' ],
primary => [ 'id' ],
}, 'unqiue constraints get set correctly');
is( $result_class->table, 'Networks', 'table gets set correctly');
}; # }}}
subtest User => sub { # {{{
my $result_class = IRC::Schema->resultset('User')->result_class;
isa_ok $result_class, 'IRC::Schema::Result';
cmp_set [$result_class->columns], [qw(id handle)], 'columns get set correctly';
cmp_deeply $result_class->column_info('id'), {
data_type => 'int',
is_auto_increment => 1,
}, 'id metadata set';
cmp_deeply $result_class->column_info('handle'), {
data_type => 'varchar',
size => 30,
}, 'handle metadata set';
ok $result_class->has_relationship('messages'), 'messages relationship works';
cmp_deeply([$result_class->primary_columns], [ 'id' ], 'id gets set to pk');
cmp_deeply({ $result_class->unique_constraints }, {
users_handle => [ 'handle' ],
primary => [ 'id' ],
}, 'unqiue constraints get set correctly');
is( $result_class->table, 'users', 'table gets set correctly');
}; # }}}
done_testing;
# vim: foldmethod=marker
|
