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