Ticket #537: nns_failure.amc

File nns_failure.amc, 924 bytes (added by westram, 11 years ago)

demonstrate failure of next neighbour search (with demo.arb)

Line 
1#!/usr/bin/perl
2use strict;
3use warnings;
4
5use lib "$ENV{'ARBHOME'}/lib/";
6use ARB;
7
8my $gb_main = ARB::open(":","r");
9if (not $gb_main) {
10  my $error = ARB::await_error();
11  die "$error";
12}
13
14# recording started @ Tue May 13 15:17:37 2014
15BIO::remote_action($gb_main,'ARB_NT','pt_server_admin');
16BIO::remote_awar($gb_main,'ARB_NT','tmp/probe_admin/pt_server','6');
17BIO::remote_action($gb_main,'ARB_NT','PT_SERVER_ADMIN/UPDATE_SERVER');
18BIO::remote_action($gb_main,'ARB_NT','ARB_NT/SEARCH');
19BIO::remote_action($gb_main,'ARB_NT','SPECIES_QUERY/SEARCH_spec');
20BIO::remote_awar($gb_main,'ARB_NT','tmp/dbquery_spec/select','ArtGlobi');
21BIO::remote_action($gb_main,'ARB_NT','spec_search_next_relativ_of_sel');
22BIO::remote_action($gb_main,'ARB_NT','SEARCH_NEXT_RELATIVE_OF_SELECTED/SEARCH');
23BIO::remote_action($gb_main,'ARB_NT','PT_SERVER_ADMIN/KILL_SERVER');
24# recording stopped @ Tue May 13 15:18:20 2014
25ARB::close($gb_main);