diff options
| author | daniel <danieruru@gmail.com> | 2013-01-17 21:29:32 +0900 |
|---|---|---|
| committer | daniel <danieruru@gmail.com> | 2013-01-17 21:29:32 +0900 |
| commit | 3bcf349f108248fc3ca705ff1fc8b56923e8bfa4 (patch) | |
| tree | 55b15edc1a4028dca4ddec488f2bf0d86fcab9a1 /libvxi11client/perlbits/VXI11-Client.t | |
| parent | 67b0ff47c3866059695617b30deb1d18c250073e (diff) | |
not sure what happens with strings once they get into perl, but this keeps the last event picked up from the interrupt queue around until polling again when should be good enough.
Diffstat (limited to 'libvxi11client/perlbits/VXI11-Client.t')
| -rw-r--r-- | libvxi11client/perlbits/VXI11-Client.t | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/libvxi11client/perlbits/VXI11-Client.t b/libvxi11client/perlbits/VXI11-Client.t index ef2aae0..691a6bb 100644 --- a/libvxi11client/perlbits/VXI11-Client.t +++ b/libvxi11client/perlbits/VXI11-Client.t @@ -25,7 +25,7 @@ is($instr->write("*IDN?", 6, 0, 0), 6, "Write"); ok($instr->readstatusbyte(0) >= 0 , "Read status byte"); is($instr->create_intr_chan(), 1, "Create intr channel"); is($instr->enable_srq(1, "myhandle"), 1, "Enable interrupts"); -is(&VXI11::Client::wait_for_interrupt, 1, "Wait for interrupt"); +is(&VXI11::Client::wait_for_interrupt, "myhandle", "Wait for interrupt"); is($instr->enable_srq(0, ""), 1, "Disable interrupts"); is($instr->destroy_intr_chan(), 1, "Destroy intr channel"); is($instr->abort(), 1, "Abort"); |