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
|
use strict;
use warnings;
use Test::More;
use lib 't/lib';
use A::Schema;
use A::Schema::Result::Album;
use A::Schema::Result::Statistic;
my $result_class = A::Schema->resultset('Album')->result_class;
isa_ok $result_class, 'DBIx::Class::Core';
is( $result_class->table, 'albums', 'table set correctly' );
my @cols = $result_class->columns;
is( $cols[0], 'id', 'id column set correctly' );
is( $cols[1], 'name', 'name column set correctly' );
A::Schema::Result::Album::test_strict;
ok( !$result_class->can('column'), 'namespace gets cleaned');
my $artist_result = A::Schema->resultset('Artist')->result_class;
isa_ok( $artist_result, 'A::Schema::Result');
is_deeply( [ A::Schema->source('Statistic')->primary_columns ], [qw(song_id playtime)]);
done_testing;
|
