basis/io/pipes/unix/pipes-tests.factor

   1 USING: tools.test io.pipes io.pipes.unix io.encodings.utf8
   2 io.encodings io namespaces sequences ;
   3 IN: io.pipes.unix.tests
   4
   5 [ { 0 0 } ] [ { "ls" "grep ." } run-pipeline ] unit-test
   6
   7 [ { 0 f 0 } ] [
   8     {
   9         "ls"
  10         [
  11             input-stream [ utf8 <decoder> ] change
  12             output-stream [ utf8 <encoder> ] change
  13             input-stream get lines reverse [ print ] each f
  14         ]
  15         "grep ."
  16     } run-pipeline
  17 ] unit-test