test-suite-tcpvariants.tcl

跑leach需要的

Test/onedrop_sack_full instproc init {} {
	$self instvar net_ test_
	set net_	net4
	set test_	onedrop_sack_full
	$self next pktTraceFile
}
Test/onedrop_sack_full instproc run {} {
        $self setup FullTcpSack1 {16}
}

Class Test/onedrop_fack -superclass TestSuite
Test/onedrop_fack instproc init {} {
	$self instvar net_ test_
	set net_	net4
	set test_	onedrop_fack
	$self next pktTraceFile
}
Test/onedrop_fack instproc run {} {
        $self setup Fack {14}
}

Class Test/onedrop_sackRH -superclass TestSuite
Test/onedrop_sackRH instproc init {} {
	$self instvar net_ test_
	set net_	net4
	set test_	onedrop_sackRH
	$self next pktTraceFile
}
Test/onedrop_sackRH instproc run {} {
        $self setup SackRH {14}
}

###################################################
## Two drops
###################################################

Class Test/twodrops_tahoe -superclass TestSuite
Test/twodrops_tahoe instproc init {} {
	$self instvar net_ test_
	set net_	net4
	set test_	twodrops_tahoe
	$self next pktTraceFile
}
Test/twodrops_tahoe instproc run {} {
        $self setup Tahoe {14 28}
}

Class Test/twodrops_SA_tahoe -superclass TestSuite
Test/twodrops_SA_tahoe instproc init {} {
	$self instvar net_ test_
	set net_	net4
	set test_	twodrops_SA_tahoe
	Agent/TCP set singledup_ 1
	Test/twodrops_SA_tahoe instproc run {} [Test/twodrops_tahoe info instbody run ]
	$self next pktTraceFile
}

Class Test/twodrops_tahoe_full -superclass TestSuite
Test/twodrops_tahoe_full instproc init {} {
	$self instvar net_ test_
	set net_	net4
	set test_	twodrops_tahoe_full
	$self next pktTraceFile
}
Test/twodrops_tahoe_full instproc run {} {
        $self setup FullTcpTahoe {16 30}
}

Class Test/twodrops_reno -superclass TestSuite
Test/twodrops_reno instproc init {} {
	$self instvar net_ test_
	set net_	net4
	set test_	twodrops_reno
	$self next pktTraceFile
}
Test/twodrops_reno instproc run {} {
        $self setup Reno {14 28}
}

Class Test/twodrops_SA_reno -superclass TestSuite
Test/twodrops_SA_reno instproc init {} {
	$self instvar net_ test_
	set net_	net4
	set test_	twodrops_SA_reno
	Agent/TCP set singledup_ 1
	Test/twodrops_SA_reno instproc run {} [Test/twodrops_reno info instbody run ]
	$self next pktTraceFile
}

Class Test/twodrops_reno_full -superclass TestSuite
Test/twodrops_reno_full instproc init {} {
	$self instvar net_ test_
	set net_	net4
	set test_	twodrops_reno_full
	$self next pktTraceFile
}
Test/twodrops_reno_full instproc run {} {
        $self setup FullTcp {16 30}
}

Class Test/twodrops_newreno -superclass TestSuite
Test/twodrops_newreno instproc init {} {
	$self instvar net_ test_
	set net_	net4
	set test_	twodrops_newreno
	$self next pktTraceFile
}
Test/twodrops_newreno instproc run {} {
        $self setup Newreno {14 28}
}

Class Test/twodrops_SA_newreno -superclass TestSuite
Test/twodrops_SA_newreno instproc init {} {
	$self instvar net_ test_
	set net_	net4
	set test_	twodrops_SA_newreno
	Agent/TCP set singledup_ 1
	Test/twodrops_SA_newreno instproc run {} [Test/twodrops_newreno info instbody run ]
	$self next pktTraceFile
}

Class Test/twodrops_newreno_full -superclass TestSuite
Test/twodrops_newreno_full instproc init {} {
	$self instvar net_ test_
	set net_	net4
	set test_	twodrops_newreno_full
	$self next pktTraceFile
}
Test/twodrops_newreno_full instproc run {} {
        $self setup FullTcpNewreno {16 30}
}

Class Test/twodrops_sack -superclass TestSuite
Test/twodrops_sack instproc init {} {
	$self instvar net_ test_
	set net_	net4
	set test_	twodrops_sack
	$self next pktTraceFile
}
Test/twodrops_sack instproc run {} {
        $self setup Sack1 {14 28}
}

Class Test/twodrops_SA_sack -superclass TestSuite
Test/twodrops_SA_sack instproc init {} {
	$self instvar net_ test_
	set net_	net4
	set test_	twodrops_SA_sack
	Agent/TCP set singledup_ 1
	Test/twodrops_SA_sack instproc run {} [Test/twodrops_sack info instbody run ]
	$self next pktTraceFile
}

Class Test/twodrops_sack_full -superclass TestSuite
Test/twodrops_sack_full instproc init {} {
	$self instvar net_ test_
	set net_	net4
	set test_	twodrops_sack_full
	$self next pktTraceFile
}
Test/twodrops_sack_full instproc run {} {
        $self setup FullTcpSack1 {16 30}
}

Class Test/twodrops_fack -superclass TestSuite
Test/twodrops_fack instproc init {} {
	$self instvar net_ test_
	set net_	net4
	set test_	twodrops_fack
	$self next pktTraceFile
}
Test/twodrops_fack instproc run {} {
        $self setup Fack {14 28}
}

