#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 {
'deparse' => 1,
'deparseopts' => [],
};
my $data = [ 6, sub { print 42 }, 10 ];
is( p($data), '\\ [
[0] 6,
[1] sub {
print 42;
},
[2] 10
]', 'deparsing' );
done_testing;