process-streaming 0.9.1.1 → 0.9.1.2

raw patch · 4 files changed

+8/−8 lines, 4 files

Files

process-streaming.cabal +1/−1
src/System/Process/Streaming.hs +1/−1
tests/alternating.sh +4/−4
tests/test.hs +2/−2

process-streaming.cabal view

@@ -1,5 +1,5 @@ name:          process-streaming-version:       0.9.1.1+version:       0.9.1.2 license:       BSD3 license-file:  LICENSE data-files:

src/System/Process/Streaming.hs view

@@ -421,7 +421,7 @@     Example of a complex handler:  >>> :{ -    execute (piped (shell "{ cat ; echo eee 1>&2 ; }")) $ +    execute (piped (shell "{ cat ; sleep 1 ; echo eee 1>&2 ; }")) $          (\_ _ o e oe ec -> (o,e,oe,ec))          <$>         feedBytes (Just "aaa")

tests/alternating.sh view

@@ -1,21 +1,21 @@ #!/bin/bash -for (( i=1; i <= 20000; i++ ))+for (( i=1; i <= 10000; i++ )) do      echo "OOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOO" done -for (( i=1; i <= 20000; i++ ))+for (( i=1; i <= 10000; i++ )) do      echo "EEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE" 1>&2 done -for (( i=1; i <= 20000; i++ ))+for (( i=1; i <= 10000; i++ )) do      echo "OOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOO" done -for (( i=1; i <= 20000; i++ ))+for (( i=1; i <= 10000; i++ )) do      echo "EEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE" 1>&2 done

tests/test.hs view

@@ -219,11 +219,11 @@         execute (piped (shell "chmod u+x tests/alternating.sh")) (pure ())         r <- alternatingWithCombined           case r of -            80000 -> return ()+            40000 -> return ()             _ -> assertFailure $ "unexpected lines (1) " ++ show r         r <- alternatingWithCombined2           case r of -            (80000,80000) -> return ()+            (40000,40000) -> return ()             _ -> assertFailure $ "unexpected lines (2) " ++ show r  alternatingWithCombined :: IO Integer