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 {
    'return_value'   => 'dump',
    'name'           => 'TEST',
    'indent'         => 2,
    'index'          => 0,
    'hash_separator' => ' => ',
    'max_depth'      => 2,
    'print_escapes'  => 1,
};

my $data = [ 1, 2, { foo => 3, bar => { 1 => 2}, baz => [0, 1]  }, "\0\n\f\t\bmeep\b\t\f\n\0" ];
push @$data, $data->[2];

is( p($data), '\\ [
  1,
  2,
  {
    bar => { ... },
    baz => [ ... ],
    foo => 3
  },
  "\0\n\f\t\bmeep\b\t\f\n\0",
  TEST[2]
]', 'customization' );

done_testing;