From 3d905a7a4fe437433dd0746d9864928ec8f464b9 Mon Sep 17 00:00:00 2001
From: gfx <gfuji@cpan.org>
Date: Wed, 22 Sep 2010 16:14:55 +0900
Subject: [PATCH] perl: add tests for 'extra bytes' exceptions

---
 perl/t/14_invalid_data.t | 18 ++++++++++++++++++
 1 file changed, 18 insertions(+)
 create mode 100755 perl/t/14_invalid_data.t

diff --git a/perl/t/14_invalid_data.t b/perl/t/14_invalid_data.t
new file mode 100755
index 0000000..f534485
--- /dev/null
+++ b/perl/t/14_invalid_data.t
@@ -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;