diff options
| author | daniel <danieruru@gmail.com> | 2013-01-09 20:53:26 +0900 |
|---|---|---|
| committer | daniel <danieruru@gmail.com> | 2013-01-09 20:53:26 +0900 |
| commit | 1b91b096d164b5524a45b2585269109fd000fd40 (patch) | |
| tree | e079120b77a7350caf3b57df408e35b937abe88b | |
| parent | a150256d6423ab2131a529afd58b496e26b4c716 (diff) | |
fix the typemap so that perl doesn't moan about bools
| -rw-r--r-- | libvxi11client/Makefile | 1 | ||||
| -rw-r--r-- | libvxi11client/perlbits/VXI11-Client.t | 3 | ||||
| -rw-r--r-- | libvxi11client/perlbits/typemap | 1 |
3 files changed, 4 insertions, 1 deletions
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 |