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
33
34
35
36
|
#!perl
use strict;
use warnings;
use Data::Dumper;
use File::Spec;
# test our test framework
use lib File::Spec->catdir(qw(t lib));
BEGIN {
lib->import('lib')
if !-d 't';
}
use Sereal::TestSet qw(:all);
use Test::More;
# needs more tests
ok(_deep_cmp(["x"],{}));
ok(_deep_cmp({"x"=>1},{"y"=>1}));
ok(_deep_cmp({"x"=>1},{"x"=>2}));
ok(_deep_cmp({"x"=>1},{"x"=>2,"y"=>1}));
ok(!_deep_cmp({"x"=>1},{"x"=>1}));
ok(!_deep_cmp(["x"],["x"]));
ok(_deep_cmp(["x"],["y","p"]));
ok(_deep_cmp(["a","x"],["y"]));
ok(_cmp_str("foo","bar"));
ok(!_cmp_str("aaa","aaa"));
ok(_cmp_str("aaacowbbb","aaadogbb"));
my $l= "ba\xDF";
my $u= $l;
utf8::upgrade($u);
ok(_cmp_str($l,$u));
pass();
done_testing();
|
