diff --git a/tests/t/22qconstr-uplink.t b/tests/t/22qconstr-uplink.t index e752aa9..245715b 100644 --- a/tests/t/22qconstr-uplink.t +++ b/tests/t/22qconstr-uplink.t @@ -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";