my
$structure
= {
signature
=>
'ASEF'
,
version
=> [ 1, 0 ],
blocks
=> [ {
type
=>
'group_start'
,
label
=>
"Various"
, }, ]
};
my
$out
= Color::Swatch::ASE::Writer->write_string(
$structure
);
my
$expected
=
'ASEF'
;
$expected
.=
"\x{00}\x{01}\x{00}\x{00}"
;
$expected
.=
"\x{00}\x{00}\x{00}\x{01}"
;
$expected
.=
"\x{c0}\x{01}"
;
$expected
.=
"\x{00}\x{00}\x{00}\x{12}"
;
$expected
.=
"\x{00}\x{0d}"
;
$expected
.=
"\x{00}\x{56}\x{00}\x{61}\x{00}\x{72}\x{00}\x{69}"
;
$expected
.=
"\x{00}\x{6f}\x{00}\x{75}\x{00}\x{73}"
;
$expected
.=
"\x{00}\x{00}"
;
my
(
@chunks
) =
grep
length
,
split
/(.{0,4})/,
$out
;
my
(
@echunks
) =
grep
length
,
split
/(.{0,4})/,
$expected
;
eq_or_diff \
@chunks
, \
@echunks
;