From 1ad9e77a1b263cca31e98f2cd9925efb0eb5e994 Mon Sep 17 00:00:00 2001
From: Sapan Bhatia <sapanb@cs.princeton.edu>
Date: Wed, 30 Jul 2008 20:47:09 +0000
Subject: [PATCH] * VNET test that runs traceroute, tcptraceroute, checks if
 they run to completion, and concords their results.

---
 qaapi/qa/tests/node/traceroutes.pl | 96 ++++++++++++++++++++++++++++++
 1 file changed, 96 insertions(+)
 create mode 100755 qaapi/qa/tests/node/traceroutes.pl

diff --git a/qaapi/qa/tests/node/traceroutes.pl b/qaapi/qa/tests/node/traceroutes.pl
new file mode 100755
index 0000000..1586dbc
--- /dev/null
+++ b/qaapi/qa/tests/node/traceroutes.pl
@@ -0,0 +1,96 @@
+#!/usr/bin/perl
+# Generate a ton of connections and check if we can see syn/ack packets via tcpdump
+
+my $guineapig="vini-veritas.net";
+my $ttraceroute="/usr/sbin/tcptraceroute";
+my $traceroute="/usr/sbin/tracepath";
+
+sub open_tcptraceroute {
+	if (!-e "$ttraceroute") {
+		die("[FAILED] Please install tcptraceroute in the slice before running this test\n");
+	}	
+	my $cmdline="$ttraceroute $guineapig";
+	my $out='';
+	my %result;
+	open TT,"$cmdline|";
+
+	while (<TT>) {
+		if (/\((\d+\.\d+\.\d+\.\d+)\)/) {
+			$result{$1}=$result{$1}+1;
+		}
+	}
+	return %result;
+
+}
+
+sub open_traceroute {
+	if (!-e "$traceroute") {
+		die("[FAILED] Please install tcptraceroute in the slice before running this test\n");
+	}	
+	my $ref=shift;
+	my $cmdline="$traceroute $guineapig";
+	my $out='';
+	my %result=%$ref;;
+	open TT,"$cmdline|";
+
+	while (<TT>) {
+		if (/\((\d+\.\d+\.\d+\.\d+)\)/) {
+			$result{$1}=$results{$1}+1;
+		}
+	}
+	return %result;
+
+}
+
+sub compare {
+	my $ref=shift;
+	my %a1=%$ref;
+	my $ret=1;
+	my $double=0;
+	my $single=0;
+	foreach (keys %a1) {
+		print "$_->".$a1{$_}."\n";
+		if ($a1{$_}==1) {
+			print "Single: $_\n";
+			$single++;
+		} elsif ($a1{$_}==2) {
+			print "Double: $_\n";
+			$double++;
+		}
+		else { die ("bug in test script");}
+
+	}
+	return ($single,$double);
+}
+
+sub alhandler {
+	print "[FAILED] Timed out waiting\n";
+	exit(-1);
+}
+
+print "Starting tcptraceroute...\n";
+if (fork==0) {
+	my %r1;
+	my $s;
+	my $d;
+
+	%r1=open_tcptraceroute;
+	%r1=open_traceroute %r1;
+	($s,$d)=compare(\%r1);
+	if ($s==0 && $d>2) {
+		print "[SUCCESS] traceroute and tcptraceroute reported the same result. $d hops.\n";
+		exit(0);
+	}
+	elsif ($s && $d>2) {
+		print "[PARTIAL SUCCESS] traceroute and tcptraceroute reported $s different hops out of $d.\n";
+	}
+	else {
+		print "[FAILED] traceroute and tcptraceroute reported different results\n";
+	}
+}
+else {
+	print "Generating connections...\n";
+	$SIG{ALRM}=\&alhandler;
+	alarm(60);
+	wait;
+}
-- 
2.47.0