The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
use strict;
use warnings;
use Template::Test;

test_expect(\*DATA);

__END__
[% USE StringDump -%]

--test--
[% 'Ĝis! ☺' | dump_hex %]
--expect--
C4 9C 69 73 21 20 E2 98 BA

--test--
[% 'Ĝis! ☺' | dump_dec %]
--expect--
196 156 105 115 33 32 226 152 186

--test--
[% 'Ĝis! ☺' | dump_oct %]
--expect--
304 234 151 163 41 40 342 230 272

--test--
[% 'Ĝis! ☺' | dump_bin %]
--expect--
11000100 10011100 1101001 1110011 100001 100000 11100010 10011000 10111010