expect/tests/cat.test

   1 # Commands covered:  cat (UNIX)
   2 #
   3 # This file contains a collection of tests for one or more of the Tcl
   4 # built-in commands.  Sourcing this file into Tcl runs the tests and
   5 # generates output for errors.  No output means no errors were found.
   6
   7 if {[string compare test [info procs test]] == 1} then {source defs}
   8
   9 #exp_internal -f /dev/ttyp5 0
  10
  11 catch {unset x}
  12
  13 log_user 0
  14
  15 test cat-1.1 {basic cat operation} {
  16         exp_spawn cat -u
  17         exp_send "\r"
  18         set timeout 10
  19         expect \r {set x 1} timeout {set x 0}
  20         exp_close
  21         exp_wait
  22         set x
  23 } {1}
  24
  25 #exp_internal 0
  26