File: 14_invalid_data.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 (18 lines) | stat: -rwxr-xr-x 365 bytes parent folder | download | duplicates (7) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
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;