ua1zbe
/
aprsc
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

load test: tune parameters a bit 

git-svn-id: http://repo.ham.fi/svn/aprsc/trunk@498 3ce903b1-3385-4e86-93cd-f9a4a239f7ac
This commit is contained in:
Heikki Hannikainen 2012-07-25 22:02:38 +00:00
parent a634554ec1
commit 517e4097ae
1 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
tests/t/51load.t
View File

@ -34,10 +34,11 @@ sleep(0.5);
############################################
my $flush_interval = 300;
my $flush_interval = 500;
#$flush_interval = 300;
my $bytelimit = 4*1024*1024;
my $window = 64*1024;
#my $window = 4*1024;
#my $window = 2*1024;
my $outstanding = 0;
my $txn = 0;
my $rxn = 0;
@ -66,10 +67,10 @@ while ($txl < $bytelimit) {
$txq = '';
}
while (($outstanding > $window) && (my $rx = $i_rx->getline_noncomment(0))) {
while (($outstanding > $window) && (my $rx = $i_rx->getline_noncomment(1))) {
my $exp = shift @l;
if ($exp ne $rx) {
warn "Ouch, received wrong packet: $rx\n";
warn "Ouch, received wrong packet: $rx\nExpected: $exp";
}
my $rx_l = length($rx) + 2;
$outstanding -= $rx_l;