Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

this shoudln't assume any ports are open/closed already

  • Loading branch information...
commit 178ba329c6c99e957afe18a932fd8fecb1415666 1 parent 43041cc
@jettero authored
Showing with 1 addition and 3 deletions.
  1. +1 −3 t/15_success.t
View
4 t/15_success.t
@@ -22,7 +22,7 @@ $SIG{__DIE__} = sub { kill 15, $kpid; exit 1 };
$SIG{ALRM} = sub { die "SIGALRM\n" };
alarm 30;
-plan tests => 2;
+plan tests => 1;
my $peerport = 64999;
my $open_socket = IO::Socket::INET->new( "localhost:$peerport" );
@@ -35,8 +35,6 @@ if( my $user = $ENV{USER} ) {
ok( do_one( "$sockport , $peerport" ), qr($sockport , $peerport : USERID) );
}
-ok( do_one( "$peerport , $sockport" ), qr($peerport , $sockport : ERROR : NO-USER) );
-
sub do_one {
$\ = "\x0d\x0a";
Please sign in to comment.
Something went wrong with that request. Please try again.