1use strict; 2use warnings; 3use Test::More tests => 2; 4 5use Class::C3::Adopt::NEXT; 6 7use lib 't/lib'; 8 9use C3NT; 10 11no Class::C3::Adopt::NEXT qw/C3NT::Quux C3NT::Bar C3NT::Foo/; 12 13my $obj = C3NT::Quux->new; 14 15my @warnings; 16$SIG{__WARN__} = sub { push @warnings, @_ }; 17 18is($obj->basic, 42); 19 20is(scalar @warnings, 0, 'no warnings after disabling NEXT adoption'); 21