开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > Windows编程 > 通讯编程 > 查看源码
test-suite-mpls.tcl
资源名称：ns-allinone-2.33.tar.gz　[点击查看]
上传用户：rrhhcc
上传日期：2015-12-11
资源大小：54129k
文件大小：16k
源码类别：

通讯编程

开发平台：

Visual C++

test-suite-mpls.tcl：源码内容
  1. # -*- Mode:tcl; tcl-indent-level:8; tab-width:8; indent-tabs-mode:t -*-
  2. #
  3. # Time-stamp: <2000-09-11 15:22:45 haoboy>
  4. #
  5. # Copyright (c) 1995 The Regents of the University of California.
  6. # All rights reserved.
  7. #
  8. # Redistribution and use in source and binary forms, with or without
  9. # modification, are permitted provided that the following conditions
  10. # are met:
  11. # 1. Redistributions of source code must retain the above copyright
  12. #    notice, this list of conditions and the following disclaimer.
  13. # 2. Redistributions in binary form must reproduce the above copyright
  14. #    notice, this list of conditions and the following disclaimer in the
  15. #    documentation and/or other materials provided with the distribution.
  16. # 3. All advertising materials mentioning features or use of this software
  17. #    must display the following acknowledgement:
  18. # This product includes software developed by the Computer Systems
  19. # Engineering Group at Lawrence Berkeley Laboratory.
  20. # 4. Neither the name of the University nor of the Laboratory may be used
  21. #    to endorse or promote products derived from this software without
  22. #    specific prior written permission.
  23. #
  24. # THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
  25. # ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
  26. # IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
  27. # ARE DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
  28. # FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
  29. # DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
  30. # OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
  31. # HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
  32. # LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
  33. # OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
  34. # SUCH DAMAGE.
  35. #
  36. # $Header: /cvsroot/nsnam/ns-2/tcl/test/test-suite-mpls.tcl,v 1.6 2005/06/11 04:42:09 sfloyd Exp $
  38. remove-all-packet-headers       ; # removes all except common
  39. add-packet-header Flags IP RTP TCP MPLS LDP ; # hdrs reqd for validation test
  40.  
  41. # FOR UPDATING GLOBAL DEFAULTS:
  43. Class TestSuite
  45. TestSuite instproc init { name } {
  46. $self instvar ns_ totalpkt_ testname_
  47. set testname_ $name
  48. set ns_ [new Simulator]
  49. set totalpkt_ 0
  50. }
  52. TestSuite instproc finish args {
  53. $self instvar traceFile_ ns_
  54. $self recv-pkts
  55. global quiet
  56. if { $quiet != "true" } {
  57. $ns_ flush-trace
  58. close $traceFile_
  59. }
  60. exit 0
  61. }
  63. TestSuite instproc openTrace { stopTime } {
  64. $self instvar ns_ traceFile_ testname_
  65. global quiet
  66. if { $quiet != "true" } {
  67. set traceFile_ [open $testname_.nam w]
  68. $ns_ namtrace-all $traceFile_
  69. }
  70. $ns_ at $stopTime "$self finish"
  71. }
  73. TestSuite instproc attach-expoo-traffic { node sink size burst idle rate } {
  74. $self instvar ns_
  76. set udp [new Agent/UDP]
  77. $ns_ attach-agent $node $udp
  79. set traffic [new Application/Traffic/Exponential]
  80. $traffic set packetSize_ $size
  81. $traffic set burst_time_ $burst
  82. $traffic set idle_time_ $idle
  83. $traffic set rate_ $rate
  84. $traffic attach-agent $udp
  86. $ns_ connect $udp $sink
  87. return $traffic
  88. }
  90. TestSuite instproc record {} {
  91.         $self instvar sink0_ totalpkt_ ns_
  92. # Set the time after which the procedure should be called again
  93.         set time 0.005
  94. # How many bytes have been received by the traffic sink?
  95.         set bw0 [$sink0_ set bytes_]
  96. # Get the current time
  97.         set now [$ns_ now]
  98. # Calculate the bandwidth (in MBit/s) and write it to the file
  99. puts "$now [expr $bw0/$time*8/1000000]"
  100. # Reset the bytes_ values on the traffic sink
  101.         $sink0_ set bytes_ 0
  102. #Re-schedule the procedure
  103.         $ns_ at [expr $now+$time] "$self record"
  104.         set bw0 [expr $bw0 / 200]
  105.         set totalpkt_ [expr $totalpkt_ + $bw0]
  106. }
  108. TestSuite instproc recv-pkts {} {
  109. $self instvar totalpkt_
  110. flush stdout
  111. puts "The Number of Total received packet is $totalpkt_"
  112. }
  114. TestSuite instproc run {} {
  115. $self instvar ns_
  116. $ns_ run
  117. }
  119. proc usage {} {
  120. global argv0
  121. puts stderr "usage: ns $argv0 <tests> [<quiet>]"
  122. puts stderr "Valid tests are:t[get-subclasses TestSuite Test/]"
  123. exit 1
  124. }
  126. proc isProc? {cls prc} {
  127. if [catch "Object info subclass $cls/$prc" r] {
  128. global argv0
  129. puts stderr "$argv0: no such $cls: $prc"
  130. usage
  131. }
  132. }
  134. proc get-subclasses {cls pfx} {
  135. set ret ""
  136. set l [string length $pfx]
  138. set c $cls
  139. while {[llength $c] > 0} {
  140. set t [lindex $c 0]
  141. set c [lrange $c 1 end]
  142. if [string match ${pfx}* $t] {
  143. lappend ret [string range $t $l end]
  144. }
  145. eval lappend c [$t info subclass]
  146. }
  147. set ret
  148. }
  150. TestSuite proc runTest {} {
  151. global argc argv quiet
  153. set quiet false
  154. switch $argc {
  155. 1 {
  156. set test $argv
  157. isProc? Test $test
  158. set topo ""
  159. }
  160. 2 {
  161. set test [lindex $argv 0]
  162. isProc? Test $test
  163. set extra [lindex $argv 1]
  164. if {$extra == "QUIET"} {
  165. set quiet true
  166. }
  167. }
  168. default {
  169. usage
  170. }
  171. }
  172. set t [new Test/$test $test]
  173. $t run
  174. }
  176. Class Test/simple -superclass TestSuite
  178. Test/simple instproc recv-pkts {} {
  179. # Nothing, since we do not do record{}.
  180. }
  182. Test/simple instproc init args {
  183. eval $self next $args
  184. $self instvar ns_
  186. Classifier/Addr/MPLS set control_driven_ 1
  188. # Turn on all traces to stdout
  189. Agent/LDP set trace_ldp_ 1
  190. Classifier/Addr/MPLS set trace_mpls_ 1
  192. $self openTrace 5.0
  194. set Node0  [$ns_ node]
  195. set Node1  [$ns_ node]
  196. $ns_ node-config -MPLS ON
  197. set LSR2   [$ns_ node]
  198. set LSR3   [$ns_ node]
  199. set LSR4   [$ns_ node]
  200. set LSR5   [$ns_ node]
  201. set LSR6   [$ns_ node]
  202. set LSR7   [$ns_ node]
  203. set LSR8   [$ns_ node]
  204. $ns_ node-config -MPLS OFF
  205. set Node9  [$ns_ node]
  206. set Node10 [$ns_ node]
  208. $ns_ duplex-link $Node0 $LSR2  1Mb  10ms DropTail
  209. $ns_ duplex-link $Node1 $LSR2  1Mb  10ms DropTail
  210. $ns_ duplex-link $LSR2  $LSR3  1Mb  10ms DropTail
  211. $ns_ duplex-link $LSR3  $LSR4  1Mb  10ms DropTail
  212. $ns_ duplex-link $LSR4  $LSR8  1Mb  10ms DropTail
  213. $ns_ duplex-link $LSR2  $LSR5  1Mb  10ms DropTail
  214. $ns_ duplex-link $LSR5  $LSR6  1Mb  10ms DropTail
  215. $ns_ duplex-link $LSR5  $LSR4  1Mb  10ms DropTail
  216. $ns_ duplex-link $LSR6  $LSR7  1Mb  10ms DropTail
  217. $ns_ duplex-link $LSR6  $LSR8  1Mb  10ms DropTail
  218. $ns_ duplex-link $LSR7  $LSR8  1Mb  10ms DropTail
  219. $ns_ duplex-link $LSR7  $Node9  1Mb  10ms DropTail
  220. $ns_ duplex-link $LSR8  $Node10 1Mb  10ms DropTail
  222. #
  223. # configure ldp agents on all mpls nodes
  224. #
  225. for {set i 2} {$i < 9} {incr i} {
  226. for {set j [expr $i+1]} {$j < 9} {incr j} {
  227. set a LSR$i
  228. set b LSR$j
  229. eval $ns_ LDP-peer $$a $$b
  230. }
  231. }
  233. #
  234. # set ldp-message clolr
  235. #
  236. $ns_ ldp-request-color       blue
  237. $ns_ ldp-mapping-color       red
  238. $ns_ ldp-withdraw-color      magenta
  239. $ns_ ldp-release-color       orange
  240. $ns_ ldp-notification-color  yellow
  242. #
  243. # make agent to send packets
  244. #
  245. set Src0 [new Application/Traffic/CBR]
  246. set udp0 [new Agent/UDP]
  247. $Src0 attach-agent $udp0
  248. $ns_ attach-agent $Node0 $udp0
  249. $Src0 set packetSize_ 500
  250. $Src0 set interval_ 0.010
  252. set Src1 [new Application/Traffic/CBR]
  253. set udp1 [new Agent/UDP]
  254. $Src1 attach-agent $udp1
  255. $ns_ attach-agent $Node1 $udp1
  256. $Src1 set packetSize_ 500
  257. $Src1 set interval_ 0.010
  259. set Dst0 [new Agent/Null]
  260. $ns_ attach-agent $Node9 $Dst0
  261. set Dst1 [new Agent/Null]
  262. $ns_ attach-agent $Node10 $Dst1
  263. $ns_ connect $udp0 $Dst0
  264. $ns_ connect $udp1 $Dst1
  266. $ns_ at 0.1  "$Src0 start"
  267. $ns_ at 0.1  "$Src1 start"
  269. for {set i 2} {$i < 9} {incr i} {
  270. set a LSR$i
  271. set m [eval $$a get-module "MPLS"]
  272. eval set LSR$i $m
  273. }
  275. $ns_ at 0.2  "$LSR7 ldp-trigger-by-withdraw 9 -1"
  276. $ns_ at 0.2  "$LSR8 ldp-trigger-by-withdraw 10 -1"
  278. $ns_ at 0.3  "$LSR2 flow-aggregation 9 -1  6 -1"
  279. $ns_ at 0.3  "$LSR2 flow-aggregation 10 -1 6 -1"
  280. $ns_ at 0.5  "$LSR6 ldp-trigger-by-withdraw 6 -1"
  281. $ns_ at 0.7  "$Src1 stop"
  283. $ns_ at 0.7  "$LSR2 make-explicit-route  7  5_4_8_6_7  3000  -1"
  284. $ns_ at 0.9  "$LSR2 flow-erlsp-install   9 -1   3000"
  285. $ns_ at 1.1  "$LSR2 ldp-trigger-by-release  7 3000"
  287. $ns_ at 1.2  "$LSR4 make-explicit-route  8  4_5_6_8       3500  -1"
  288. $ns_ at 1.4  "$LSR2 make-explicit-route  7  2_3_4_3500_7  3600  -1"
  289. $ns_ at 1.6  "$LSR2 flow-erlsp-install   9 -1   3600"
  291. $ns_ at 2.0 "$Src0 stop"
  293. $ns_ at 2.1 "$LSR2 pft-dump"
  294. $ns_ at 2.1 "$LSR2 erb-dump"
  295. $ns_ at 2.1 "$LSR2 lib-dump"
  297. $ns_ at 2.1 "$LSR3 pft-dump"
  298. $ns_ at 2.1 "$LSR3 erb-dump"
  299. $ns_ at 2.1 "$LSR3 lib-dump"
  301. $ns_ at 2.1 "$LSR4 pft-dump"
  302. $ns_ at 2.1 "$LSR4 erb-dump"
  303. $ns_ at 2.1 "$LSR4 lib-dump"
  305. $ns_ at 2.1 "$LSR5 pft-dump"
  306. $ns_ at 2.1 "$LSR5 erb-dump"
  307. $ns_ at 2.1 "$LSR5 lib-dump"
  309. $ns_ at 2.1 "$LSR6 pft-dump"
  310. $ns_ at 2.1 "$LSR6 erb-dump"
  311. $ns_ at 2.1 "$LSR6 lib-dump"
  313. $ns_ at 2.1 "$LSR7 pft-dump"
  314. $ns_ at 2.1 "$LSR7 erb-dump"
  315. $ns_ at 2.1 "$LSR7 lib-dump"
  317. $ns_ at 2.1 "$LSR8 pft-dump"
  318. $ns_ at 2.1 "$LSR8 erb-dump"
  319. $ns_ at 2.1 "$LSR8 lib-dump"
  320. }
  322. Class Test/control-driven -superclass TestSuite
  324. Test/control-driven instproc init args {
  325. Classifier/Addr/MPLS set control_driven_ 1
  327. Agent/LDP set trace_ldp_ 1
  328. Classifier/Addr/MPLS set trace_mpls_ 1
  330. eval $self next $args
  331. $self instvar ns_
  333. $ns_ use-scheduler List
  335. $self openTrace 0.7
  336. $ns_ rtproto DV
  338. set node0  [$ns_ node]
  339. $ns_ node-config -MPLS ON
  340. set LSR1   [$ns_ node]
  341. set LSR2   [$ns_ node]
  342. set LSR3   [$ns_ node]
  343. set LSR4   [$ns_ node]
  344. set LSR5   [$ns_ node]
  345. set LSR6   [$ns_ node]
  346. set LSR7   [$ns_ node]
  347. $ns_ node-config -MPLS OFF
  348. set node8  [$ns_ node]
  350. $ns_ duplex-link $node0 $LSR1  1Mb  10ms DropTail
  351. $ns_ duplex-link $LSR1 $LSR2 1Mb 10ms DropTail
  352. $ns_ duplex-link $LSR1 $LSR3 1Mb 10ms DropTail
  353. $ns_ duplex-link $LSR2  $LSR4  1Mb  10ms DropTail
  354. $ns_ duplex-link $LSR4  $LSR6  1Mb  10ms DropTail
  355. $ns_ duplex-link $LSR6  $LSR7  1Mb  10ms DropTail
  356. $ns_ duplex-link $LSR3  $LSR5  1Mb  10ms DropTail
  357. $ns_ duplex-link $LSR3  $LSR4  1Mb  10ms DropTail
  358. $ns_ duplex-link $LSR5  $LSR7  1Mb  10ms DropTail
  359. $ns_ duplex-link $LSR5  $LSR6  1Mb  10ms DropTail
  360. $ns_ duplex-link $LSR7  $node8 1Mb  10ms DropTail
  362. $ns_ duplex-link-op $node0 $LSR1 orient right
  363. $ns_ duplex-link-op $LSR1 $LSR2 orient down
  364. $ns_ duplex-link-op $LSR1 $LSR3 orient right
  365. $ns_ duplex-link-op $LSR2  $LSR4 orient right
  366. $ns_ duplex-link-op $LSR4  $LSR6 orient right
  367. $ns_ duplex-link-op $LSR6  $LSR7  orient right-up
  368. $ns_ duplex-link-op $LSR3  $LSR5 orient right
  369. $ns_ duplex-link-op $LSR3  $LSR4 orient down
  370. $ns_ duplex-link-op $LSR5  $LSR7 orient right
  371. $ns_ duplex-link-op $LSR5  $LSR6 orient down
  372. $ns_ duplex-link-op $LSR7  $node8 orient right
  374. #
  375. # configure ldp agents on all mpls nodes
  376. #
  377. for {set i 1} {$i < 8} {incr i} {
  378. set a LSR$i
  379. for {set j [expr $i+1]} {$j < 8} {incr j} {
  380. set b LSR$j
  381. eval $ns_ LDP-peer $$a $$b
  382. }
  383. set m [eval $$a get-module "MPLS"]
  384. $m enable-reroute "drop"
  385. }
  387. #
  388. # set ldp-message clolr
  389. #
  390. $ns_ ldp-request-color       blue
  391. $ns_ ldp-mapping-color       red
  392. $ns_ ldp-withdraw-color      magenta
  393. $ns_ ldp-release-color       orange
  394. $ns_ ldp-notification-color  yellow
  396. #Create a traffic sink and attach it to the node node8
  397. $self instvar sink0_
  398. set sink0_ [new Agent/LossMonitor]
  399. $ns_ attach-agent $node8 $sink0_
  401. # Create a traffic source
  402. set src0 [$self attach-expoo-traffic $node0 $sink0_ 200 0 0 400k]
  403. $ns_ at 0.0 "$self record"
  404. $ns_ at 0.1 "$src0 start"
  405. $ns_ rtmodel-at 0.3 down $LSR3 $LSR5
  406. $ns_ rtmodel-at 0.5 up   $LSR3 $LSR5
  407. $ns_ at 0.6 "$src0 stop"
  408. }
  410. Class Test/data-driven -superclass TestSuite
  412. Test/data-driven instproc init args {
  413. eval $self next $args
  414. $self instvar ns_
  416. Agent/LDP set trace_ldp_ 1
  417. Classifier/Addr/MPLS set trace_mpls_ 1
  419. $ns_ use-scheduler List
  421. $self openTrace 0.7
  422. $ns_ rtproto DV
  424. set node0  [$ns_ node]
  425. $ns_ node-config -MPLS ON
  426. set LSR1   [$ns_ node]
  427. set LSR2   [$ns_ node]
  428. set LSR3   [$ns_ node]
  429. set LSR4   [$ns_ node]
  430. set LSR5   [$ns_ node]
  431. set LSR6   [$ns_ node]
  432. set LSR7   [$ns_ node]
  433. $ns_ node-config -MPLS OFF
  434. set node8  [$ns_ node]
  436. $ns_ duplex-link $node0 $LSR1  1Mb  10ms DropTail
  437. $ns_ duplex-link $LSR1  $LSR2  1Mb  10ms DropTail
  438. $ns_ duplex-link $LSR2  $LSR4  1Mb  10ms DropTail
  439. $ns_ duplex-link $LSR4  $LSR6  1Mb  10ms DropTail
  440. $ns_ duplex-link $LSR6  $LSR7  1Mb  10ms DropTail
  441. $ns_ duplex-link $LSR1  $LSR3  1Mb  10ms DropTail
  442. $ns_ duplex-link $LSR3  $LSR5  1Mb  10ms DropTail
  443. $ns_ duplex-link $LSR5  $LSR7  1Mb  10ms DropTail
  444. $ns_ duplex-link $LSR3  $LSR4  1Mb  10ms DropTail
  445. $ns_ duplex-link $LSR5  $LSR6  1Mb  10ms DropTail
  446. $ns_ duplex-link $LSR7  $node8 1Mb  10ms DropTail
  448. #
  449. # configure ldp agents on all mpls nodes
  450. #
  451. for {set i 1} {$i < 8} {incr i} {
  452. set a LSR$i
  453. for {set j [expr $i+1]} {$j < 8} {incr j} {
  454. set b LSR$j
  455. eval $ns_ LDP-peer $$a $$b
  456. }
  457. set m [eval $$a get-module "MPLS"]
  458. $m enable-reroute "new"
  459. }
  461. #
  462. # set ldp-message clolr
  463. #
  464. $ns_ ldp-request-color       blue
  465. $ns_ ldp-mapping-color       red
  466. $ns_ ldp-withdraw-color      magenta
  467. $ns_ ldp-release-color       orange
  468. $ns_ ldp-notification-color  yellow
  470. #
  471. # set ldp events
  472. #
  473. Classifier/Addr/MPLS enable-on-demand
  474. Classifier/Addr/MPLS enable-ordered-control
  476. [$LSR1 get-module "MPLS"] enable-data-driven
  477. [$LSR3 get-module "MPLS"] enable-data-driven
  479. # Create a traffic sink and attach it to the node node8
  480. $self instvar sink0_
  481. set sink0_ [new Agent/LossMonitor]
  482. $ns_ attach-agent $node8 $sink0_
  483. # Create a traffic source
  484. set src0 [$self attach-expoo-traffic $node0 $sink0_ 200 0 0 400k]
  486. $ns_ at 0.0 "$self record"
  487. $ns_ at 0.1 "$src0 start"
  488. $ns_ rtmodel-at 0.3 down $LSR3 $LSR5
  489. $ns_ rtmodel-at 0.5 up   $LSR3 $LSR5
  490. $ns_ at 0.6 "$src0 stop"
  491. }
  493. Class Test/reroute -superclass TestSuite
  495. Test/reroute instproc init args {
  496. eval $self next $args
  497. $self instvar ns_
  499. Agent/LDP set trace_ldp_ 1
  500. Classifier/Addr/MPLS set trace_mpls_ 1
  502. $ns_ use-scheduler List
  504. $self openTrace 0.7
  505. $ns_ rtproto DV
  507. set node0  [$ns_ node]
  508. $ns_ node-config -MPLS ON
  509. set LSR1   [$ns_ node]
  510. set LSR2   [$ns_ node]
  511. set LSR3   [$ns_ node]
  512. set LSR4   [$ns_ node]
  513. set LSR5   [$ns_ node]
  514. set LSR6   [$ns_ node]
  515. set LSR7   [$ns_ node]
  516. $ns_ node-config -MPLS OFF
  517. set node8  [$ns_ node]
  519. $ns_ duplex-link $node0 $LSR1  1Mb  10ms DropTail
  520. $ns_ duplex-link $LSR1  $LSR2  1Mb  10ms DropTail
  521. $ns_ duplex-link $LSR2  $LSR4  1Mb  10ms DropTail
  522. $ns_ duplex-link $LSR4  $LSR6  1Mb  10ms DropTail
  523. $ns_ duplex-link $LSR6  $LSR7  1Mb  10ms DropTail
  524. $ns_ duplex-link $LSR1  $LSR3  1Mb  10ms DropTail
  525. $ns_ duplex-link $LSR3  $LSR5  1Mb  10ms DropTail
  526. $ns_ duplex-link $LSR5  $LSR7  1Mb  10ms DropTail
  527. $ns_ duplex-link $LSR3  $LSR4  1Mb  10ms DropTail
  528. $ns_ duplex-link $LSR5  $LSR6  1Mb  10ms DropTail
  529. $ns_ duplex-link $LSR7  $node8 1Mb  10ms DropTail
  531. #
  532. # configure ldp agents on all mpls nodes
  533. #
  534. for {set i 1} {$i < 8} {incr i} {
  535. set a LSR$i
  536. for {set j [expr $i+1]} {$j < 8} {incr j} {
  537. set b LSR$j
  538. eval $ns_ LDP-peer $$a $$b
  539. }
  540. set m [eval $$a get-module "MPLS"]
  541. $m enable-reroute "new"
  542. }
  544. #
  545. # set ldp-message clolr
  546. #
  547. $ns_ ldp-request-color       blue
  548. $ns_ ldp-mapping-color       red
  549. $ns_ ldp-withdraw-color      magenta
  550. $ns_ ldp-release-color       orange
  551. $ns_ ldp-notification-color  yellow
  553. Classifier/Addr/MPLS enable-on-demand
  554. Classifier/Addr/MPLS enable-ordered-control
  555. [$LSR1 get-module "MPLS"] enable-data-driven
  556. [$LSR3 get-module "MPLS"] enable-data-driven
  558. # Create a traffic sink and attach it to the node node8
  559. $self instvar sink0_
  560. set sink0_ [new Agent/LossMonitor]
  561. $ns_ attach-agent $node8  $sink0_
  562. # Create a traffic source
  563. set src0 [$self attach-expoo-traffic $node0 $sink0_ 200 0 0 400k]
  565. $ns_ at 00 "$self record"
  566. $ns_ at 0.1  "$src0 start"
  567. $ns_ at 0.1  "[$LSR1 get-module MPLS] make-explicit-route 7 2_4_6_7 1000 -1"
  568. $ns_ at 0.2  "[$LSR7 get-module MPLS] make-explicit-route  7  5_3_1_1000  1005  -1"
  569. $ns_ at 0.3  "[$LSR1 get-module MPLS] reroute-binding      8 -1    1005"
  570. $ns_ at 0.3  "[$LSR3 get-module MPLS] reroute-binding      8 -1    1005"
  571. $ns_ at 0.3  "[$LSR5 get-module MPLS] reroute-binding      8 -1    1005"
  572. $ns_ rtmodel-at 0.3 down $LSR3 $LSR5
  573. $ns_ rtmodel-at 0.5 up   $LSR3 $LSR5
  574. $ns_ at 0.6 "$src0 stop"
  575. }
  577. TestSuite runTest
  579. ### Local Variables:
  580. ### mode: tcl
  581. ### tcl-indent-level: 8
  582. ### tcl-default-application: ns
  583. ### End: