diff options
| author | daniel <danieruru@gmail.com> | 2013-01-12 14:50:56 +0900 |
|---|---|---|
| committer | daniel <danieruru@gmail.com> | 2013-01-12 14:50:56 +0900 |
| commit | 7c6b1548f8e3c24565d45837bbde961ece718f41 (patch) | |
| tree | b91f22f45eea0c95bb1b69f11f1f1d8ee3f10b4d /libvxi11client/perlbits/VXI11-Client.t | |
| parent | 6b74097642353500f965bdc024c76051c090b4f4 (diff) | |
Add the ability to wait for interrupts
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"); |