d/freebsd-skq
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Add TCP scalability testing wrapper scripts for tcpp.

Browse Source 
Sponsored by:	Juniper Networks
MFC after:	1 week
This commit is contained in:
rwatson 2010-06-22 10:46:57 +00:00
parent bd37a43770
commit 1bee12309e
2 changed files with 92 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

28
tools/tools/netrate/tcpp/parallelism.csh Normal file
View File

@ -0,0 +1,28 @@
#!/bin/csh
#
# $FreeBSD$
#
# Run tcpp -s -p 8 on the server, then this on the client.
#
# Note awkwardly hard-coded IP address below.
#
# Accepts two arguments: [filename] [csvprefix]
#
set totalbytes=4800000 # Bytes per connection
set cores=8
set trials=6
set ptcps=24 # Max TCPs concurrently
set ntcps=240 # Total TCPs over test
set nips=4 # Number of local IP addresses to use
set baseip=192.168.100.200 # First IP address to use
foreach core (`jot $cores`)
foreach trial (`jot $trials`)
set mflag=`echo $ptcps / $core | bc`
set tflag=`echo $ntcps / $core | bc`
echo -n $2,${core},${trial}, >> $1
./tcpp -c 192.168.100.102 -p $core -b $totalbytes -m $mflag \
-t $tflag -M $nips -l $baseip >> $1
end
end

64
tools/tools/netrate/tcpp/runit.pl Executable file
View File

@ -0,0 +1,64 @@
#!/usr/bin/perl
#
# $FreeBSD$
#
if ($#ARGV != 0) {
print "runit.pl kernelname\n";
exit(-1);
}
$tcpp_dir = "/rwatson/svn/base/head/tools/tools/netrate/tcpp";
($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time);
$mon++;
$year += 1900;
$date = sprintf("%04d%02d%02d", $year, $mon, $mday);
$kernel = $ARGV[0];
$outfile = $date."_".$kernel.".csv";
unlink($outfile);
open(OUTFILE, ">".$outfile) || die $outfile;
print OUTFILE "# $kernel $date\n";
print OUTFILE "# hydra1: ".`ssh root\@hydra1 uname -a`."\n";
print OUTFILE "# hydra2: ".`ssh root\@hydra2 uname -a`."\n";
print OUTFILE "#\n";
print OUTFILE "kernel,tso,lro,mtu,cores,trial,";
print OUTFILE "bytes,seconds,conns,bandwidth,user,nice,sys,intr,idle\n";
close(OUTFILE);
system("ssh root\@hydra1 killall tcpp");
system("ssh root\@hydra2 killall tcpp");
sleep(1);
system("ssh root\@hydra2 ${tcpp_dir}/tcpp -s -p 8&");
sleep(1);
sub test {
my ($kernel, $tso, $lro, $mtu) = @_;
$prefix = "$kernel,$tso,$lro,$mtu";
print "Configuring $prefix\n";
system("ssh root\@hydra1 ifconfig cxgb0 $tso $lro mtu $mtu");
system("ssh root\@hydra2 ifconfig cxgb0 $tso $lro mtu $mtu");
print "Running $prefix\n";
system("ssh root\@hydra1 '(cd $tcpp_dir ; csh parallelism.csh ".
"$outfile $prefix)'");
}
# Frobbing MTU requires resetting the host cache, which we don't do,
# so don't frob MTU.
@mtu_options = ("1500");
@tso_options = ("tso", "-tso");
@lro_options = ("lro", "-lro");
foreach $mtu (@mtu_options) {
foreach $tso (@tso_options) {
foreach $lro (@lro_options) {
sleep(5);
test($kernel, $tso, $lro, $mtu);
}
}
}