test-suite-tcpoptions.tcl

来自「一款用来进行网络模拟的软件」· TCL 代码 · 共 969 行 · 第 1/3 页

        $self tcpDump $tcp1 2.0
        $self dropPkts [$ns_ link $node_(k1) $node_(r1)] $fid $list true $delay
        $self dropPkts [$ns_ link $node_(k1) $node_(r1)] $fid $list1 true $delay1

        #$self traceQueues $node_(r1) [$self openTrace 2.0 $testName_]
	$ns_ at 2.0 "$self cleanupAll $testName_"
        $ns_ run
}

# Definition of test-suite tests

###################################################
## One drop, numdupacks
###################################################

Class Test/onedrop_tahoe -superclass TestSuite
Test/onedrop_tahoe instproc init {} {
	$self instvar net_ test_ guide_
	set net_	net4
	set test_	onedrop_tahoe
	set guide_	"Tahoe TCP, numdupacks set to 3."
	$self next pktTraceFile
}
Test/onedrop_tahoe instproc run {} {
        $self setup Tahoe {3}
}

Class Test/onedrop_numdup4_tahoe -superclass TestSuite
Test/onedrop_numdup4_tahoe instproc init {} {
	$self instvar net_ test_ guide_
	set net_	net4
	set test_	onedrop_numdup4_tahoe
	set guide_	"Tahoe TCP, numdupacks set to 4."
	Agent/TCP set numdupacks_ 4
	Test/onedrop_numdup4_tahoe instproc run {} [Test/onedrop_tahoe info instbody run ]
	$self next pktTraceFile
}

Class Test/onedrop_tahoe_full -superclass TestSuite
Test/onedrop_tahoe_full instproc init {} {
	$self instvar net_ test_ guide_
	set net_	net4
	set test_	onedrop_tahoe_full
	set guide_	"Tahoe Full TCP, numdupacks set to 3."
	$self next pktTraceFile
}
Test/onedrop_tahoe_full instproc run {} {
        $self setup FullTcpTahoe {4}
}

Class Test/onedrop_numdup4_tahoe_full -superclass TestSuite
Test/onedrop_numdup4_tahoe_full instproc init {} {
	$self instvar net_ test_ guide_
	set net_	net4
	set test_	onedrop_numdup4_tahoe_full
	set guide_	"Tahoe Full TCP, numdupacks set to 4."
	Agent/TCP/FullTcp set tcprexmtthresh_ 4
	$self next pktTraceFile
}
Test/onedrop_numdup4_tahoe_full instproc run {} {
        $self setup FullTcpTahoe {4}
}

Class Test/onedrop_reno -superclass TestSuite
Test/onedrop_reno instproc init {} {
	$self instvar net_ test_ guide_
	set net_	net4
	set test_	onedrop_reno
	set guide_      "Reno TCP, numdupacks set to 3."
	$self next pktTraceFile
}
Test/onedrop_reno instproc run {} {
        $self setup Reno {3}
}

Class Test/onedrop_numdup4_reno -superclass TestSuite
Test/onedrop_numdup4_reno instproc init {} {
	$self instvar net_ test_ guide_
	set net_	net4
	set test_	onedrop_numdup4_reno
	set guide_	"Reno TCP, numdupacks set to 4."
	Agent/TCP set numdupacks_ 4
	Test/onedrop_numdup4_reno instproc run {} [Test/onedrop_reno info instbody run ]
	$self next pktTraceFile
}

Class Test/onedrop_reno_full -superclass TestSuite
Test/onedrop_reno_full instproc init {} {

	$self instvar net_ test_ guide_
	set net_	net4
	set test_	onedrop_reno_full
	set guide_	"Reno Full TCP, numdupacks set to 3."
	$self next pktTraceFile
}
Test/onedrop_reno_full instproc run {} {
        $self setup FullTcp {4}
}

Class Test/onedrop_numdup4_reno_full -superclass TestSuite
Test/onedrop_numdup4_reno_full instproc init {} {

	$self instvar net_ test_ guide_
	set net_	net4
	set test_	onedrop_numdup4_reno_full
	set guide_	"Reno Full TCP, numdupacks set to 4."
	Agent/TCP/FullTcp set tcprexmtthresh_ 4
	$self next pktTraceFile
}
Test/onedrop_numdup4_reno_full instproc run {} {
        $self setup FullTcp {4}
}

