test-suite-tcpvariants.tcl

ns-2的文件包。多多下载

Test/fourdrops_tahoe instproc run {} {
        $self setup Tahoe {14 24 26 28}
}

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

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

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

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

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

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

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

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

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

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

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

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

###################################################
## Multiple drops
###################################################

Class Test/multiple_tahoe -superclass TestSuite
Test/multiple_tahoe instproc init {} {
	$self instvar net_ test_
	set net_	net4
	set test_	multiple_tahoe
	$self next pktTraceFile
}
Test/multiple_tahoe instproc run {} {
        $self setup Tahoe {11 12 13 14 16 17 18 19 }
}

## This can result in an unnecessary packet transmission, unless the
## Limited Transmit option checks not to send packets less than maxseq_,
## the highest sequence number sent to far.
Class Test/multiple_SA_tahoe -superclass TestSuite
Test/multiple_SA_tahoe instproc init {} {
	$self instvar net_ test_
	set net_	net4
	set test_	multiple_SA_tahoe
	Agent/TCP set singledup_ 1
	Test/multiple_SA_tahoe instproc run {} [Test/multiple_tahoe info instbody run ]
	$self next pktTraceFile
}

Class Test/multiple_reno -superclass TestSuite
Test/multiple_reno instproc init {} {
	$self instvar net_ test_
	set net_	net4
	set test_	multiple_reno
	$self next pktTraceFile
}
Test/multiple_reno instproc run {} {
	$self setup Reno {11 12 13 14 16 17 18 19 }
}

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

Class Test/multiple_newreno -superclass TestSuite
Test/multiple_newreno instproc init {} {
	$self instvar net_ test_
	set net_	net4
	set test_	multiple_newreno
	$self next pktTraceFile
}
Test/multiple_newreno instproc run {} {
	$self setup Newreno {11 12 13 14 16 17 18 19 }
}

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

Class Test/multiple_sack -superclass TestSuite
Test/multiple_sack instproc init {} {
	$self instvar net_ test_
	set net_	net4
	set test_	multiple_sack
	$self next pktTraceFile
}
Test/multiple_sack instproc run {} {
	$self setup Sack1 {11 12 13 14 16 17 18 19 } 
}

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

# Partial_ack 
Class Test/multiple_partial_ack_sack -superclass TestSuite
Test/multiple_partial_ack_sack instproc init {} {
	$self instvar net_ test_
	set net_	net4
	set test_	multiple_partial_ack_sack
	Agent/TCP set partial_ack_ 1
	Test/multiple_partial_ack_sack instproc run {} [Test/multiple_sack info instbody run ]
	$self next pktTraceFile
}

###################################################
## Multiple drops, scenario #2
###################################################

Class Test/multiple2_tahoe -superclass TestSuite
Test/multiple2_tahoe instproc init {} {
	$self instvar net_ test_
	set net_	net4
	set test_	multiple2_tahoe
	$self next pktTraceFile
}
Test/multiple2_tahoe instproc run {} {
        $self setup Tahoe {11 12 13 14 16 }
	# $self setup Tahoe {11 12 13 14 16 17 18 19 }
}

## This can result in an unnecessary packet transmission, unless the
## Limited Transmit option checks not to send packets less than maxseq_,
## the highest sequence number sent to far.
Class Test/multiple2_SA_tahoe -superclass TestSuite
Test/multiple2_SA_tahoe instproc init {} {
	$self instvar net_ test_
	set net_	net4
	set test_	multiple2_SA_tahoe
	Agent/TCP set singledup_ 1
	Test/multiple2_SA_tahoe instproc run {} [Test/multiple2_tahoe info instbody run ]
	$self next pktTraceFile
}

Class Test/multiple2_reno -superclass TestSuite
Test/multiple2_reno instproc init {} {
	$self instvar net_ test_
	set net_	net4
	set test_	multiple2_reno
	$self next pktTraceFile
}
Test/multiple2_reno instproc run {} {
	$self setup Reno {11 12 13 14 16 }
}

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

Class Test/multiple2_newreno -superclass TestSuite
Test/multiple2_newreno instproc init {} {
	$self instvar net_ test_
	set net_	net4
	set test_	multiple2_newreno
	$self next pktTraceFile
}
Test/multiple2_newreno instproc run {} {
	$self setup Newreno {11 12 13 14 16 }
}

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

Class Test/multiple2_sack -superclass TestSuite
Test/multiple2_sack instproc init {} {
	$self instvar net_ test_
	set net_	net4
	set test_	multiple2_sack
	$self next pktTraceFile
}
Test/multiple2_sack instproc run {} {
	$self setup Sack1 {11 12 13 14 16 } 
}

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

# Partial_ack 
# Because partial_ack is used, there is an unnecessary packet retransmission.
#  Partial_ack needs to be made smarter, not to retransmit a packet that
#  has just been sent?
Class Test/multiple2_partial_ack_sack -superclass TestSuite
Test/multiple2_partial_ack_sack instproc init {} {
	$self instvar net_ test_
	set net_	net4
	set test_	multiple2_partial_ack_sack
	Agent/TCP set partial_ack_ 1
	Test/multiple2_partial_ack_sack instproc run {} [Test/multiple2_sack info instbody run ]
	$self next pktTraceFile
}

TestSuite runTest