msgpack/perl/t/18_new_interface.t

16 lines
180 B
Perl

#!perl
use strict;
use warnings;
use Test::More;
use Data::MessagePack;
my $mp = Data::MessagePack->new();
is_deeply $mp->decode( $mp->encode(\%ENV) ), \%ENV;
done_testing;