Commit | Line | Data |
cb551b07 |
1 | use DBIx::Class::Optional::Dependencies -skip_all_without => 'deploy'; |
6ebf5cbb |
2 | |
3 | use strict; |
4 | use warnings; |
5 | |
6 | use Test::More; |
7 | use Test::Exception; |
7c4ade2a |
8 | use Test::Warn; |
6ebf5cbb |
9 | use lib qw(t/lib); |
6c97a902 |
10 | use DBICTest; |
6ebf5cbb |
11 | use ViewDeps; |
51b31bbe |
12 | use ViewDepsBad; |
6ebf5cbb |
13 | |
b7b008a2 |
14 | #################### SANITY |
d40f513f |
15 | |
51b31bbe |
16 | my $view = DBIx::Class::ResultSource::View->new; |
66fb15b6 |
17 | |
9efcc79f |
18 | isa_ok( $view, 'DBIx::Class::ResultSource', 'A new view' ); |
19 | isa_ok( $view, 'DBIx::Class', 'A new view also' ); |
6ebf5cbb |
20 | |
e55d9d89 |
21 | can_ok( $view, $_ ) for qw/new from deploy_depends_on/; |
6ebf5cbb |
22 | |
b7b008a2 |
23 | #################### DEPS |
6c97a902 |
24 | { |
25 | my $schema |
26 | = ViewDeps->connect( DBICTest->_database (quote_char => '"') ); |
27 | ok( $schema, 'Connected to ViewDeps schema OK' ); |
9efcc79f |
28 | |
b7b008a2 |
29 | #################### DEPLOY |
bf5c3a3f |
30 | |
1f9712ad |
31 | $schema->deploy; |
2446dc59 |
32 | |
b7b008a2 |
33 | #################### DOES ORDERING WORK? |
34 | |
6c97a902 |
35 | my $sqlt_object = $schema->{sqlt}; |
36 | |
37 | is_deeply( |
38 | [ map { $_->name } $sqlt_object->get_views ], |
39 | [qw/ |
40 | a_name_artists |
41 | track_number_fives |
42 | year_2010_cds |
43 | ab_name_artists |
44 | year_2010_cds_with_many_tracks |
45 | aba_name_artists |
46 | aba_name_artists_and_2010_cds_with_many_tracks |
47 | /], |
8273e845 |
48 | "SQLT view order triumphantly matches our order." |
6c97a902 |
49 | ); |
bf5c3a3f |
50 | |
339f7f5d |
51 | #################### AND WHAT ABOUT USING THE SCHEMA? |
52 | |
6c97a902 |
53 | lives_ok( sub { $schema->resultset($_)->next }, "Query on $_ succeeds" ) |
8a8525be |
54 | for grep { |
55 | $schema->resultset($_) |
6c97a902 |
56 | ->result_source->isa('DBIx::Class::ResultSource::View') |
8a8525be |
57 | } @{ [ $schema->sources ] }; |
6c97a902 |
58 | } |
339f7f5d |
59 | |
51b31bbe |
60 | #################### AND WHAT ABOUT A BAD DEPS CHAIN IN A VIEW? |
61 | |
6c97a902 |
62 | { |
63 | my $schema2 |
64 | = ViewDepsBad->connect( DBICTest->_database ( quote_char => '"') ); |
65 | ok( $schema2, 'Connected to ViewDepsBad schema OK' ); |
51b31bbe |
66 | |
67 | #################### DEPLOY2 |
68 | |
1f9712ad |
69 | warnings_exist { $schema2->deploy } |
6c97a902 |
70 | [qr/no such table: main.aba_name_artists/], |
d2f4cc4a |
71 | "Deploying the bad schema produces a warning: aba_name_artists was not created."; |
51b31bbe |
72 | |
73 | #################### DOES ORDERING WORK 2? |
74 | |
6c97a902 |
75 | my $sqlt_object2 = $schema2->{sqlt}; |
76 | |
77 | is_deeply( |
78 | [ map { $_->name } $sqlt_object2->get_views ], |
79 | [qw/ |
80 | a_name_artists |
81 | track_number_fives |
82 | year_2010_cds |
83 | ab_name_artists |
84 | year_2010_cds_with_many_tracks |
85 | aba_name_artists_and_2010_cds_with_many_tracks |
86 | aba_name_artists |
87 | /], |
8273e845 |
88 | "SQLT view order triumphantly matches our order." |
6c97a902 |
89 | ); |
51b31bbe |
90 | |
91 | #################### AND WHAT ABOUT USING THE SCHEMA2? |
92 | |
6c97a902 |
93 | lives_ok( sub { $schema2->resultset($_)->next }, "Query on $_ succeeds" ) |
51b31bbe |
94 | for grep { |
95 | $schema2->resultset($_) |
6c97a902 |
96 | ->result_source->isa('DBIx::Class::ResultSource::View') |
51b31bbe |
97 | } grep { !/AbaNameArtistsAnd2010CDsWithManyTracks/ } |
98 | @{ [ $schema2->sources ] }; |
99 | |
6c97a902 |
100 | throws_ok { $schema2->resultset('AbaNameArtistsAnd2010CDsWithManyTracks')->next } |
101 | qr/no such table: aba_name_artists_and_2010_cds_with_many_tracks/, |
102 | "Query on AbaNameArtistsAnd2010CDsWithManyTracks throws, because the table does not exist" |
103 | ; |
c418c5cc |
104 | } |
c418c5cc |
105 | |
6ebf5cbb |
106 | done_testing; |