Class Test/onedrop_newreno -superclass TestSuite
Test/onedrop_newreno instproc init {} {
	$self instvar net_ test_ guide_
	set net_	net4
	set test_	onedrop_newreno
	set guide_      "NewReno TCP, numdupacks set to 3."
	$self next pktTraceFile
}
Test/onedrop_newreno instproc run {} {
        $self setup Newreno {3}
}

Class Test/onedrop_numdup4_newreno -superclass TestSuite
Test/onedrop_numdup4_newreno instproc init {} {
	$self instvar net_ test_ guide_
	set net_	net4
	set test_	onedrop_numdup4_newreno
	set guide_      "NewReno TCP, numdupacks set to 4."
	Agent/TCP set numdupacks_ 4
	Test/onedrop_numdup4_newreno instproc run {} [Test/onedrop_newreno info instbody run ]
	$self next pktTraceFile
}

Class Test/onedrop_newreno_full -superclass TestSuite
Test/onedrop_newreno_full instproc init {} {
	$self instvar net_ test_ guide_
	set net_	net4
	set test_	onedrop_newreno_full
	set guide_      "NewReno Full TCP, numdupacks set to 3."
	$self next pktTraceFile
}
Test/onedrop_newreno_full instproc run {} {
        $self setup FullTcpNewreno {4}
}

Class Test/onedrop_numdup4_newreno_full -superclass TestSuite
Test/onedrop_numdup4_newreno_full instproc init {} {
	$self instvar net_ test_ guide_
	set net_	net4
	set test_	onedrop_numdup4_newreno_full
	set guide_      "NewReno Full TCP, numdupacks set to 4."
	Agent/TCP/FullTcp set tcprexmtthresh_ 4
	$self next pktTraceFile
}
Test/onedrop_numdup4_newreno_full instproc run {} {
        $self setup FullTcpNewreno {4}
}

Class Test/onedrop_sack -superclass TestSuite
Test/onedrop_sack instproc init {} {
	$self instvar net_ test_ guide_
	set net_	net4
	set test_	onedrop_sack
	set guide_      "Sack TCP, numdupacks set to 3."
	$self next pktTraceFile
}
Test/onedrop_sack instproc run {} {
        $self setup Sack1 {3}
}

Class Test/onedrop_numdup4_sack -superclass TestSuite
Test/onedrop_numdup4_sack instproc init {} {
	$self instvar net_ test_ guide_
	set net_	net4
	set test_	onedrop_numdup4_sack
	set guide_      "Sack TCP, numdupacks set to 4."
	Agent/TCP set numdupacks_ 4
	Test/onedrop_numdup4_sack instproc run {} [Test/onedrop_sack info instbody run ]
	$self next pktTraceFile
}

# Why does the sender sent two packets for the Fast Restransmit?
Class Test/onedrop_sack_full -superclass TestSuite
Test/onedrop_sack_full instproc init {} {
	$self instvar net_ test_ guide_
	set net_	net4
	set test_	onedrop_sack_full
	set guide_      "Sack Full TCP, numdupacks set to 3."
	$self next pktTraceFile
}
Test/onedrop_sack_full instproc run {} {
       $self setup FullTcpSack1 {4}
}

Class Test/onedrop_numdup4_sack_full -superclass TestSuite
Test/onedrop_numdup4_sack_full instproc init {} {
	$self instvar net_ test_ guide_
	set net_	net4
	set test_	onedrop_numdup4_sack_full
	set guide_      "Sack Full TCP, numdupacks set to 4."
	Agent/TCP/FullTcp set tcprexmtthresh_ 4
	$self next pktTraceFile
}
Test/onedrop_numdup4_sack_full instproc run {} {
        $self setup FullTcpSack1 {4}
}

#############################################################
##  Tests for aggressive_maxburst_, for sending packets after
##     invalid ACKs.
#############################################################

