ua1zbe
/
aprsc
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

t/22: try to fix travis

This commit is contained in:
Heikki Hannikainen 2016-08-05 23:12:53 +03:00
parent 5e8c4e934c
commit 867e341d29
1 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
tests/t/22qconstr-uplink.t
View File

@ -12,18 +12,23 @@ ok(1); # If we made it this far, we're ok.
my $upstream_call = 'FAKEUP';
print "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)");
print "binding and listen...\n";
$iss1->bind_and_listen();
print "running...\n";
my $p = new runproduct('uplinks');
ok(defined $p, 1, "Failed to initialize product runner");
ok($p->start(), 1, "Failed to start product");
print "started\n";
my $login = "N5CAL-1";
my $server_call = "TESTING";
my $i_rx = new Ham::APRS::IS("localhost:55152", $login);
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";