|
1 | 1 | -- | How to test: |
2 | 2 | -- | |
3 | 3 | -- | ``` |
4 | | --- | pulp test --main Test.Main2 | wc -c |
| 4 | +-- | pulp test --main Test.Main2 |
5 | 5 | -- | ``` |
6 | 6 | module Test.Main2 where |
7 | 7 |
|
8 | 8 | import Prelude |
9 | 9 |
|
10 | 10 | import Data.Array as Array |
11 | 11 | import Data.Either (Either(..)) |
| 12 | +import Data.String (Pattern(..)) |
| 13 | +import Data.String as String |
12 | 14 | import Effect (Effect) |
13 | | -import Effect.Aff (Error, runAff_) |
| 15 | +import Effect.Aff (Error, error, runAff_, throwError) |
14 | 16 | import Effect.Class (liftEffect) |
15 | 17 | import Effect.Class.Console as Console |
16 | 18 | import Node.Buffer as Buffer |
17 | 19 | import Node.Encoding (Encoding(..)) |
18 | | -import Node.Stream (Writable) |
19 | | -import Node.Stream.Aff (write) |
20 | | -import Partial.Unsafe (unsafePartial) |
| 20 | +import Node.Stream (newPassThrough) |
| 21 | +import Node.Stream.Aff (readableToStringUtf8, write) |
21 | 22 | import Unsafe.Coerce (unsafeCoerce) |
22 | 23 |
|
23 | | -foreign import stdout :: Writable () |
24 | | - |
25 | | -completion :: Either Error (Effect Unit) -> Effect Unit |
| 24 | +completion :: Either Error Unit -> Effect Unit |
26 | 25 | completion = case _ of |
27 | 26 | Left e -> Console.error (unsafeCoerce e) |
28 | | - Right f -> f |
| 27 | + Right _ -> mempty |
29 | 28 |
|
30 | 29 | main :: Effect Unit |
31 | | -main = unsafePartial $ do |
| 30 | +main = do |
| 31 | + duplex <- newPassThrough |
32 | 32 | runAff_ completion do |
33 | | - do |
34 | | - b <- liftEffect $ Buffer.fromString "aaaaaaaaaa" UTF8 |
35 | | - write stdout $ Array.replicate 100000 b |
36 | | - pure (pure unit) |
| 33 | + let expected = 100_000 |
| 34 | + b <- liftEffect $ Buffer.fromString "aaaaaaaaaa" UTF8 |
| 35 | + write duplex $ Array.replicate 100000 b |
| 36 | + str <- readableToStringUtf8 duplex |
| 37 | + let actual = Array.length (String.split (Pattern "\n") str) |
| 38 | + unless (expected == expected) do |
| 39 | + throwError $ error $ "Expected " <> show expected <> " lines, but got " <> show actual <> " lines." |
| 40 | + |
0 commit comments