Commit ef307bd6 authored by Robert Ricci's avatar Robert Ricci

Two new tests: widearea_types and widearea_mapped . Both request

widearea nodes, the former by asking for types, the latter by asking
for a specific toplogy.

These are only frontend tests, so they don't test that setup on the
nodes is done correctly, something we'll want to add tests for
eventually.
parent d44fa49e
......@@ -21,3 +21,5 @@ vtypes
simplex
red
cbr
widearea_types
widearea_mapped
A widearea test that asks for specific links between nodes, which must be
mapped with the WAN solver.
set ns [new Simulator]
source tb_compat.tcl
set nodeA [$ns node]
set nodeB [$ns node]
set nodeC [$ns node]
tb-set-hardware $nodeA pcvron
tb-set-hardware $nodeB pcvron
tb-set-hardware $nodeC pcvron
set link0 [$ns duplex-link $nodeA $nodeB 2Mb 50ms DropTail]
set link1 [$ns duplex-link $nodeA $nodeC 1Mb 75ms DropTail]
set link2 [$ns duplex-link $nodeB $nodeC 0.5Mb 100ms 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);
Tests widearea nodes, using general types, such as Internet, Internet2, etc.
set ns [new Simulator]
source tb_compat.tcl
set nodeA [$ns node]
set nodeB [$ns node]
set nodeC [$ns node]
set nodeD [$ns node]
set nodeE [$ns node]
tb-set-hardware $nodeA pcvroninet2
tb-set-hardware $nodeB pcvroninet
tb-set-hardware $nodeC pcvronintl
tb-set-hardware $nodeD pcvrondsl
tb-set-hardware $nodeE pcvwainet
$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