test: remove debug warns

This commit is contained in:
Heikki Hannikainen 2016-08-05 23:24:56 +03:00
parent 23f9903afd
commit 8e82b48900
1 changed files with 0 additions and 7 deletions

View File

@ -12,27 +12,20 @@ ok(1); # If we made it this far, we're ok.
my $upstream_call = 'FAKEUP';
warn "setting up first listener...\n";
my $iss1 = new Ham::APRS::IS_Fake('127.0.0.1:54153', $upstream_call);
ok(defined $iss1, 1, "Test failed to initialize listening server socket (IPv4)");
warn "binding and listen...\n";
$iss1->bind_and_listen();
warn "running...\n";
my $p = new runproduct('uplinks');
ok(defined $p, 1, "Failed to initialize product runner");
ok($p->start(), 1, "Failed to start product");
warn "started\n";
my $login = "N5CAL-1";
my $server_call = "TESTING";
my $i_rx = new Ham::APRS::IS("127.0.0.1:55152", $login);
ok(defined $i_rx, 1, "Failed to initialize Ham::APRS::IS");
#warn "accepting\n";
my $is1 = $iss1->accept();
ok(defined $is1, (1), "Failed to accept connection 1 from server");
ok($iss1->process_login($is1), 'ok', "Failed to accept login 1 from server");