From e239bfda8add9d7fd42dcd5f2e2bfc01eae9e824 Mon Sep 17 00:00:00 2001
From: gfx <gfuji@cpan.org>
Date: Thu, 16 Sep 2010 20:36:07 +0900
Subject: [PATCH] Make leaktrace.t as a regular test

---
 .../{xt/leaks/leaktrace.t => t/50_leaktrace.t} | 18 +++++++++++++-----
 1 file changed, 13 insertions(+), 5 deletions(-)
 rename perl/{xt/leaks/leaktrace.t => t/50_leaktrace.t} (72%)

diff --git a/perl/xt/leaks/leaktrace.t b/perl/t/50_leaktrace.t
similarity index 72%
rename from perl/xt/leaks/leaktrace.t
rename to perl/t/50_leaktrace.t
index 1836ad6b..29485270 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;