tools/tesh/catch-wrong-output.tesh

   1 #! ./tesh
   2
   3 p This tests whether TESH detects wrong outputs
   4
   5 ! expect return 2
   6 < > TOTO
   7 < < TUTU
   8 < $ cat
   9 $ perl ${bindir:=.}/tesh
  10 > Test suite from stdin
  11 > [(stdin):3] cat
  12 > Output of <(stdin):3> mismatch:
  13 > - TOTO
  14 > + TUTU
  15 > Test suite `(stdin)': NOK (<(stdin):3> output mismatch)