1 # Simulator stress test -- puts N nodes in a linear topology and then

     2 # sends K bundles from end to end.

     3 

     4 set N 100

     5 set K 1000

     6 

     7 sim set runtill 5000

     8 sim set route_type static

     9 conn set type static

    10 

    11 for {set i 0} {$i < $N} {incr i} {

    12     set cur "node$i"

    13     set last "node[expr $i - 1]"

    14     

    15     sim create_node $cur

    16     $cur route local_eid dtn://$cur

    17     $cur registration add dtn://$cur/*

    18     

    19     if {$i != 0} {

    20         sim at 1 $last link add l-$cur  $cur ONDEMAND sim

    21         sim at 1 $cur  link add l-$last $last ONDEMAND sim

    22         

    23         sim at 2 $last route add dtn://$cur/*  l-$cur

    24         sim at 2 $cur  route add dtn://$last/* l-$last

    25     }

    26 }

    27 

    28 set dest node[expr $N - 1]

    29 for {set i 0} {$i < [expr $N - 1]} {incr i} {

    30     sim at 3 node$i route add dtn://$dest/* "l-node[expr $i + 1]"

    31 }

    32 

    33 sim at 2 conn up * *

    34 sim at 3 node0 tragent node0 dtn://$dest/test size=512 reps=$K interval=1

    35