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