@@ -22,48 +22,48 @@ asBytes x = do
2222putTest :: String -> Array Int -> PutM Effect Unit -> Effect Unit
2323putTest label expected put = do
2424 actual <- asBytes =<< execPut put
25− assertEqual' label {actual,expected}
25+ assertEqual' label { actual, expected }
2626
2727buildTest :: String -> Array Int -> Effect Builder -> Effect Unit
2828buildTest label expected bldr = do
2929 actual <- asBytes =<< execBuilder =<< bldr
30− assertEqual' label {actual,expected}
30+ assertEqual' label { actual, expected }
3131
3232main :: Effect Unit
3333main = do
34− putTest "Test 0" [6,7,8] do
34+ putTest "Test 0" [ 6, 7, 8 ] do
3535 putInt8 6
3636 putInt8 7
3737 putInt8 8
3838
39− putTest "Test 1" [255,254] do
39+ putTest "Test 1" [ 255, 254 ] do
4040 putInt16be (-2)
4141
42− putTest "Test 3" [3,0,0,0] do
42+ putTest "Test 3" [ 3, 0, 0, 0 ] do
4343 putInt32le 3
4444
45− buildTest "Test 4" [1,2,3,4] do
45+ buildTest "Test 4" [ 1, 2, 3, 4 ] do
4646 b1 <- Buff <$> encodeInt8 1
4747 b2 <- Buff <$> encodeInt8 2
4848 b3 <- Buff <$> encodeInt8 3
4949 b4 <- Buff <$> encodeInt8 4
5050 pure $ singleton b1 <> singleton b2 <> singleton b3 <> singleton b4
5151
52− buildTest "Test 5" [1,2,3,4] do
52+ buildTest "Test 5" [ 1, 2, 3, 4 ] do
5353 b1 <- Buff <$> encodeInt8 1
5454 b2 <- Buff <$> encodeInt8 2
5555 b3 <- Buff <$> encodeInt8 3
5656 b4 <- Buff <$> encodeInt8 4
5757 pure $ singleton b1 <>> singleton b2 <>> singleton b3 <>> singleton b4
5858
59− buildTest "Test 6" [1,2,3,4] do
59+ buildTest "Test 6" [ 1, 2, 3, 4 ] do
6060 b1 <- Buff <$> encodeInt8 1
6161 b2 <- Buff <$> encodeInt8 2
6262 b3 <- Buff <$> encodeInt8 3
6363 b4 <- Buff <$> encodeInt8 4
6464 pure $ singleton b1 <> (singleton b2 <> singleton b3) <> singleton b4
6565
66− buildTest "Test 6" [1,2,3,4,5,6,7,8] do
66+ buildTest "Test 6" [ 1, 2, 3, 4, 5, 6, 7, 8 ] do
6767 b1 <- Buff <$> encodeInt8 1
6868 b2 <- Buff <$> encodeInt8 2
6969 b3 <- Buff <$> encodeInt8 3
@@ -73,9 +73,11 @@ main = do
7373 b7 <- Buff <$> encodeInt8 7
7474 b8 <- Buff <$> encodeInt8 8
7575 pure $ singleton b1 <> (singleton b2 <> singleton b3) <> singleton b4
76− <> singleton b5 <> (singleton b6 <> singleton b7) <> singleton b8
76+ <> singleton b5
77+ <> (singleton b6 <> singleton b7)
78+ <> singleton b8
7779
78− buildTest "Test 7" [1,2,3,4,5,6,7,8] do
80+ buildTest "Test 7" [ 1, 2, 3, 4, 5, 6, 7, 8 ] do
7981 b1 <- Buff <$> encodeInt8 1
8082 b2 <- Buff <$> encodeInt8 2
8183 b3 <- Buff <$> encodeInt8 3
@@ -85,16 +87,16 @@ main = do
8587 b7 <- Buff <$> encodeInt8 7
8688 b8 <- Buff <$> encodeInt8 8
8789 pure $ ((singleton b1 <> singleton b2) <> (singleton b3 <> singleton b4))
88− <> ((singleton b5 <> singleton b6) <> (singleton b7 <> singleton b8))
90+ <> ((singleton b5 <> singleton b6) <> (singleton b7 <> singleton b8))
8991
90− buildTest "Test 8" [1,2,3,4] do
92+ buildTest "Test 8" [ 1, 2, 3, 4 ] do
9193 b1 <- Buff <$> encodeInt8 1
9294 b2 <- Buff <$> encodeInt8 2
9395 b3 <- Buff <$> encodeInt8 3
9496 b4 <- Buff <$> encodeInt8 4
9597 pure $ (cons b1 (singleton b2)) <> (cons b3 (singleton b4))
9698
97− putTest "Test 9" [1,2,2,3,4] do
99+ putTest "Test 9" [ 1, 2, 2, 3, 4 ] do
98100 x <- subBuilder do
99101 putInt8 3
100102 putInt8 4
@@ -103,7 +105,7 @@ main = do
103105 putInt8 $ length x
104106 tell x
105107
106− buildTest "Test 10" [1,2,3,4,5,6,7,8] do
108+ buildTest "Test 10" [ 1, 2, 3, 4, 5, 6, 7, 8 ] do
107109 b1 <- View <$> DV.whole <$> encodeInt8 1
108110 b2 <- View <$> DV.whole <$> encodeInt8 2
109111 b3 <- View <$> DV.whole <$> encodeInt8 3
@@ -113,7 +115,7 @@ main = do
113115 b7 <- View <$> DV.whole <$> encodeInt8 7
114116 b8 <- View <$> DV.whole <$> encodeInt8 8
115117 pure $ ((singleton b1 <> singleton b2) <> (singleton b3 <> singleton b4))
116− <> ((singleton b5 <> singleton b6) <> (singleton b7 <> singleton b8))
118+ <> ((singleton b5 <> singleton b6) <> (singleton b7 <> singleton b8))
117119
118120 let stackblower = Array.replicate 20000 2
119121 putTest "Stack test" stackblower do