Turn examples into a (rudimentary) test suite

Author: hdgarrood

test/Main.purs

@@ -0,0 +1,9 @@
+module Test.Main where
+
+import Prelude
+import qualified Test as Test
+import qualified TestAsync as TestAsync
+
+main = do
+  Test.main
+  TestAsync.main

examples/Test.purs renamed to test/Test.purs

@@ -30,16 +30,16 @@ catchException' = unsafeCoerce catchException
 main = do
   let fp = Path.concat
 
-  A.exists (fp ["examples", "Test.purs"]) $ \e ->
+  A.exists (fp ["test", "Test.purs"]) $ \e ->
     log $ "Test.purs exists? " ++ show e
 
-  file <- S.readTextFile UTF8 (fp ["examples", "Test.purs"])
+  file <- S.readTextFile UTF8 (fp ["test", "Test.purs"])
   log "\n\nreadTextFile sync result:"
   log $ file
 
   catchException' (\err -> do
     log $ "Caught readTextFile error:\n" ++ show err
-    return "") $ S.readTextFile UTF8 (fp ["examples", "does not exist"])
+    return "") $ S.readTextFile UTF8 (fp ["test", "does not exist"])
 
   -- If an error is thrown, it's probably EEXIST, so ignore it. Should
   -- really check this instead.
@@ -81,15 +81,15 @@ main = do
       log "\n\ntruncate result:"
       either (log <<< show) (log <<< show) x
 
-  A.readFile (fp ["examples", "Test.purs"]) $ \x -> do
+  A.readFile (fp ["test", "Test.purs"]) $ \x -> do
     log "\n\nreadFile result:"
     either (log <<< show) (log <<< show) x
 
-  A.readTextFile UTF8 (fp ["examples", "Test.purs"]) $ \x -> do
+  A.readTextFile UTF8 (fp ["test", "Test.purs"]) $ \x -> do
     log "\n\nreadTextFile result:"
     either (log <<< show) log x
 
-  A.stat (fp ["examples", "Test.purs"]) $ \x -> do
+  A.stat (fp ["test", "Test.purs"]) $ \x -> do
     log "\n\nstat:"
     case x of
       Left err -> log $ "Error:" ++ show err

examples/TestAsync.purs renamed to test/TestAsync.purs

@@ -1,4 +1,4 @@
-module Main where
+module TestAsync where
 
 import Prelude
 import Data.Either
@@ -16,8 +16,8 @@ import qualified Node.Buffer as B
 
 main :: Eff _ Unit
 main = do
-  let path1 = FP.concat( ["examples", "TestAsync.purs"] )
-      path2 = FP.concat( ["examples", "TestAsync.purs.partial"] )
+  let path1 = FP.concat( ["test", "TestAsync.purs"] )
+      path2 = FP.concat( ["test", "TestAsync.purs.partial"] )
 
   buf <- B.create 1000