Testing Tool – Route Test – Can’t Call another Tcl Proc

[Troy Morton]

Hello,

I’m trying to do a route test.  I have a TPS pre-proc that calls to another proc to send an email if a message is KILLed.  However, when running the route test, I get an error that says, the second Tcl Proc is an “invalid command name”.

When I actually run a message through the engine, this works fine, however, the Testing Tool doesn’t seem to know that my other Tcl Proc is there.

Am I doing something wrong?

Code:

[xlt :xlat:ERR /0:  UNNAMED_TID:09/24/2009 09:31:45] Tcl error:
msgId = message0
proc = ‘tps_EmailKillMsgByFldVal’
args = ‘{SEGID PV1} {FIELDID 3} {BADLIST RCC} {TOFILE Yes} {MAILTO tmorton@ccc.hshs.org}’
result = ‘invalid command name “SendEmailMessage”‘
errorInfo: ‘
invalid command name “SendEmailMessage”
   while executing
“SendEmailMessage $mailargs”
   (”run” arm line 311)
   invoked from within
“switch -exact — $mode {
 start {
     #echo “Start Mode”
     return “”
 }

Here is the TclIndex from my Cloverleaf site:

Code:

# Tcl autoload index file, version 2.0
# This file is generated by the “auto_mkindex” command
# and sourced to set up indexing information for one or
# more commands.  Typically each line is a command that
# sets an element in the auto_index array, where the
# element name is the name of a command and the value is
# a script that loads the command.

set auto_index(tps_VarianChgRec) [list SourceFilter [file join $dir tps_VarianChgRec.tcl]]
set auto_index(tmm_tps_emailCORCALrptToSMD) [list SourceFilter [file join $dir tps_emailCORCALrptToSMD.tcl]]
set auto_index(SendEmailMessage) [list SourceFilter [file join $dir SendEmailMessage.tcl]]
set auto_index(tps_TestTclGlobals) [list SourceFilter [file join $dir tps_TestTclGlobals.tcl]]
set auto_index(tps_EmailKillMsgByFldVal) [list SourceFilter [file join $dir tps_EmailKillMsgByFldVal.tcl]]
set auto_index(FindLists) [list SourceFilter [file join $dir tps_EmailKillMsgByFldVal.tcl]]

Topic