1use strict;
2use warnings;
3
4use lib 't/lib';
5use Test::More;
6use Test::Fatal;
7
8use aliased 'DBIx::Class::Helper::Schema::Verifier::C3';
9
10is(exception {
11   C3->$_('Cat', 'Cat') for C3->result_verifiers;
12}, undef, 'Result and Set are fine');
13
14like(exception {
15   C3->$_('Foo', 'Cat') for C3->result_verifiers;
16}, qr/^Foo does not use c3, it uses dfs/, 'Result fails');
17
18like(exception {
19   C3->$_('Cat', 'Bar') for C3->result_verifiers;
20}, qr/^Bar does not use c3, it uses dfs/, 'ResultSet fails');
21
22done_testing;
23
24BEGIN {
25   package Foo;
26
27   use base 'DBIx::Class::Core';
28
29   package Bar;
30
31   use base 'DBIx::Class::ResultSet';
32
33   package Cat;
34   use MRO::Compat;
35   use mro 'c3';
36   use base 'DBIx::Class';
37}
38
39