The T_BOOL_2 tests should have failed, rewrite and TODO

diff --git a/ext/XS-Typemap/t/Typemap.t b/ext/XS-Typemap/t/Typemap.t
index de0bf6d..93c1979 100644 (file)
--- a/ext/XS-Typemap/t/Typemap.t
+++ b/ext/XS-Typemap/t/Typemap.t
@@ -150,10 +150,14 @@ 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) );
+{
+  # these attempt to modify a read-only value
+  local $TODO = "attempts to modify a read-only value should crash";
+  ok( !eval { T_BOOL_2(52); 1 } );
+  ok( !eval { T_BOOL_2(0); 1 } );
+  ok( !eval { T_BOOL_2(''); 1 } );
+  ok( !eval { T_BOOL_2(undef); 1 } );
+}
 
 # T_U_SHORT aka U16
 note("T_U_SHORT");