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);
|
Timeout => 3);
|
||||||
die "Could not connect to host $local port $tcpport" unless \$s;
|
die "Could not connect to host $local port $tcpport" unless \$s;
|
||||||
close \$s;
|
close \$s;
|
||||||
|
sleep(2);
|
||||||
EOPERL
|
EOPERL
|
||||||
|
|
||||||
$dtrace -c '/usr/bin/perl test.pl' -qs /dev/stdin <<EODTRACE
|
$dtrace -c '/usr/bin/perl test.pl' -qs /dev/stdin <<EODTRACE
|
||||||
|
@ -76,6 +76,7 @@ cat > test.pl <<-EOPERL
|
|||||||
Timeout => 3);
|
Timeout => 3);
|
||||||
die "Could not connect to host $dest port $tcpport" unless \$s;
|
die "Could not connect to host $dest port $tcpport" unless \$s;
|
||||||
close \$s;
|
close \$s;
|
||||||
|
sleep(2);
|
||||||
EOPERL
|
EOPERL
|
||||||
|
|
||||||
$dtrace -c '/usr/bin/perl test.pl' -qs /dev/stdin <<EODTRACE
|
$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;
|
die "Could not connect to host $local port $tcpport" unless \$s;
|
||||||
print \$s "testing state machine transitions";
|
print \$s "testing state machine transitions";
|
||||||
close \$s;
|
close \$s;
|
||||||
|
sleep(2);
|
||||||
EOPERL
|
EOPERL
|
||||||
|
|
||||||
$dtrace -c '/usr/bin/perl test.pl' -qs /dev/stdin <<EODTRACE
|
$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;
|
die "Could not connect to host $dest port $tcpport" unless \$s;
|
||||||
print \$s "testing state machine transitions";
|
print \$s "testing state machine transitions";
|
||||||
close \$s;
|
close \$s;
|
||||||
|
sleep(2);
|
||||||
EOPERL
|
EOPERL
|
||||||
|
|
||||||
$dtrace -c '/usr/bin/perl test.pl' -qs /dev/stdin <<EODTRACE
|
$dtrace -c '/usr/bin/perl test.pl' -qs /dev/stdin <<EODTRACE
|
||||||
|
Loading…
Reference in New Issue
Block a user