All new accounts created on Gitlab now require administrator approval. If you invite any collaborators, please let Flux staff know so they can approve the accounts.

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