Ticket #56365: system.tcl.diff

File system.tcl.diff, 493 bytes (added by ryandesign (Ryan Carsten Schmidt), 7 years ago)

  • src/pextlib1.0/tests/system.tcl 

    diff --git a/src/pextlib1.0/tests/system.tcl b/src/pextlib1.0/tests/system.tcl
index 7a3b2fcd..855c3b0d 100644
    a b proc main {pextlibname} { 
    6666        check [string trim $output] $str
    6767    }
    6868
     69    set str "spawn echo"
     70    test_system "expect -c \"$str\"" {str} {
     71        check [string trim $output] $str
     72    }
     73
    6974    test_system -W /usr "pwd" {} {
    7075        check [string trim $output] "/usr"
    7176    }