perl: add tests for boolean values

This commit is contained in:
gfx 2010-09-22 15:28:14 +09:00
parent 80f7c54e4d
commit 68b6fa46e6

12
perl/t/13_booleans.t Executable file
View File

@ -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';