generic-library/msgpack
1
0
Fork 0
mirror of https://github.com/msgpack/msgpack-c.git synced 2025-03-23 17:25:22 +01:00
Code Issues Projects Releases Wiki Activity

Make leaktrace.t as a regular test

Browse Source
This commit is contained in:
gfx 2010-09-16 20:36:07 +09:00
parent bd887b660d
commit e239bfda8a
1 changed files with 13 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
perl/xt/leaks/leaktrace.t → perl/t/50_leaktrace.t
View File

@ -1,6 +1,6 @@
#!perl -w
use strict;
use Test::Requires 'Test::LeakTrace';
use Test::Requires { 'Test::LeakTrace' => 0.13 };
use Test::More;
use Data::MessagePack;
@ -22,8 +22,8 @@ no_leaks_ok {
no_leaks_ok {
eval { Data::MessagePack->pack([\*STDIN]) };
#note $@;
$@ or die "it must die";
note $@;
$@ or warn "# it must die";
};
note 'unpack';
@ -43,8 +43,16 @@ no_leaks_ok {
my $broken = $s;
chop $broken;
eval { Data::MessagePack->unpack($broken) };
#note $@;
$@ or die "it must die";
note $@;
$@ or warn "# it must die";
};
note 'stream';
no_leaks_ok {
my $up = Data::MessagePack::Unpacker->new();
$up->execute($c);
my $data = $up->data();
};
done_testing;