Artifact
9b472a79be4ddbefc5d58a06cabdd79e6947bb8d:
Attachment "test2" to
ticket [686782ffff]
added by
rmax
2003-02-18 02:04:27.
spawn /bin/cat
set run 0
#exp_internal 1
while 1 {
incr run
set lines_in {abc defg hijkl mnopqr stuvwxy}
set lines_out ""
foreach l $lines_in {
send "$l\n"
expect {
-re {\n} { lappend lines_out [string trim $expect_out(buffer)] }
eof break
}
}
if {$lines_in != $lines_out} break
}
puts "$run ============================="
foreach line $lines_out {
puts "[string length $line] [string map {\r _ \n |} $line]"
}