From 1b91b096d164b5524a45b2585269109fd000fd40 Mon Sep 17 00:00:00 2001 From: daniel Date: Wed, 9 Jan 2013 20:53:26 +0900 Subject: fix the typemap so that perl doesn't moan about bools --- libvxi11client/Makefile | 1 + libvxi11client/perlbits/VXI11-Client.t | 3 ++- libvxi11client/perlbits/typemap | 1 + 3 files changed, 4 insertions(+), 1 deletion(-) create mode 100644 libvxi11client/perlbits/typemap (limited to 'libvxi11client') diff --git a/libvxi11client/Makefile b/libvxi11client/Makefile index 2901032..94c22fc 100644 --- a/libvxi11client/Makefile +++ b/libvxi11client/Makefile @@ -29,6 +29,7 @@ perl: cp vxi11.h libvxi11client.c libvxi11client.h vxi11_clnt.c vxi11_xdr.c VXI11-Client/ cp perlbits/Makefile.PL VXI11-Client/ cp perlbits/VXI11-Client.t VXI11-Client/t/ + cp perlbits/typemap VXI11-Client/ cd VXI11-Client/ && perl Makefile.PL cd VXI11-Client/ && make cd VXI11-Client/ && make test diff --git a/libvxi11client/perlbits/VXI11-Client.t b/libvxi11client/perlbits/VXI11-Client.t index d156ffb..de10ecf 100644 --- a/libvxi11client/perlbits/VXI11-Client.t +++ b/libvxi11client/perlbits/VXI11-Client.t @@ -8,7 +8,7 @@ use strict; use warnings; -use Test::More tests => 3; +use Test::More tests => 5; BEGIN { use_ok('VXI11::Client') }; ######################### @@ -17,5 +17,6 @@ BEGIN { use_ok('VXI11::Client') }; # its man page ( perldoc Test::More ) for help writing this test script. is(&VXI11::Client::vxi11_open("roi", 0), 1); +is(&VXI11::Client::vxi11_lock(0), 1); is(&VXI11::Client::vxi11_unlock(), 1); is(&VXI11::Client::vxi11_close(), 1); diff --git a/libvxi11client/perlbits/typemap b/libvxi11client/perlbits/typemap new file mode 100644 index 0000000..4391935 --- /dev/null +++ b/libvxi11client/perlbits/typemap @@ -0,0 +1 @@ +_Bool T_IV -- cgit