Class Test/maxburst_tahoe -superclass TestSuite
Test/maxburst_tahoe instproc init {} {
	$self instvar net_ test_ guide_
	set net_	net4a
	set test_	maxburst_tahoe
	set guide_	"Tahoe TCP, maxburst set to 3."
	Agent/TCP set aggressive_maxburst_ 0
	$self next pktTraceFile
}
Test/maxburst_tahoe instproc run {} {
	Agent/TCP set maxburst_ 3
        $self setup1 Tahoe {8 9 10 11 12 } {100} {13} {0.02}
}

Class Test/maxburst_tahoe1 -superclass TestSuite
Test/maxburst_tahoe1 instproc init {} {
	$self instvar net_ test_ guide_
	set net_	net4a
	set test_	maxburst_tahoe1
	set guide_	"Tahoe TCP, maxburst set to 3, aggressive_maxburst_."
	Agent/TCP set aggressive_maxburst_ 1
	Test/maxburst_tahoe1 instproc run {} [Test/maxburst_tahoe info instbody run ]
	$self next pktTraceFile
}

Class Test/maxburst_reno -superclass TestSuite
Test/maxburst_reno instproc init {} {
	$self instvar net_ test_ guide_
	set net_	net4a
	set test_	maxburst_reno
	set guide_	"Tahoe TCP, maxburst set to 3."
	Agent/TCP set aggressive_maxburst_ 0
	$self next pktTraceFile
}
Test/maxburst_reno instproc run {} {
	Agent/TCP set maxburst_ 3
        $self setup1 Reno {8 9 10 11 12 } {100} {13} {0.02}
}

Class Test/maxburst_reno1 -superclass TestSuite
Test/maxburst_reno1 instproc init {} {
	$self instvar net_ test_ guide_
	set net_	net4a
	set test_	maxburst_reno1
	set guide_	"Reno TCP, maxburst set to 3, aggressive_maxburst_."
	Agent/TCP set aggressive_maxburst_ 1
	Test/maxburst_reno1 instproc run {} [Test/maxburst_reno info instbody run ]
	$self next pktTraceFile
}

Class Test/maxburst_newreno -superclass TestSuite
Test/maxburst_newreno instproc init {} {
	$self instvar net_ test_ guide_
	set net_	net4a
	set test_	maxburst_newreno
	set guide_	"NewReno TCP, maxburst set to 3."
	Agent/TCP set aggressive_maxburst_ 0
	$self next pktTraceFile
}
Test/maxburst_newreno instproc run {} {
	Agent/TCP set maxburst_ 3
        $self setup1 Newreno {8 9 10 11 12 } {100} {13} {0.02}
}

Class Test/maxburst_newreno1 -superclass TestSuite
Test/maxburst_newreno1 instproc init {} {
	$self instvar net_ test_ guide_
	set net_	net4a
	set test_	maxburst_newreno1
	set guide_	"NewReno TCP, maxburst set to 3, aggressive_maxburst_."
	Agent/TCP set aggressive_maxburst_ 1
	Test/maxburst_newreno1 instproc run {} [Test/maxburst_newreno info instbody run ]
	$self next pktTraceFile
}

Class Test/maxburst_sack -superclass TestSuite
Test/maxburst_sack instproc init {} {
	$self instvar net_ test_ guide_
	set net_	net4a
	set test_	maxburst_sack
	set guide_	"Sack TCP, maxburst set to 3."
	Agent/TCP set aggressive_maxburst_ 0
	$self next pktTraceFile
}
Test/maxburst_sack instproc run {} {
	Agent/TCP set maxburst_ 3
        $self setup1 Sack1 {8 9 10 11 12 } {100} {13} {0.02}
}

Class Test/maxburst_sack1 -superclass TestSuite
Test/maxburst_sack1 instproc init {} {
	$self instvar net_ test_ guide_
	set net_	net4a
	set test_	maxburst_sack1
	set guide_	"Sack TCP, maxburst set to 3, aggressive_maxburst_."
	Agent/TCP set aggressive_maxburst_ 1
	Test/maxburst_sack1 instproc run {} [Test/maxburst_sack info instbody run ]
	$self next pktTraceFile
}

###################################################
## Timeout, from a list of packets dropped.
###################################################

TestSuite instproc setup2 {tcptype list endtime} {
	global wrap wrap1 quiet
        $self instvar ns_ node_ testName_ guide_