mirror of
https://github.com/msgpack/msgpack-c.git
synced 2025-11-04 12:17:38 +01:00
29 lines
576 B
Perl
29 lines
576 B
Perl
use Test::More;
|
|
use Data::MessagePack;
|
|
use t::Util;
|
|
no warnings 'uninitialized'; # i need this. i need this.
|
|
|
|
sub unpackit {
|
|
my $v = $_[0];
|
|
$v =~ s/ +//g;
|
|
$v = pack 'H*', $v;
|
|
return Data::MessagePack->unpack($v);
|
|
}
|
|
|
|
sub pis ($$) {
|
|
is_deeply unpackit($_[0]), $_[1], 'dump ' . $_[0]
|
|
or do {
|
|
diag( 'got:', explain(unpackit($_[0])) );
|
|
diag( 'expected:', explain($_[1]) );
|
|
};
|
|
}
|
|
|
|
my @dat = do 't/data.pl' or die $@;
|
|
|
|
plan tests => 1*(scalar(@dat)/2);
|
|
|
|
for (my $i=0; $i<scalar(@dat); ) {
|
|
pis $dat[$i++], $dat[$i++];
|
|
}
|
|
|