From 7c6b1548f8e3c24565d45837bbde961ece718f41 Mon Sep 17 00:00:00 2001 From: daniel Date: Sat, 12 Jan 2013 14:50:56 +0900 Subject: Add the ability to wait for interrupts --- libvxi11client/perlbits/VXI11-Client.t | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) (limited to 'libvxi11client/perlbits/VXI11-Client.t') 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"); -- cgit