tools/tesh/IO-orders.tesh

   1
   2 p This tests that TESH accepts any order for the input/output
   3
   4 p Order: in, out, cmd
   5 < < TOTO
   6 < > TOTO
   7 < $ cat
   8 > Test suite from stdin
   9 > [(stdin):3] cat
  10 > Test suite from stdin OK
  11 $ perl ${bindir:=.}/tesh
  12
  13 p Order: out, in, cmd
  14 < > TOTO
  15 < < TOTO
  16 < $ cat
  17 > Test suite from stdin
  18 > [(stdin):3] cat
  19 > Test suite from stdin OK
  20 $ perl ${bindir:=.}/tesh
  21
  22 p Order: out, cmd, in
  23 < > TOTO
  24 < $ cat
  25 < < TOTO
  26 > Test suite from stdin
  27 > [(stdin):2] cat
  28 > Test suite from stdin OK
  29 $ perl ${bindir:=.}/tesh
  30
  31 p Order: in, cmd, out
  32 < < TOTO
  33 < $ cat
  34 < > TOTO
  35 > Test suite from stdin
  36 > [(stdin):2] cat
  37 > Test suite from stdin OK
  38 $ perl ${bindir:=.}/tesh
  39
  40 p Order: cmd, out, in
  41 < $ cat
  42 < > TOTO
  43 < < TOTO
  44 > Test suite from stdin
  45 > [(stdin):1] cat
  46 > Test suite from stdin OK
  47 $ perl ${bindir:=.}/tesh
  48
  49 p Order: cmd, in, out
  50 < $ cat
  51 < < TOTO
  52 < > TOTO
  53 > Test suite from stdin
  54 > [(stdin):1] cat
  55 > Test suite from stdin OK
  56 $ perl ${bindir:=.}/tesh