generic-library/msgpack
1
0
Fork 0
mirror of https://github.com/msgpack/msgpack-c.git synced 2025-03-30 07:26:29 +02:00
Code Issues Projects Releases Wiki Activity

perl: add tests for 'extra bytes' exceptions

Browse Source
This commit is contained in:
gfx 2010-09-22 16:14:55 +09:00
parent 0a8a6ed168
commit 3d905a7a4f
1 changed files with 18 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
perl/t/14_invalid_data.t Executable file
View File

@ -0,0 +1,18 @@
use strict;
use warnings;
use Data::MessagePack;
use Test::More;
use t::Util;
my $nil = Data::MessagePack->pack(undef);
my @data = do 't/data.pl';
while(my($dump, $data) = splice @data, 0, 2) {
my $s = Data::MessagePack->pack($data);
eval {
Data::MessagePack->unpack($s . $nil);
};
like $@, qr/extra bytes/, "dump $dump";
}
done_testing;