#!perl -T
use Test::More tests => 4;
my @inc_copy = @INC;
use_ok( 'Devel::TraceUse' );
diag( "Testing Devel::TraceUse $Devel::TraceUse::VERSION, Perl $], $^X" );
is( @INC, @inc_copy + 1, 'using module should add path to @INC' );
is( ref $INC[0], 'CODE', '... a coderef to the start' );
Devel::TraceUse->import();
is( @INC, @inc_copy + 1, '... but should add it only once' );
# suppress diagnostic output at the end
$SIG{__WARN__} = sub {};