summaryrefslogtreecommitdiff
path: root/ext/XS-Typemap
diff options
context:
space:
mode:
authorTony Cook <tony@develop-help.com>2012-12-20 09:05:47 +1100
committerTony Cook <tony@develop-help.com>2012-12-20 09:31:31 +1100
commit85b59111fe65fd8577540e06fa1067b29f0b7a1e (patch)
tree6ea393310dfeccae534b089331eaa25ace266432 /ext/XS-Typemap
parentb0bbf7604b0b32561cdc40ec984e20f9efd65587 (diff)
downloadperl-85b59111fe65fd8577540e06fa1067b29f0b7a1e.tar.gz
TODO the failing T_BOOL tests
also update one test so it actually fails
Diffstat (limited to 'ext/XS-Typemap')
-rw-r--r--ext/XS-Typemap/t/Typemap.t2
1 files changed, 2 insertions, 0 deletions
diff --git a/ext/XS-Typemap/t/Typemap.t b/ext/XS-Typemap/t/Typemap.t
index 5cad128115..91daa20865 100644
--- a/ext/XS-Typemap/t/Typemap.t
+++ b/ext/XS-Typemap/t/Typemap.t
@@ -160,11 +160,13 @@ ok( ! T_BOOL(undef) );
}
{
+ local $TODO = "Output parameters for T_BOOL don't work";
my ($in, $out);
$in = 1;
T_BOOL_OUT($out, $in);
ok($out, "T_BOOL_OUT, true in");
$in = 0;
+ $out = 1;
T_BOOL_OUT($out, $in);
ok(!$out, "T_BOOL_OUT, false in");
}