pkgs/by-name/mi/micro/tests/_001-hello-expect/hello.tcl

   1 spawn micro file.txt
   2 expect "file.txt"
   3
   4 send "Hello world!"
   5 expect "Hello world!"
   6
   7 # ctrl-q (exit)
   8 send "\021"
   9
  10 expect "Save changes to file.txt before closing?"
  11 send "y"
  12
  13 expect eof