mirror of
https://github.com/freebsd/freebsd-src
synced 2024-10-05 08:00:30 +00:00
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
ecaecbc7d8
commit
784d339257
Notes:
svn2git
2020-12-20 02:59:44 +00:00
svn path=/head/; revision=280773
|
@ -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…
Reference in a new issue