generic-library/msgpack
1
0
Fork 0
mirror of https://github.com/msgpack/msgpack-c.git synced 2025-05-13 10:59:57 +02:00
Code Issues Projects Releases Wiki Activity

perl: fix tests

Browse Source
This commit is contained in:
Fuji, Goro 2010-10-13 09:38:40 +09:00
parent 5b786f65a4
commit 0ced3ec2d2
1 changed files with 3 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
perl/t/06_stream_unpack2.t
View File

@ -7,7 +7,7 @@ use t::Util;
my $input = [ my $input = [
false,true,null,0,0,0,0,0,0,0,0,0,-1,-1,-1,-1,-1, false,true,null,0,0,0,0,0,0,0,0,0,-1,-1,-1,-1,-1,
127,127,255,65535,4294967295,-32,-32,-128,-32768, 127,127,255,65535,4294967295,-32,-32,-128,-32768,
-2147483648,0.0,-0.0, 3.14,-3.14,"a","a","a","","","", -2147483648,0.0,-0.0, 3.0,-3.0,"a","a",("a" x 70000),"","","",
[0],[0],[0],[],[],[],{},{},{}, [0],[0],[0],[],[],[],{},{},{},
{"a" => 97},{"abc" => 97},{"xyz" => 97},[[]], [["foo"], ["bar"]], {"a" => 97},{"abc" => 97},{"xyz" => 97},[[]], [["foo"], ["bar"]],
[["foo", true, false, null, 42]], [["foo", true, false, null, 42]],
@ -36,7 +36,7 @@ is_deeply(Data::MessagePack->unpack($packed), $input);
$offset = $up->execute($packed, $offset); $offset = $up->execute($packed, $offset);
ok $up->is_finished, 'finished'; ok $up->is_finished, 'finished';
my $data = $up->data; my $data = $up->data;
is_deeply $data, $input; is_deeply $data, $input, "block $i, offset $offset";
$up->reset(); $up->reset();
} }
} }
@ -51,10 +51,8 @@ is_deeply(Data::MessagePack->unpack($packed), $input);
my $offset = 0; my $offset = 0;
for my $datum(reverse @{$input}) { for my $datum(reverse @{$input}) {
note "offset: $offset/".length($s);
$offset = $up->execute($s, $offset); $offset = $up->execute($s, $offset);
is_deeply $up->data, $datum; is_deeply $up->data, $datum, "offset $offset/" . length($s);
$up->reset(); $up->reset();
} }
} }