#!perl
use strict;
use warnings;
use Test::More;
use Data::MessagePack;
my $mp = Data::MessagePack->new();
is_deeply $mp->decode( $mp->encode([1, 2, 3]) ), [1, 2, 3];
my $mpc = Data::MessagePack->new->prefer_integer->canonical;
ok !$mp->get_prefer_integer;
ok $mpc->get_prefer_integer;
ok !$mp->get_canonical;
ok $mpc->get_canonical;
isnt $mp->pack("42"), $mp->pack(42);
is $mpc->pack("42"), $mpc->pack(42);
done_testing;