From 517e4097ae4d9015ba38c8f858e899d637e084e0 Mon Sep 17 00:00:00 2001
From: Heikki Hannikainen <hessu@hes.iki.fi>
Date: Wed, 25 Jul 2012 22:02:38 +0000
Subject: [PATCH] load test: tune parameters a bit

git-svn-id: http://repo.ham.fi/svn/aprsc/trunk@498 3ce903b1-3385-4e86-93cd-f9a4a239f7ac
---
 tests/t/51load.t | 9 +++++----
 1 file changed, 5 insertions(+), 4 deletions(-)

diff --git a/tests/t/51load.t b/tests/t/51load.t
index e5aaa27..4194179 100644
--- a/tests/t/51load.t
+++ b/tests/t/51load.t
@@ -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;