Commit 9cf537e5 authored by Christopher Alfeld's avatar Christopher Alfeld

Test for tb-fix-node.

parent 90864f80
The basic initial test with fixing node1 to pc14 and node3 to pc102.
Topology:
link1 link2
+-----node4-----+
| |
node1 node2 node3
| | |
lan1---------------------
Delays:
lan1 100Mb/0ms
link1 100Mb/50ms
link2 100Mb/100ms
TB commands:
None
Warnings:
None
Errors:
None
source tb_compat.tcl
set ns [new Simulator]
set node1 [$ns node]
set node2 [$ns node]
set node3 [$ns node]
set node4 [$ns node]
set lan1 [$ns make-lan "$node1 $node2 $node3" 100Mb 0ms]
set link1 [$ns duplex-link $node4 $node1 100Mb 50ms DropTail]
set link2 [$ns duplex-link $node4 $node3 10Mb 100ms DropTail]
tb-fix-node $node1 pc14
tb-fix-node $node3 pc102
$ns run
tb_prerun("tbprerun",0);
tb_run("tbswapin",0);
tb_run("tbswapout",0);
tb_run("tbend",0);
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment