/[mailutils]/mailutils/testsuite/lib/mailutils.exp
ViewVC logotype

Diff of /mailutils/testsuite/lib/mailutils.exp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.9 by gray, Sun Nov 3 13:03:09 2002 UTC revision 1.10 by gray, Mon Nov 4 17:36:15 2002 UTC
# Line 71  proc mu_init {args} { Line 71  proc mu_init {args} {
71    
72          set MU_SPOOL_DIR "$MU_DATA_DIR/spool"          set MU_SPOOL_DIR "$MU_DATA_DIR/spool"
73          set MU_FOLDER_DIR "$MU_DATA_DIR/folder"          set MU_FOLDER_DIR "$MU_DATA_DIR/folder"
74          set MU_TOOL_FLAGS "--mail-spool $MU_SPOOL_DIR"  
75          for {set i 0} {$i < [llength $args]} {incr i} {          if {[llength $args] == 1 && [lindex $args 0] == "-noflags"} {
76              append MU_TOOL_FLAGS " [lindex $args $i]"              set MU_TOOL_FLAGS ""
77            } else {
78                set MU_TOOL_FLAGS "--mail-spool $MU_SPOOL_DIR"
79                for {set i 0} {$i < [llength $args]} {incr i} {
80                    append MU_TOOL_FLAGS " [lindex $args $i]"
81                }
82          }          }
83      }      }
84  }  }
# Line 672  proc mu_test_file {args} { Line 677  proc mu_test_file {args} {
677      return $result      return $result
678  }  }
679            
680    # mailer_test [-message MESSAGE][-default (FAIL|XFAIL)]
681    #             [-file FILENAME]
682    #             [-input INPUT-LIST]
683    #             [-args ARGS]
684    #             [-pattern PATTERN-LIST][PATTERN...]
685    # INPUT-LIST - List of input strings
686    # PATTERN   - Sequence to expect in return.
687    # MESSAGE   - [optional] message to output
688    #
689    # FIXME: Need -retcode option.
690    #
691    proc mailer_test { args } {
692        global MU_TOOL
693        global MU_TOOL_FLAGS
694        global top_builddir
695        global verbose
696        global suppress_flag;
697        upvar timeout timeout
698    
699        set default ""
700        set message ""
701        set invocation ""
702        set input ""
703        set pattern ""
704        set filename ""
705        for {set i 0} {$i < [llength $args]} {incr i} {
706            set a [lindex $args $i]
707            if {"$a" == "-default"} {
708                incr i
709                set default [lindex $args $i]
710            } elseif {"$a" == "-message"} {
711                incr i
712                set message [lindex $args $i]
713            } elseif {"$a" == "-file"} {
714                incr i
715                set filename [lindex $args $i]
716            } elseif {"$a" == "-pattern"} {
717                incr i
718                set pattern [lindex $args $i]
719            } elseif {"$a" == "-input"} {
720                incr i
721                set input [lindex $args $i]
722            } elseif {"$a" == "-args"} {
723                incr i
724                set a [lindex $args $i]
725                if {[llength $a] > 0} {
726                    append invocation $a
727                }
728            } else {
729                set args [lrange $args $i end]
730                break
731            }
732        }
733    
734        if {$i < [llength $args]} {
735            lappend pattern [lrange $args $i end]
736        }
737    
738        verbose "Spawning $MU_TOOL $MU_TOOL_FLAGS $invocation" 1
739    
740        set res [remote_spawn host "$MU_TOOL $MU_TOOL_FLAGS $invocation"]
741        if { $res < 0 || $res == "" } {
742            perror "Spawning $MU_TOOL $MU_TOOL_FLAGS $invocation failed."
743            return 1;
744        }
745            
746        if {"$message" == ""}  {
747            set message [lindex $args 0]
748        }
749    
750        if $verbose>2 then {
751            send_user "Message is \"$message\"\n"
752        }
753    
754        set result ""
755        verbose "INPUT: $input" 1
756        for {set i 0} {$result == "" && $i < [llength $input]} {incr i} {
757            set s [lindex $input $i]
758            verbose "SEND: $s" 1
759            set result [mu_send "[lindex $input $i]\n"]
760            verbose "RESULT: $result"
761        }
762    
763        mu_send ""
764    
765        remote_wait host 60
766        
767        return [mu_test_file -default $default -message $message -pattern $pattern $filename]
768    }

Legend:
Removed from v.1.9  
changed lines
  Added in v.1.10

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26