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

Diff of /anubis/testsuite/lib/anubis.exp

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

revision 1.4 by gray, Fri Feb 28 15:33:18 2003 UTC revision 1.5 by gray, Thu Mar 6 18:55:18 2003 UTC
# Line 414  proc anubis_expect_list {args} { Line 414  proc anubis_expect_list {args} {
414         } else {         } else {
415             anubis_expect $tmt {             anubis_expect $tmt {
416                 -ex "$pat" {                 -ex "$pat" {
417  #                  if { $expect_out(buffer) != $expect_out(0,string) } {                     if { $expect_out(buffer) != $expect_out(0,string) } {
418  #                      verbose "Got \"$expect_out(buffer)\"" 2                         verbose "Got \"$expect_out(buffer)\"" 2
419  #                      verbose "instead of expected \"$pat\\r\\n\"" 2                         verbose "instead of expected \"$pat\\r\\n\"" 2
420  #                      set result 1                         set result 1
421  #                      break                         break
422  #                  }                     }
423                 }                 }
424                 default {                 default {
425                     set result 1                     set result 1
# Line 510  proc anubis_test { args } { Line 510  proc anubis_test { args } {
510          verbose "i=$i, pat=$pat, regexp=$regexp" 2          verbose "i=$i, pat=$pat, regexp=$regexp" 2
511    
512          if {$regexp} {          if {$regexp} {
            verbose "REGEX for $pat / [llength $pat] " 3  
513             anubis_expect $tmt {             anubis_expect $tmt {
514                 -re "$pat\[ \r\t\]*\r\n" { }                 -re "$pat\[ \r\t\]*\r\n" { }
515                 default {                 default {
# Line 529  proc anubis_test { args } { Line 528  proc anubis_test { args } {
528         } else {         } else {
529             anubis_expect $tmt {             anubis_expect $tmt {
530                 -ex "$pat" {                 -ex "$pat" {
531  #                  if { $expect_out(buffer) != $expect_out(0,string) } {                     if { $expect_out(buffer) != $expect_out(0,string) } {
532  #                      verbose "Got \"$expect_out(buffer)\"" 2                         verbose "Got \"$expect_out(buffer)\"" 2
533  #                      verbose "instead of expected \"$pat\\r\\n\"" 2                         verbose "instead of expected \"$pat\\r\\n\"" 2
534  #                      set result 1                         set result 1
535  #                      break                         break
536  #                  }                     }
537                 }                 }
538                 default {                 default {
539                     set result 1                     set result 1

Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5

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