review: kill test type alias

Author: matthewleon

test/Main.purs

@@ -9,11 +9,9 @@ import Node.Buffer (BufferValueType(..), toArray, concat', fromArray, fill, copy
 import Node.Encoding (Encoding(..))
 import Test.Assert (assert')
 
-type Test = Effect Unit
-
-main :: Test
+main :: Effect Unit
 main = do
-  log "Testing..."
+  log "Effect Uniting..."
 
   log "Reading and writing"
   testReadWrite
@@ -45,7 +43,7 @@ main = do
   log "getAtOffset"
   testGetAtOffset
 
-testReadWrite :: Test
+testReadWrite :: Effect Unit
 testReadWrite = do
   buf <- create 1
   let val = 42
@@ -54,14 +52,14 @@ testReadWrite = do
 
   assertEq val readVal
 
-testFromArray :: Test
+testFromArray :: Effect Unit
 testFromArray = do
   buf <- fromArray [1,2,3,4,5]
   readVal <- read UInt8 2 buf
 
   assertEq 3 readVal
 
-testToArray :: Test
+testToArray :: Effect Unit
 testToArray = do
   let val = [1,2,67,3,3,7,8,3,4,237]
 
@@ -70,7 +68,7 @@ testToArray = do
 
   assertEq val valOut
 
-testFromString :: Test
+testFromString :: Effect Unit
 testFromString = do
   let str = "hello, world"
 
@@ -79,7 +77,7 @@ testFromString = do
 
   assertEq val 32 -- ASCII space
 
-testToString :: Test
+testToString :: Effect Unit
 testToString = do
   let str = "hello, world"
 
@@ -88,7 +86,7 @@ testToString = do
 
   assertEq str strOut
 
-testReadString :: Test
+testReadString :: Effect Unit
 testReadString = do
   let str = "hello, world"
 
@@ -97,7 +95,7 @@ testReadString = do
 
   assertEq "world" strOut
 
-testCopy :: Test
+testCopy :: Effect Unit
 testCopy = do
   buf1 <- fromArray [1,2,3,4,5]
   buf2 <- fromArray [10,9,8,7,6]
@@ -108,30 +106,30 @@ testCopy = do
   assertEq copied 3
   assertEq out [10,9,1,2,3]
 
-testFill :: Test
+testFill :: Effect Unit
 testFill = do
   buf <- fromArray [1,1,1,1,1]
   fill 42 2 4 buf
   out <- toArray buf
 
   assertEq [1,1,42,42,1] out
 
-testConcat' :: Test
+testConcat' :: Effect Unit
 testConcat' = do
   bufs <- traverse fromArray $ map (\x -> [x, x+1, x+2]) [0,3,6,9,12]
   buf  <- concat' bufs 15
   out  <- toArray buf
 
   assertEq [0,1,2,3,4,5,6,7,8,9,10,11,12,13,14] out
 
-testGetAtOffset :: Test
+testGetAtOffset :: Effect Unit
 testGetAtOffset = do
   buf  <- fromArray [1, 2, 3, 4]
   assertEq (Just 2) =<< getAtOffset 1 buf
   assertEq Nothing  =<< getAtOffset 4 buf
   assertEq Nothing  =<< getAtOffset (-1) buf
 
-assertEq :: forall a. Eq a => Show a => a -> a -> Test
+assertEq :: forall a. Eq a => Show a => a -> a -> Effect Unit
 assertEq x y =
   if x == y
     then pure unit