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

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

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

revision 1.9 by gray, Wed Aug 21 15:31:12 2002 UTC revision 1.10 by gray, Thu Nov 21 13:49:30 2002 UTC
# Line 51  proc default_mail_start {args} { Line 51  proc default_mail_start {args} {
51      global MU_TOOL_FLAGS      global MU_TOOL_FLAGS
52      global mail_prompt      global mail_prompt
53      global expect_out      global expect_out
54        global mail_spawn_id
55            
56      mu_version      mu_version
57            
# Line 69  proc default_mail_start {args} { Line 70  proc default_mail_start {args} {
70      set mail_cmd "$MU_TOOL $sw"      set mail_cmd "$MU_TOOL $sw"
71      verbose "Spawning $mail_cmd"      verbose "Spawning $mail_cmd"
72    
73      set res [remote_spawn host $mail_cmd]      set mail_spawn_id [remote_spawn host $mail_cmd]
74      if { $res < 0 || $res == "" } {      if { $mail_spawn_id < 0 || $mail_spawn_id == "" } {
75          perror "Spawning $mail_cmd failed."          perror "Spawning $mail_cmd failed."
76          return 1;          return 1;
77      }      }
# Line 88  proc default_mail_start {args} { Line 89  proc default_mail_start {args} {
89  }  }
90    
91  proc default_mail_stop {} {  proc default_mail_stop {} {
   
92      verbose "Stopping mail"      verbose "Stopping mail"
93        mail_command "exit"
94        remote_close host
95  }  }
96    
97  proc mail_start {args} {  proc mail_start {args} {
# Line 113  proc mail_start {args} { Line 114  proc mail_start {args} {
114  }  }
115            
116  proc mail_stop {} {  proc mail_stop {} {
117      return [default_mail_stop];      global mail_spawn_id
118        if {[info exists mail_spawn_id] && $mail_spawn_id > 0} {
119            default_mail_stop
120            unset mail_spawn_id
121        }
122  }  }
123    
124  ##  ##
# Line 127  proc mail_command { cmd } { Line 132  proc mail_command { cmd } {
132  }  }
133    
134  proc mail_exit {} {  proc mail_exit {} {
135      set res [mail_send "exit\n"]      mail_stop
     sleep 5  
     return res  
136  }  }
137    
138  # mail_test [-message MESSAGE][-default (FAIL|XFAIL)][-noprompt]  # mail_test [-message MESSAGE][-default (FAIL|XFAIL)][-noprompt]

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