From e3d04285a9460a8ab13e9725fc2febf1be63a4d9 Mon Sep 17 00:00:00 2001 From: daniel Date: Fri, 25 Jan 2013 23:09:40 +0900 Subject: docmd and better termination fix --- libvxi11client/perlbits/VXI11-Client.t | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) (limited to 'libvxi11client/perlbits/VXI11-Client.t') 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"); -- cgit