/[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.6 by gray, Wed Aug 7 15:37:20 2002 UTC revision 1.7 by gray, Wed Aug 7 23:00:51 2002 UTC
# Line 351  proc default_mail_test { args } { Line 351  proc default_mail_test { args } {
351    
352      set result 0      set result 0
353      for {set i 0} {$i < [llength $pattern]} {incr i} {      for {set i 0} {$i < [llength $pattern]} {incr i} {
354          verbose "i=$i, pat=[lindex ${pattern} $i]" 2          regsub "\[ \t\]*$" [lindex ${pattern} $i] "" pat
355          set pat [lindex ${pattern} $i]          verbose "i=$i, pat=$pat" 2
356          mail_expect $tmt {          mail_expect $tmt {
357              -ex "$pat\r\n" {              -ex "$pat" {
358                  if { $expect_out(buffer) != $expect_out(0,string) } {                  if { $expect_out(buffer) != $expect_out(0,string) } {
359                      verbose "Got \"$expect_out(buffer)\"" 2                      verbose "Got \"$expect_out(buffer)\"" 2
360                      verbose "instead of expected \"$pat\\r\\n\"" 2                      verbose "instead of expected \"$pat\\r\\n\"" 2
361                      set result 1                      set result 1
362                      break                      break
363                  }                  }
364                    mail_expect $tmt {
365                        -re "\[ \t]*\r\n" { }
366                        default {
367                            set result 1
368                            break
369                        }
370                        timeout {
371                            set result -2
372                            break
373                        }
374                        eof {
375                            set result -3
376                            break
377                        }
378                    }
379              }              }
380              default {              default {
381                  set result 1                  set result 1

Legend:
Removed from v.1.6  
changed lines
  Added in v.1.7

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