File: 17_canonical.t

package info (click to toggle)
libdata-messagepack-perl 1.02-3
  • links: PTS, VCS
  • area: main
  • in suites: sid
  • size: 1,060 kB
  • sloc: ansic: 5,697; perl: 1,123; makefile: 10
file content (32 lines) | stat: -rw-r--r-- 572 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
26
27
28
29
30
31
32

use strict;
use warnings;
use Test::More;
use Data::MessagePack;

my $mp = Data::MessagePack->new(canonical => 1);

my $data = {
	'foo' => {
		'a' => '',
		'b' => '',
		'c' => '',
		'd' => '',
		'e' => '',
		'f' => '',
		'g' => '',
	}
};

my $packed1 = $mp->pack($data);
my $packed2 = $mp->pack($mp->unpack($packed1));
my $packed3 = $mp->pack($mp->unpack($packed2));
my $packed4 = $mp->pack($mp->unpack($packed3));
my $packed5 = $mp->pack($mp->unpack($packed4));

is $packed1, $packed2;
is $packed1, $packed3;
is $packed1, $packed4;
is $packed1, $packed5;

done_testing;