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 /libvxi11client/perlbits/VXI11-Client.t | |
| parent | a150256d6423ab2131a529afd58b496e26b4c716 (diff) | |
fix the typemap so that perl doesn't moan about bools
Diffstat (limited to 'libvxi11client/perlbits/VXI11-Client.t')
| -rw-r--r-- | libvxi11client/perlbits/VXI11-Client.t | 3 |
1 files changed, 2 insertions, 1 deletions
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); |