summaryrefslogtreecommitdiff
path: root/libvxi11client/perlbits/VXI11-Client.t
diff options
context:
space:
mode:
authordaniel <danieruru@gmail.com>2013-01-09 20:48:44 +0900
committerdaniel <danieruru@gmail.com>2013-01-09 20:48:44 +0900
commita150256d6423ab2131a529afd58b496e26b4c716 (patch)
treebab5d37ea16d4e6331071648eb976ec03fbd9ff2 /libvxi11client/perlbits/VXI11-Client.t
parent57bec4c29edc96491328c8f60fe76055ab2f4008 (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.t21
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);