/[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.6 by gray, Wed Aug 28 12:03:04 2002 UTC revision 1.7 by gray, Thu Aug 29 14:46:44 2002 UTC
# Line 300  proc mu_version {} { Line 300  proc mu_version {} {
300      if [info exists MU_TOOL_VERSION] {      if [info exists MU_TOOL_VERSION] {
301          return          return
302      }      }
303    
304        if {![info exists MU_CAPABILITY]} {
305            return
306        }
307            
308      set output [remote_exec host "$MU_TOOL --show-config-options"]      set output [remote_exec host "$MU_TOOL --show-config-options"]
309      set flg [split [lindex $output 1]]                set flg [split [lindex $output 1]]          
# Line 343  proc mu_command { cmd } { Line 347  proc mu_command { cmd } {
347              return -1              return -1
348          }          }
349      }      }
350        verbose "RESULT: $res" 2
351      return $res      return $res
352  }  }
353    
# Line 458  proc mu_expect_list {args} { Line 463  proc mu_expect_list {args} {
463         } else {         } else {
464             mu_expect $tmt {             mu_expect $tmt {
465                 -ex "$pat" {                 -ex "$pat" {
466                     if { $expect_out(buffer) != $expect_out(0,string) } {  #                  if { $expect_out(buffer) != $expect_out(0,string) } {
467                         verbose "Got \"$expect_out(buffer)\"" 2  #                      verbose "Got \"$expect_out(buffer)\"" 2
468                         verbose "instead of expected \"$pat\\r\\n\"" 2  #                      verbose "instead of expected \"$pat\\r\\n\"" 2
469                         set result 1  #                      set result 1
470                         break  #                      break
471                     }  #                  }
472                 }                 }
473                 default {                 default {
474                     set result 1                     set result 1
# Line 521  proc mu_test { args } { Line 526  proc mu_test { args } {
526            
527      set result -1      set result -1
528      if { "${command}" != "" } {      if { "${command}" != "" } {
529          if { [mu_command "${command}"] != "" } {          set res [mu_command "${command}"]
530            if { $res != "" } {
531              if { ! $do_suppress } {              if { ! $do_suppress } {
532                  perror "Couldn't send \"$command\".";                  perror "Couldn't send \"$command\": $res.";
533              }              }
534              return $result;              return $result;
535          }          }
# Line 571  proc mu_test { args } { Line 577  proc mu_test { args } {
577         } else {         } else {
578             mu_expect $tmt {             mu_expect $tmt {
579                 -ex "$pat" {                 -ex "$pat" {
580                     if { $expect_out(buffer) != $expect_out(0,string) } {  #                  if { $expect_out(buffer) != $expect_out(0,string) } {
581                         verbose "Got \"$expect_out(buffer)\"" 2  #                      verbose "Got \"$expect_out(buffer)\"" 2
582                         verbose "instead of expected \"$pat\\r\\n\"" 2  #                      verbose "instead of expected \"$pat\\r\\n\"" 2
583                         set result 1  #                      set result 1
584                         break  #                      break
585                     }  #                  }
586                 }                 }
587                 default {                 default {
588                     set result 1                     set result 1
# Line 591  proc mu_test { args } { Line 597  proc mu_test { args } {
597                     break                     break
598                 }                 }
599             }             }
600             verbose "RES: $result"  
601             if {$result == 0} {             if {$result == 0} {
602                 mu_expect $tmt {                 mu_expect $tmt {
603                     -re "\[ \t]*\r\n" { }                     -re "\[ \t]*\r\n" { }

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