diff options
| author | daniel <danieruru@gmail.com> | 2013-01-23 13:17:52 +0900 |
|---|---|---|
| committer | daniel <danieruru@gmail.com> | 2013-01-23 13:17:52 +0900 |
| commit | c53ea096ab5a656f93ad2aed8d50f5dd346f91c3 (patch) | |
| tree | 5dbd48863285fe0a6f6f19fbd4b916d6ce7b4cde /libvxi11client/perlbits/VXI11-Client.t | |
| parent | 63f018d9d0a4b1ae11f9adb6f5bd3c9315b00130 (diff) | |
Update docs, add the "global" functions to the export list, add the reason from read to the stuff that gets returned.
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 8ca167b..243d8d9 100644 --- a/libvxi11client/perlbits/VXI11-Client.t +++ b/libvxi11client/perlbits/VXI11-Client.t @@ -23,7 +23,7 @@ my $instr = &VXI11::Client::vxi_open("roi", 0); is($instr->vxi_lock(0), 1, "Lock"); ok($instr->vxi_write("*IDN?", -1, 0, 0) > 0, "Write"); -my ($bytes, $buff) = $instr->vxi_read(256, 0, 0, 0); +my ($bytes, $buff, $reason) = $instr->vxi_read(256, 0, 0, 0); print "got " . $bytes . ";" . $buff . "\n"; ok($bytes > 0, "Read"); |