The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
use strict;
use warnings;
use Test::More tests => 3;
use Test::Exception;

use FindBin;
use lib "$FindBin::Bin/lib";

use Class::C3::Adopt::NEXT;

use vars qw/@warnings/;

BEGIN { $SIG{__WARN__} = sub { push @warnings, @_ } }

use C3NT;

my $child = C3NT::Child->new;
@warnings = ();
$child->basic;
like($warnings[0], qr/C3NT::Quux uses NEXT/, 'warning for the class NEXT is used by');
like($warnings[1], qr/C3NT::Bar uses NEXT/,  'warning for the class NEXT is used by');
like($warnings[2], qr/C3NT::Baz uses NEXT/,  'warning for the class NEXT is used by');