equal
deleted
inserted
replaced
|
1 # Simulator stress test -- puts N nodes in a linear topology and then |
|
2 # sends K bundles from end to end. |
|
3 |
|
4 set N 100 |
|
5 set K 1000 |
|
6 |
|
7 sim set runtill 5000 |
|
8 sim set route_type static |
|
9 conn set type static |
|
10 |
|
11 for {set i 0} {$i < $N} {incr i} { |
|
12 set cur "node$i" |
|
13 set last "node[expr $i - 1]" |
|
14 |
|
15 sim create_node $cur |
|
16 $cur route local_eid dtn://$cur |
|
17 $cur registration add dtn://$cur/* |
|
18 |
|
19 if {$i != 0} { |
|
20 sim at 1 $last link add l-$cur $cur ONDEMAND sim |
|
21 sim at 1 $cur link add l-$last $last ONDEMAND sim |
|
22 |
|
23 sim at 2 $last route add dtn://$cur/* l-$cur |
|
24 sim at 2 $cur route add dtn://$last/* l-$last |
|
25 } |
|
26 } |
|
27 |
|
28 set dest node[expr $N - 1] |
|
29 for {set i 0} {$i < [expr $N - 1]} {incr i} { |
|
30 sim at 3 node$i route add dtn://$dest/* "l-node[expr $i + 1]" |
|
31 } |
|
32 |
|
33 sim at 2 conn up * * |
|
34 sim at 3 node0 tragent node0 dtn://$dest/test size=512 reps=$K interval=1 |
|
35 |