diff options
| author | daniel <danieruru@gmail.com> | 2013-01-25 23:09:40 +0900 |
|---|---|---|
| committer | daniel <danieruru@gmail.com> | 2013-01-25 23:09:40 +0900 |
| commit | e3d04285a9460a8ab13e9725fc2febf1be63a4d9 (patch) | |
| tree | 50878fe2c72bf8a3164357810d1cce576b9075d7 /libvxi11client/perlbits/VXI11-Client.t | |
| parent | 008d5f4b9f3cad2d5fe350fa525b8a2135b97785 (diff) | |
docmd and better termination fix
Diffstat (limited to 'libvxi11client/perlbits/VXI11-Client.t')
| -rw-r--r-- | libvxi11client/perlbits/VXI11-Client.t | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/libvxi11client/perlbits/VXI11-Client.t b/libvxi11client/perlbits/VXI11-Client.t index affa622..8a09a55 100644 --- a/libvxi11client/perlbits/VXI11-Client.t +++ b/libvxi11client/perlbits/VXI11-Client.t @@ -18,7 +18,8 @@ BEGIN { use_ok('VXI11::Client') }; &VXI11::Client::vxi_startinterruptserver(); -my $instr = &VXI11::Client::vxi_open("192.168.0.62", 0); +my $address = "roi"; +my $instr = &VXI11::Client::vxi_open($address, 0); is($instr->vxi_lock(0), 1, "Lock"); ok($instr->vxi_write("*idn?") > 0, "Write"); @@ -40,6 +41,7 @@ is($instr->vxi_clear(), 1, "Clear"); is($instr->vxi_trigger(), 1, "Trigger"); is($instr->vxi_local(), 1, "Local"); is($instr->vxi_remote(), 1, "Remote"); +#ok($instr->vxi_docmd(1) < 1, "docmd"); #this should fail on the bb server is($instr->vxi_unlock(), 1, "Unlock"); is($instr->vxi_close(), 1, "Close"); |