perl/t/04_invert.t


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24

use Test::More;
use Data::MessagePack;
use t::Util;
no warnings 'uninitialized'; # i need this. i need this.

sub invert {
    return Data::MessagePack->unpack(
        Data::MessagePack->pack($_[0]),
    );
}

sub pis ($) {
    is_deeply invert($_[0]), $_[0], 'dump ' . $_[0];
}

my @dat = do 't/data.pl';

plan tests => 1*(scalar(@dat)/2);

for (my $i=0; $i<scalar(@dat); ) {
    $i++;
    pis $dat[$i++];
}