[ns] [bug] TORA VALIDATION FAILLURE

[Georgios Kioumourtzis]

[Bug Report]

-----------------------------
Category:  Validation Failure
Package:   ns ns-allinone-2.28
OS:        RED HAT 9.0
Environment Variables:
LD_LIBRARY_PATH=/home/gkioumou/ns-allinone-2.28/otcl-1.9:/home/gkioumou/ns-allinone-2.28/lib

TCL_LIBRARY=/home/gkioumou/ns-allinone-2.28/tcl8.4.5/library



-----------------------------
Description:

Description of Problem:
TORA validation failed


Actual Results:
(describe what the application did after performing the above steps)

Tests: tora
Running test tora:
../../ns test-suite-wireless-lan-tora.tcl tora QUIET
num_nodes is set 3
INITIALIZE THE LIST xListHead
 
    (_o18 cmd line 1)
    invoked from within
"_o18 cmd port-dmux _o29"
    invoked from within
"catch "$self cmd $args" ret"
    invoked from within
"if [catch "$self cmd $args" ret] {
set cls [$self info class]
global errorInfo
set savedInfo $errorInfo
error "error when calling class $cls: $args" $..."
    (procedure "_o18" line 2)
    (SplitObject unknown line 2)
    invoked from within
"$agent port-dmux $dmux_"
    (procedure "_o15" line 11)
    (Node/MobileNode add-target-rtagent line 11)
    invoked from within
"$self add-target-rtagent $agent $port"
    (procedure "_o15" line 23)
    (Node/MobileNode add-target line 23)
    invoked from within
"$self add-target $agent $port"
    (procedure "_o15" line 15)
    (Node attach line 15)
    invoked from within
"$node attach $ragent [Node set rtagent_port_]"
    (procedure "_o4" line 68)
    (Simulator create-wireless-node line 68)
    invoked from within
"_o4 create-wireless-node"
    ("eval" body line 1)
    invoked from within
"eval $self create-wireless-node $args"
    (procedure "_o4" line 14)
    (Simulator node line 14)
    invoked from within
"$ns_ node"
    (procedure "_o3" line 21)
    (Test/tora init line 21)
    invoked from within
"_o3 init "
    (Class create line 1)
    invoked from within
"Test/tora create _o3 "
    invoked from within
"catch "$className create $o $args" msg"
    invoked from within
"if [catch "$className create $o $args" msg] {
if [string match "__FAILED_SHADOW_OBJECT_" $msg] {
delete $o
return ""
}
global errorInfo
error "class $..."
    (procedure "new" line 3)
    invoked from within
"new Test/$test"
    (procedure "runtest" line 16)
    invoked from within
"runtest $argv"
    (file "test-suite-wireless-lan-tora.tcl" line 273)
Test output differs from reference output
Diagnose with: diff test-output-wireless-lan/tora.test test-output-wireless-lan/tora
Or see URL "http://www.isi.edu/nsnam/ns/ns-problems.html".
Some test failed.