use strict;
use warnings;
use Test::More tests => 2;
BEGIN {
$ENV{ANSI_COLORS_DISABLED} = 1;
delete $ENV{DATAPRINTERRC};
use File::HomeDir::Test; # avoid user's .dataprinter
};
use Data::Printer return_value => 'dump';
my $structure = {
a => 1,
bb => 2,
long_line => 3,
};
my $output_with_alignment = '\ {
a 1,
bb 2,
long_line 3
}';
is(
p($structure),
$output_with_alignment,
"Got correct structure with default settings",
);
my $output_without_alignment = '\ {
a 1,
bb 2,
long_line 3
}';
is(
p($structure, align_hash => 0),
$output_without_alignment,
"Got correct structure with disabled alignment",
);