Commit | Line | Data |
51c9ead2 |
1 | use strict; |
2 | use warnings; |
3 | |
4 | use Test::More; |
5 | use Test::Warn; |
6 | use Test::Exception; |
7 | |
8 | use lib 't/lib'; |
9 | use DBICTest; |
10 | |
11 | my $schema = DBICTest->init_schema(); |
12 | $schema->_unregister_source('CD'); |
13 | |
14 | warnings_like { |
15 | lives_ok { |
16 | $_->delete for $schema->resultset('Artist')->all; |
17 | } 'delete on rows with dangling rels lives'; |
18 | } [ |
19 | # 12 == 3 artists * failed cascades: |
20 | # cds |
21 | # cds_unordered |
22 | # cds_very_very_very_long_relationship_name |
23 | (qr/skipping cascad/i) x 9 |
24 | ], 'got warnings about cascading deletes'; |
25 | |
26 | done_testing; |
27 | |