Make leaktrace.t as a regular test

1 files changed, 13 insertions, 5 deletions

diff --git a/perl/xt/leaks/leaktrace.t b/perl/t/50_leaktrace.t
index 1836ad6..2948527 100755
--- a/perl/xt/leaks/leaktrace.t
+++ b/perl/t/50_leaktrace.t
@@ -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;