From ad7cf12128388b8432ffe33c2010d0d0580297c3 Mon Sep 17 00:00:00 2001
From: Tokuhiro Matsuno <tokuhirom@gmail.com>
Date: Fri, 3 Jul 2009 17:27:44 +0900
Subject: [PATCH] perl: added test case for "the flag is working?"

---
 perl/t/05_preferred_int.t | 16 +++++++++++++---
 1 file changed, 13 insertions(+), 3 deletions(-)

diff --git a/perl/t/05_preferred_int.t b/perl/t/05_preferred_int.t
index 39c725a6..9860711b 100644
--- a/perl/t/05_preferred_int.t
+++ b/perl/t/05_preferred_int.t
@@ -38,10 +38,20 @@ my @dat = (
     {'0' => '1'}, '81 00 01',
     {'abc' => '1'}, '81 a3 61 62 63 01',
 );
-plan tests => 1*(scalar(@dat)/2);
+plan tests => 1*(scalar(@dat)/2) + 2;
 
-$Data::MessagePack::PreferInteger = 1;
 for (my $i=0; $i<scalar(@dat); ) {
-    pis $dat[$i++], $dat[$i++];
+    local $Data::MessagePack::PreferInteger = 1;
+    my($x, $y) = ($i++, $i++);
+    pis $dat[$x], $dat[$y];
+}
+
+# flags working?
+{
+    local $Data::MessagePack::PreferInteger;
+    $Data::MessagePack::PreferInteger = 1;
+    pis '0',     '00';
+    $Data::MessagePack::PreferInteger = 0;
+    pis '0',     'a1 30';
 }