2008-05-05 04:15:24 -04:00
|
|
|
USING: tools.test io.pipes io.unix.pipes io.encodings.utf8 io
|
|
|
|
|
namespaces sequences ;
|
|
|
|
|
IN: io.unix.pipes.tests
|
|
|
|
|
|
|
|
|
|
[ { 0 0 } ] [ { "ls" "grep x" } with-pipeline ] unit-test
|
|
|
|
|
|
2008-05-05 04:51:41 -04:00
|
|
|
[ { 0 f 0 } ] [
|
|
|
|
|
{
|
|
|
|
|
"ls"
|
|
|
|
|
[
|
|
|
|
|
input-stream [ utf8 <decoder> ] change
|
|
|
|
|
input-stream get lines reverse [ print ] each f
|
|
|
|
|
]
|
|
|
|
|
"grep x"
|
|
|
|
|
} with-pipeline
|
|
|
|
|
] unit-test
|
