Commit c5ef5b96 authored by Christopher Alfeld's avatar Christopher Alfeld

The basic test except pc1 throgh pc10 are reserved already.

parent 4e83629d
insert into reserved values ('pc1','testbed','unavailable',0,'1');
insert into reserved values ('pc2','testbed','unavailable',0,'2');
insert into reserved values ('pc3','testbed','unavailable',0,'3');
insert into reserved values ('pc4','testbed','unavailable',0,'4');
insert into reserved values ('pc5','testbed','unavailable',0,'5');
insert into reserved values ('pc6','testbed','unavailable',0,'6');
insert into reserved values ('pc7','testbed','unavailable',0,'7');
insert into reserved values ('pc8','testbed','unavailable',0,'8');
insert into reserved values ('pc9','testbed','unavailable',0,'9');
insert into reserved values ('pc10','testbed','unavailable',0,'10');
Just a basic initial test.
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]
$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