Class Test/twodrops_sackRH -superclass TestSuite
Test/twodrops_sackRH instproc init {} {
	$self instvar net_ test_
	set net_	net4
	set test_	twodrops_sackRH
	$self next pktTraceFile
}
Test/twodrops_sackRH instproc run {} {
        $self setup SackRH {14 28}
}

###################################################
## Three drops
###################################################

Class Test/threedrops_tahoe -superclass TestSuite
Test/threedrops_tahoe instproc init {} {
	$self instvar net_ test_
	set net_	net4
	set test_	threedrops_tahoe
	$self next pktTraceFile
}
Test/threedrops_tahoe instproc run {} {
        $self setup Tahoe {14 26 28}
}

Class Test/threedrops_SA_tahoe -superclass TestSuite
Test/threedrops_SA_tahoe instproc init {} {
	$self instvar net_ test_
	set net_	net4
	set test_	threedrops_SA_tahoe
	Agent/TCP set singledup_ 1
	Test/threedrops_SA_tahoe instproc run {} [Test/threedrops_tahoe info instbody run ]
	$self next pktTraceFile
}

Class Test/threedrops_tahoe_full -superclass TestSuite
Test/threedrops_tahoe_full instproc init {} {
	$self instvar net_ test_
	set net_	net4
	set test_	threedrops_tahoe_full
	$self next pktTraceFile
}
Test/threedrops_tahoe_full instproc run {} {
        $self setup FullTcpTahoe {16 28 30}
}

Class Test/threedrops_reno -superclass TestSuite
Test/threedrops_reno instproc init {} {
	$self instvar net_ test_
	set net_	net4
	set test_	threedrops_reno
	$self next pktTraceFile
}
Test/threedrops_reno instproc run {} {
        $self setup Reno {14 26 28}
}

Class Test/threedrops_SA_reno -superclass TestSuite
Test/threedrops_SA_reno instproc init {} {
	$self instvar net_ test_
	set net_	net4
	set test_	threedrops_SA_reno
	Agent/TCP set singledup_ 1
	Test/threedrops_SA_reno instproc run {} [Test/threedrops_reno info instbody run ]
	$self next pktTraceFile
}

Class Test/threedrops_reno_full -superclass TestSuite
Test/threedrops_reno_full instproc init {} {
	$self instvar net_ test_
	set net_	net4
	set test_	threedrops_reno_full
	$self next pktTraceFile
}
Test/threedrops_reno_full instproc run {} {
        $self setup FullTcp {16 28 30}
}

Class Test/threedrops_newreno -superclass TestSuite
Test/threedrops_newreno instproc init {} {
	$self instvar net_ test_
	set net_	net4
	set test_	threedrops_newreno
	$self next pktTraceFile
}
Test/threedrops_newreno instproc run {} {
        $self setup Newreno {14 26 28}
}

Class Test/threedrops_SA_newreno -superclass TestSuite
Test/threedrops_SA_newreno instproc init {} {
	$self instvar net_ test_
	set net_	net4
	set test_	threedrops_SA_newreno
	Agent/TCP set singledup_ 1
	Test/threedrops_SA_newreno instproc run {} [Test/threedrops_newreno info instbody run ]
	$self next pktTraceFile
}

Class Test/threedrops_newreno_full -superclass TestSuite
Test/threedrops_newreno_full instproc init {} {
	$self instvar net_ test_
	set net_	net4
	set test_	threedrops_newreno_full
	$self next pktTraceFile
}
Test/threedrops_newreno_full instproc run {} {
        $self setup FullTcpNewreno {16 28 30}
}

Class Test/threedrops_sack -superclass TestSuite
Test/threedrops_sack instproc init {} {
	$self instvar net_ test_
	set net_	net4
	set test_	threedrops_sack
	$self next pktTraceFile
}
Test/threedrops_sack instproc run {} {
        $self setup Sack1 {14 26 28}
}

Class Test/threedrops_SA_sack -superclass TestSuite
Test/threedrops_SA_sack instproc init {} {
	$self instvar net_ test_
	set net_	net4
	set test_	threedrops_SA_sack
	Agent/TCP set singledup_ 1
	Test/threedrops_SA_sack instproc run {} [Test/threedrops_sack info instbody run ]
	$self next pktTraceFile
}

Class Test/threedrops_sack_full -superclass TestSuite
Test/threedrops_sack_full instproc init {} {
	$self instvar net_ test_
	set net_	net4
	set test_	threedrops_sack_full
	$self next pktTraceFile
}
Test/threedrops_sack_full instproc run {} {
        $self setup FullTcpSack1 {16 28 30}
}

Class Test/threedrops_fack -superclass TestSuite
Test/threedrops_fack instproc init {} {
	$self instvar net_ test_
	set net_	net4
	set test_	threedrops_fack
	$self next pktTraceFile
}
Test/threedrops_fack instproc run {} {
        $self setup Fack {14 26 28}
}

Class Test/threedrops_sackRH -superclass TestSuite
Test/threedrops_sackRH instproc init {} {
	$self instvar net_ test_
	set net_	net4
	set test_	threedrops_sackRH
	$self next pktTraceFile
}
Test/threedrops_sackRH instproc run {} {
        $self setup SackRH {14 26 28}
}


###################################################
## Four drops
###################################################

Class Test/fourdrops_tahoe -superclass TestSuite
Test/fourdrops_tahoe instproc init {} {
	$self instvar net_ test_
	set net_	net4
	set test_	fourdrops_tahoe
	$self next pktTraceFile
}
Test/fourdrops_tahoe instproc run {} {