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
|
use strict;
use warnings;
use lib 't/lib';
use Test::More;
use Test::Fatal;
use aliased 'DBIx::Class::Helper::Schema::Verifier::C3';
is(exception {
C3->$_('Cat', 'Cat') for C3->result_verifiers;
}, undef, 'Result and Set are fine');
like(exception {
C3->$_('Foo', 'Cat') for C3->result_verifiers;
}, qr/^Foo does not use c3, it uses dfs/, 'Result fails');
like(exception {
C3->$_('Cat', 'Bar') for C3->result_verifiers;
}, qr/^Bar does not use c3, it uses dfs/, 'ResultSet fails');
done_testing;
BEGIN {
package Foo;
use base 'DBIx::Class::Core';
package Bar;
use base 'DBIx::Class::ResultSet';
package Cat;
use MRO::Compat;
use mro 'c3';
use base 'DBIx::Class';
}
|
