1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
|
#
# Copyright (c) 2003 International Computer Science Institute
# All rights reserved.
#
# Redistribution and use in source and binary forms, with or without
# modification, are permitted provided that the following conditions
# are met:
# 1. Redistributions of source code must retain the above copyright
# notice, this list of conditions and the following disclaimer.
# 2. Redistributions in binary form must reproduce the above copyright
# notice, this list of conditions and the following disclaimer in the
# documentation and/or other materials provided with the distribution.
# 3. All advertising materials mentioning features or use of this software
# must display the following acknowledgement:
# This product includes software developed by ACIRI, the AT&T
# Center for Internet Research at ICSI (the International Computer
# Science Institute).
# 4. Neither the name of ACIRI nor of ICSI may be used
# to endorse or promote products derived from this software without
# specific prior written permission.
#
# THIS SOFTWARE IS PROVIDED BY ICSI AND CONTRIBUTORS ``AS IS'' AND
# ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
# IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
# ARE DISCLAIMED. IN NO EVENT SHALL ICSI OR CONTRIBUTORS BE LIABLE
# FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
# DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
# OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
# HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
# LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
# OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
# SUCH DAMAGE.
#
source misc_simple.tcl
# FOR UPDATING GLOBAL DEFAULTS:
Agent/TCP set precisionReduce_ false ; # default changed on 2006/1/24.
Agent/TCP set rtxcur_init_ 6.0 ; # Default changed on 2006/01/21
Agent/TCP set updated_rttvar_ false ; # Variable added on 2006/1/21
source support.tcl
# Uncomment the line below to use a random seed for the
# random number generator.
# ns-random 0
TestSuite instproc finish {file stoptime} {
global quiet PERL
set wrap 90
exec $PERL ../../bin/getrc -s 2 -d 3 all.tr | \
$PERL ../../bin/raw2xg -s 0.01 -m $wrap -t $file > temp.rands
exec $PERL ../../bin/getrc -s 3 -d 2 all.tr | \
$PERL ../../bin/raw2xg -a -c -p -s 0.01 -m $wrap -t $file >> \
temp.rands
exec echo $stoptime 0 >> temp.rands
if {$quiet == "false"} {
exec xgraph -bb -tk -nl -m -x time -y packets temp.rands &
}
exit 0
}
Class Topology
Topology instproc node? num {
$self instvar node_
return $node_($num)
}
Class Topology/net2 -superclass Topology
Topology/net2 instproc init ns {
$self instvar node_
set node_(s1) [$ns node]
set node_(s2) [$ns node]
set node_(r1) [$ns node]
set node_(r2) [$ns node]
set node_(s3) [$ns node]
set node_(s4) [$ns node]
$self next
$ns duplex-link $node_(s1) $node_(r1) 10Mb 2ms DropTail
$ns duplex-link $node_(s2) $node_(r1) 10Mb 3ms DropTail
$ns duplex-link $node_(r1) $node_(r2) 1.5Mb 20ms RED
$ns queue-limit $node_(r1) $node_(r2) 50
$ns queue-limit $node_(r2) $node_(r1) 50
$ns duplex-link $node_(s3) $node_(r2) 10Mb 4ms DropTail
$ns duplex-link $node_(s4) $node_(r2) 10Mb 5ms DropTail
}
Class Test/oneTCP -superclass TestSuite
Test/oneTCP instproc init {} {
$self instvar net_ test_ guide_ stopTime1_
set net_ net2
set test_ oneTCP
set guide_ \
"Example validation test with TCP, packet traces."
set stopTime1_ 10
Agent/TCP set window_ 64
$self next pktTraceFile
}
Test/oneTCP instproc run {} {
global quiet
$self instvar ns_ node_ testName_ guide_ stopTime1_
puts "Guide: $guide_"
$self setTopo
set stopTime $stopTime1_
set tcp1 [$ns_ create-connection TCP/Sack1 $node_(s1) TCPSink/Sack1 $node_(s3) 0]
set ftp [new Application/FTP]
$ftp attach-agent $tcp1
$ns_ at 0 "$ftp produce 100"
$ns_ at 3 "$ftp producemore 1000"
$ns_ at $stopTime "$self cleanupAll $testName_ $stopTime"
$ns_ run
}
Class Test/twoTCPs -superclass TestSuite
Test/twoTCPs instproc init {} {
$self instvar net_ test_ guide_ stopTime1_
set net_ net2
set test_ twoTCPs
set guide_ \
"Example validation test with two TCPs, packet traces."
set stopTime1_ 10
Agent/TCP set window_ 64
$self next pktTraceFile
}
Test/twoTCPs instproc run {} {
global quiet
$self instvar ns_ node_ testName_ guide_ stopTime1_
puts "Guide: $guide_"
$self setTopo
set stopTime $stopTime1_
set tcp1 [$ns_ create-connection TCP/Sack1 $node_(s1) TCPSink/Sack1 $node_(s3) 0]
set ftp [new Application/FTP]
$ftp attach-agent $tcp1
$ns_ at 0 "$ftp produce 100"
$ns_ at 3 "$ftp producemore 1000"
set tcp2 [$ns_ create-connection TCP/Sack1 $node_(s1) TCPSink/Sack1 $node_(s3) 1]
$tcp2 set window 8
set ftp2 [new Application/FTP]
$ftp2 attach-agent $tcp2
$ns_ at 1.0 "$ftp2 produce 100"
$ns_ at $stopTime "$self cleanupAll $testName_ $stopTime"
$ns_ run
}
Class Test/oneTFRC -superclass TestSuite
Test/oneTFRC instproc init {} {
$self instvar net_ test_ guide_ stopTime1_
set net_ net2
set test_ oneTFRC
set guide_ \
"Example validation test with TFRC, packet traces."
set stopTime1_ 10
Agent/TFRC set SndrType_ 1
$self next pktTraceFile
}
Test/oneTFRC instproc run {} {
global quiet
$self instvar ns_ node_ testName_ guide_ stopTime1_
puts "Guide: $guide_"
$self setTopo
set stopTime $stopTime1_
set tf1 [$ns_ create-connection TFRC $node_(s1) TFRCSink $node_(s3) 0]
set ftp [new Application/FTP]
$ftp attach-agent $tf1
$ns_ at 0 "$ftp produce 100"
$ns_ at 3 "$ftp producemore 1000"
$ns_ at $stopTime "$self cleanupAll $testName_ $stopTime"
$ns_ run
}
TestSuite runTest
|
