From: Sapan Bhatia <sapanb@cs.princeton.edu>
Date: Fri, 1 Aug 2008 02:07:13 +0000 (+0000)
Subject: (no commit message)
X-Git-Tag: tests-4.3-0~124
X-Git-Url: http://git.onelab.eu/?a=commitdiff_plain;h=25e4927cecf8a2f800be6624e22f30a33baf930c;p=tests.git

---

diff --git a/node_tests/ping.pl b/node_tests/ping.pl
index 48b2e7f..352dbf2 100755
--- a/node_tests/ping.pl
+++ b/node_tests/ping.pl
@@ -9,17 +9,12 @@ use threads;
 
 #please change to something local
 my $guineapig='planetlab-1.cs.princeton.edu';
-my $numiter=1000;
+my $numiter=10000;
 
 sub run {
-	system("ping $guineapig");
+	system("ping -c $numiter -i 0.1 $guineapig");
 	}
 
-sub mfetch {
-	foreach (1..$numiter) {
-		run;
-	}
-}
 
 sub launch {
 	my @tarray;
@@ -52,6 +47,6 @@ print "Generating connections...\n";
 launch;
 $SIG{ALRM}=\&alhandler;
 alarm(60);
+
 $tcpdthr->join;
-$numsynacks++;
-print "[SUCCESS] Test completed OK. $numsynacks SYN/ACK packets intercepted.\n";
+print "[SUCCESS] Test completed OK.\n";