File: 18_new_interface.t

package info (click to toggle)
libdata-messagepack-perl 1.02-3
  • links: PTS, VCS
  • area: main
  • in suites:
  • size: 1,060 kB
  • sloc: ansic: 5,697; perl: 1,123; makefile: 10
file content (25 lines) | stat: -rw-r--r-- 432 bytes parent folder | download | duplicates (7) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
 
#!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;