Clovertech

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

› Clovertech Forums › Read Only Archives › Cloverleaf › Cloverleaf › Testing Tool – Route Test – Can’t Call another Tcl Proc

  • Creator
    Topic
  • September 24, 2009 at 2:43 pm #51198
    Troy Morton
    Participant

      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]]

    • Creator
      Topic
    • The forum ‘Cloverleaf’ is closed to new topics and replies.