use
strict;
use
warnings;
{
# These have to be random strings because Data::Dump is smart enough to reverse
# "N" x $n back into a short expression!
note
"dumped string would be 80 or less normally"
;
my
$sub_long
= grapheme_str( 80 - 2 );
# minus 2 because pp adds quotes.
my
$pp
= pp(
$sub_long
);
my
$got
= explain_terse(
$sub_long
);
note
"Studying: $got"
;
note
"From: $pp (="
. (
length
$pp
) .
")"
;
ok(
defined
$got
,
'is defined'
) or
last
;
cmp_ok(
length
$got
,
'<='
, 80,
"Length <= 80"
) or
last
;
is(
$got
,
qq["$sub_long"]
,
'dumps under MAX_LENGTH pass through OK'
) or
last
;
}
done_testing;