#! ./tesh

p This tests whether TESH detects wrong outputs

! expect return 2
< > TOTO
< < TUTU
< $ cat
$ perl ${bindir:=.}/tesh
> Test suite from stdin
> [(stdin):3] cat
> Output of <(stdin):3> mismatch:
> - TOTO
> + TUTU
> Test suite `(stdin)': NOK (<(stdin):3> output mismatch)