Add additional tests for T_BOOL typemap
authorSteffen Mueller <smueller@cpan.org>
Thu, 22 Nov 2012 07:03:16 +0000 (08:03 +0100)
committerSteffen Mueller <smueller@cpan.org>
Thu, 22 Nov 2012 07:06:17 +0000 (08:06 +0100)
Unlike the existing tests, these new tests don't use RETVAL.

ext/XS-Typemap/Typemap.pm
ext/XS-Typemap/Typemap.xs
ext/XS-Typemap/t/Typemap.t

index 7132f72..61f4122 100644 (file)
@@ -54,6 +54,7 @@ $VERSION = '0.08';
           T_INT
            T_ENUM
            T_BOOL
+           T_BOOL_2
            T_U_INT
            T_SHORT
            T_U_SHORT
index 3dc5b88..cac9466 100644 (file)
@@ -436,6 +436,13 @@ T_BOOL( in )
  OUTPUT:
   RETVAL
 
+bool
+T_BOOL_2( in )
+  bool in
+ CODE:
+ OUTPUT:
+   in
+
 
 ## T_U_INT
 
index 2a3f25e..de0bf6d 100644 (file)
@@ -6,7 +6,7 @@ BEGIN {
     }
 }
 
-use Test::More tests => 140;
+use Test::More tests => 144;
 
 use strict;
 use warnings;
@@ -150,6 +150,11 @@ ok( ! T_BOOL(0) );
 ok( ! T_BOOL('') );
 ok( ! T_BOOL(undef) );
 
+ok( T_BOOL_2(52) );
+ok( ! T_BOOL_2(0) );
+ok( ! T_BOOL_2('') );
+ok( ! T_BOOL_2(undef) );
+
 # T_U_SHORT aka U16
 note("T_U_SHORT");
 is( T_U_SHORT(32000), 32000);