perl: add tests for boolean values

1 files changed, 12 insertions, 0 deletions

diff --git a/perl/t/13_booleans.t b/perl/t/13_booleans.t
new file mode 100755
index 0000000..1ecbe64
--- /dev/null
+++ b/perl/t/13_booleans.t
@@ -0,0 +1,12 @@
+#!perl -w
+use strict;
+use Test::More tests => 6;
+use Data::MessagePack;
+
+ok defined(Data::MessagePack::true()), 'true (1)';
+ok defined(Data::MessagePack::true()), 'true (2)';
+ok Data::MessagePack::true(),          'true is true';
+
+ok defined(Data::MessagePack::false()), 'false (1)';
+ok defined(Data::MessagePack::false()), 'false (2)';
+ok !Data::MessagePack::false(),         'false is false';