use strict;
use warnings;
use Test::More;
BEGIN {
$ENV{ANSI_COLORS_DISABLED} = 1;
delete $ENV{DATAPRINTERRC};
use File::HomeDir::Test; # avoid user's .dataprinter
};
use Data::Printer { alias => 'Dumper' };
my $scalar = 'test';
is( Dumper($scalar), '"test"', 'aliasing p()' );
eval {
p( $scalar );
};
ok($@, 'aliased Data::Printer does not export p()');
done_testing;