diff options
Diffstat (limited to 'libvxi11client/perlbits/VXI11-Client.t')
| -rw-r--r-- | libvxi11client/perlbits/VXI11-Client.t | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/libvxi11client/perlbits/VXI11-Client.t b/libvxi11client/perlbits/VXI11-Client.t index 5b7f35f..1c91965 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 => 14; +use Test::More tests => 17; BEGIN { use_ok('VXI11::Client') }; ######################### @@ -21,8 +21,9 @@ is(&VXI11::Client::lock(0), 1, "Lock"); is(&VXI11::Client::write("*IDN?", 6, 0, 0), 6, "Write"); ok(&VXI11::Client::readstatusbyte(0) >= 0 , "Read status byte"); is(&VXI11::Client::create_intr_chan(), 1, "Create intr channel"); -#is(&VXI11::Client::enable_srq(1, sub { print "Interrupt fired\n" }), 1, "Enable interrupts"); -#is(&VXI11::Client::enable_srq(0), 1, "Disable interrupts"); +is(&VXI11::Client::enable_srq(1), 1, "Enable interrupts"); +is(&VXI11::Client::wait_for_interrupt, 1, "Wait for interrupt"); +is(&VXI11::Client::enable_srq(0), 1, "Disable interrupts"); is(&VXI11::Client::destroy_intr_chan(), 1, "Destroy intr channel"); is(&VXI11::Client::abort(), 1, "Abort"); is(&VXI11::Client::clear(0), 1, "Clear"); |