From 6379d0fe0f1bc2d3b76480edbe9bd99947aae54e Mon Sep 17 00:00:00 2001
From: gfx <gfuji@cpan.org>
Date: Sun, 19 Sep 2010 15:53:54 +0900
Subject: [PATCH] perl: more tests for nil/true/false entities

---
 perl/t/07_break.t | 23 +++++++++++++++++------
 1 file changed, 17 insertions(+), 6 deletions(-)

diff --git a/perl/t/07_break.t b/perl/t/07_break.t
index dd27ad2..cf3f107 100644
--- a/perl/t/07_break.t
+++ b/perl/t/07_break.t
@@ -1,12 +1,23 @@
 use Test::More;
 use Data::MessagePack;
 use t::Util;
-no warnings 'uninitialized'; # i need this. i need this.
 
-plan tests => 1;
+plan tests => 4;
 
-my $d = Data::MessagePack->unpack(Data::MessagePack->pack([{x => undef}]));
-$d->[0]->{x} = 1;
-ok delete $d->[0]->{x};
-$d->[0] = 4;
+my $d = Data::MessagePack->unpack(Data::MessagePack->pack({
+    nil   => undef,
+    true  => true,
+    false => false,
+    foo   => [undef, true, false],
+}));
 
+$d->{nil} = 42;
+is $d->{nil}, 42;
+
+$d->{true} = 43;
+is $d->{true}, 43;
+
+$d->{false} = 44;
+is $d->{false}, 44;
+
+is_deeply $d->{foo}, [undef, true, false];