tcp provider tests: sleep for a bit after closing the socket so that
libdtrace has a chance to capture the traced data. MFC after: 1 week
This commit is contained in:
parent
e2e2bd33d3
commit
09331b0ed0
@ -73,6 +73,7 @@ cat > test.pl <<-EOPERL
|
||||
Timeout => 3);
|
||||
die "Could not connect to host $local port $tcpport" unless \$s;
|
||||
close \$s;
|
||||
sleep(2);
|
||||
EOPERL
|
||||
|
||||
$dtrace -c '/usr/bin/perl test.pl' -qs /dev/stdin <<EODTRACE
|
||||
|
@ -76,6 +76,7 @@ cat > test.pl <<-EOPERL
|
||||
Timeout => 3);
|
||||
die "Could not connect to host $dest port $tcpport" unless \$s;
|
||||
close \$s;
|
||||
sleep(2);
|
||||
EOPERL
|
||||
|
||||
$dtrace -c '/usr/bin/perl test.pl' -qs /dev/stdin <<EODTRACE
|
||||
|
@ -79,6 +79,7 @@ cat > test.pl <<-EOPERL
|
||||
die "Could not connect to host $local port $tcpport" unless \$s;
|
||||
print \$s "testing state machine transitions";
|
||||
close \$s;
|
||||
sleep(2);
|
||||
EOPERL
|
||||
|
||||
$dtrace -c '/usr/bin/perl test.pl' -qs /dev/stdin <<EODTRACE
|
||||
|
@ -84,6 +84,7 @@ cat > test.pl <<-EOPERL
|
||||
die "Could not connect to host $dest port $tcpport" unless \$s;
|
||||
print \$s "testing state machine transitions";
|
||||
close \$s;
|
||||
sleep(2);
|
||||
EOPERL
|
||||
|
||||
$dtrace -c '/usr/bin/perl test.pl' -qs /dev/stdin <<EODTRACE
|
||||
|
Loading…
x
Reference in New Issue
Block a user