diff options
author | daniel <danieruru@gmail.com> | 2013-01-09 20:48:44 +0900 |
---|---|---|
committer | daniel <danieruru@gmail.com> | 2013-01-09 20:48:44 +0900 |
commit | a150256d6423ab2131a529afd58b496e26b4c716 (patch) | |
tree | bab5d37ea16d4e6331071648eb976ec03fbd9ff2 /libvxi11client/perlbits/VXI11-Client.t | |
parent | 57bec4c29edc96491328c8f60fe76055ab2f4008 (diff) |
The perl module sort of works now. Need to fill in all of the meta data, add proper tests etc.
Diffstat (limited to 'libvxi11client/perlbits/VXI11-Client.t')
-rw-r--r-- | libvxi11client/perlbits/VXI11-Client.t | 21 |
1 files changed, 21 insertions, 0 deletions
diff --git a/libvxi11client/perlbits/VXI11-Client.t b/libvxi11client/perlbits/VXI11-Client.t new file mode 100644 index 0000000..d156ffb --- /dev/null +++ b/libvxi11client/perlbits/VXI11-Client.t @@ -0,0 +1,21 @@ +# Before `make install' is performed this script should be runnable with +# `make test'. After `make install' it should work as `perl VXI11-Client.t' + +######################### + +# change 'tests => 1' to 'tests => last_test_to_print'; + +use strict; +use warnings; + +use Test::More tests => 3; +BEGIN { use_ok('VXI11::Client') }; + +######################### + +# Insert your test code below, the Test::More module is use()ed here so read +# its man page ( perldoc Test::More ) for help writing this test script. + +is(&VXI11::Client::vxi11_open("roi", 0), 1); +is(&VXI11::Client::vxi11_unlock(), 1); +is(&VXI11::Client::vxi11_close(), 1); |