Commit e38a6e95 authored by Christopher Alfeld's avatar Christopher Alfeld

Created mini versions of some tests so that the generic lists will all run

on connectivity 2 testbeds.
parent 653ab6d3
......@@ -5,11 +5,12 @@ delaylan1
delaylink
lan1
negprerun
nodes
set-ip
mini_nodes
mini_set-ip
simplelink
singlenode
tbcmd
trivial
fixed
simplex
mini_multilink
......@@ -5,8 +5,9 @@ delaylan1
delaylink
lan1
negprerun
nodes
set-ip
mini_nodes
mini_set-ip
simplelink
singlenode
trivial
mini_multilink
Two nodes connceted by undelayed links.
source tb_compat.tcl
set ns [new Simulator]
set node1 [$ns node]
set node2 [$ns node]
$ns duplex-link $node1 $node2 100Mb 0ms DropTail
$ns duplex-link $node1 $node2 100Mb 0ms DropTail
$ns duplex-link $node1 $node2 100Mb 0ms DropTail
$ns duplex-link $node1 $node2 100Mb 0ms DropTail
$ns run
tb_prerun("tbprerun",0);
tb_run("tbswapin",0);
tb_run("tbswapout",0);
tb_run("tbswapin",0);
tb_run("tbswapout",0);
tb_run("tbend",0);
Six nodes:
node2 - node0 - node1
|
node4 node3 - node4
node0 to node3 is delayed.
set ns [new Simulator]
set node0 [$ns node]
set node1 [$ns node]
set node3 [$ns node]
set node4 [$ns node]
set node5 [$ns node]
$ns duplex-link $node0 $node1 100Mb .1ms DropTail
$ns duplex-link $node0 $node3 10Mb 100ms DropTail
$ns duplex-link $node3 $node4 100Mb .1ms DropTail
$ns duplex-link $node3 $node5 100Mb .1ms DropTail
$ns run
tb_prerun("tbprerun",0);
tb_run("tbswapin",0);
tb_run("tbswapout",0);
tb_run("tbswapin",0);
tb_run("tbswapout",0);
tb_run("tbend",0);
Sets up a basic topology and then tries out all the tb-set-ip commands.
source tb_compat.tcl
set ns [new Simulator]
set node0 [$ns node]
set node1 [$ns node]
set node2 [$ns node]
set lan0 [$ns make-lan "$node0 $node1 $node2" 100Mb 0ms]
set node3 [$ns node]
set link0 [$ns duplex-link $node0 $node3 100Mb 0ms DropTail]
set node4 [$ns node]
$ns duplex-link $node4 $node2 100Mb 0ms DropTail
tb-set-ip $node4 1.0.4.1
tb-set-ip-interface $node2 $node4 1.0.0.1
tb-set-ip-link $node0 $link0 1.0.0.2
tb-set-ip-lan $node0 $lan0 1.0.0.3
$ns run
tb_prerun("tbprerun",0);
tb_run("tbswapin",0);
tb_run("tbswapout",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