use Test::More;
use Data::Dumper;
$Data::Dumper::Useqq = 1;

my $expect = "\a";
my $got = "\b";
is_deeply($got, $expect, "example test") or
    diag "got: " . Dumper($got) .
    " expected: " . Dumper($expect);