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
|
#
Agent/TCP set tcpTick_ 0.1
# The default for tcpTick_ is being changed to reflect a changing reality.
Agent/TCP set rfc2988_ false
# The default for rfc2988_ is being changed to true.
# Copyright (c) 1998 University of Southern California.
# All rights reserved.
#
# Redistribution and use in source and binary forms are permitted
# provided that the above copyright notice and this paragraph are
# duplicated in all such forms and that any documentation, advertising
# materials, and other materials related to such distribution and use
# acknowledge that the software was developed by the University of
# Southern California, Information Sciences Institute. The name of the
# University may not be used to endorse or promote products derived from
# this software without specific prior written permission.
#
# THIS SOFTWARE IS PROVIDED "AS IS" AND WITHOUT ANY EXPRESS OR IMPLIED
# WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED WARRANTIES OF
# MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE.
#
# @(#) $Header: /cvsroot/nsnam/ns-2/tcl/test/test-suite-manual-routing.tcl,v 1.7 2006/01/24 23:00:06 sallyfloyd Exp $
#
#
# invoked as ns $file $t [QUIET]
# expected to pop up xgraph output (unless QUIET)
# and to leave the plot in temp.rands
#
proc usage {} {
puts stderr {usage: ns test-suite-manual-routing.tcl test [QUIET]
Test suites for manual routing.
}
exit 1
}
remove-all-packet-headers ; # removes all except common
add-packet-header Flags IP TCP ; # hdrs reqd for validation test
# 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
Agent/TCP set minrto_ 1
# default changed on 10/14/2004.
Agent/TCP set useHeaders_ false
# The default is being changed to useHeaders_ true.
global in_test_suite
set in_test_suite 1
source ../ex/many_tcp.tcl
# these are fakes for test-all
Class Test/one_client
proc main {} {
global argv
#
# Icky icky icky.
# We slap a test-suite-friendly interface over
# the otherwise nice interface provided by
# rbp_demo.tcl.
#
set graph 1
foreach i $argv {
switch $i {
quiet {
set graph 0
}
QUIET {
set graph 0
}
one_client {
set args "-duration 10 -initial-client-count 1 -client-arrival-rate 0"
set title $i
}
}
}
# Always set ns-random-seed so we get the same results every time.
new Main "-graph-results $graph -ns-random-seed 1 -test-suite 1 -title $title $args"
}
main
|
