refactor: tests -> move, use Test dir like specified in spago documentation

Author: srghma

test/Main.purs

@@ -0,0 +1,18 @@
+module Test.Main where
+
+import Prelude
+
+import Effect (Effect)
+import Test.Node.FS.Sync as Sync
+import Test.Node.FS.Streams as Streams
+import Test.Node.FS.Aff as Aff
+import Test.Node.FS.Async as Async
+import Test.Node.FS.OpendirAndDir as OpendirAndDir
+
+main :: Effect Unit
+main = do
+  Sync.main
+  Async.main
+  Streams.main
+  Aff.main
+  OpendirAndDir.main

test/Test/Main.purs

@@ -1,4 +1,4 @@
-module TestAff where
+module Test.Node.FS.Aff where
 
 import Prelude
 

test/TestAff.purs renamed to test/Test/Node/FS/Aff.purs

@@ -1,4 +1,4 @@
-module TestAsync where
+module Test.Node.FS.Async where
 
 import Prelude (Unit, show, bind, discard, (<>), ($))
 import Data.Either (Either(..))
@@ -15,8 +15,8 @@ import Node.Buffer as B
 main :: Effect Unit
 main = do
   let
-    path1 = FP.concat ([ "test", "TestAsync.purs" ])
-    path2 = FP.concat ([ "test", "TestAsync.purs.partial" ])
+    path1 = FP.concat ([ "test", "Test", "Node", "FS", "Async.purs" ])
+    path2 = FP.concat ([ "test", "Test", "Node", "FS", "Async.purs.partial" ])
 
   buf <- B.create 1000
 

test/TestAsync.purs renamed to test/Test/Node/FS/Async.purs

@@ -1,4 +1,4 @@
-module TestDirEntries where
+module Test.Node.FS.OpendirAndDir where
 
 import Prelude
 
@@ -21,7 +21,8 @@ import Node.Path as Path
 import Test.Assert (assertEqual)
 
 outerTmpDir :: FilePath
-outerTmpDir = "./tmp/dir-entries-test"
+outerTmpDir = Path.concat ["tmp", "dir-entries-test"]
+-- outerTmpDir = Path.concat [".", "tmp", "dir-entries-test"]
 
 prepare :: Aff Unit
 prepare = do
@@ -42,18 +43,18 @@ test1 = do
     , expected:
         """[Dirent Dirent {
   name: 'dir1',
-  parentPath: './tmp/dir-entries-test',
-  path: './tmp/dir-entries-test',
+  parentPath: 'tmp/dir-entries-test',
+  path: 'tmp/dir-entries-test',
   [Symbol(type)]: 2
 },Dirent Dirent {
   name: '1.txt',
-  parentPath: './tmp/dir-entries-test',
-  path: './tmp/dir-entries-test',
+  parentPath: 'tmp/dir-entries-test',
+  path: 'tmp/dir-entries-test',
   [Symbol(type)]: 1
 },Dirent Dirent {
   name: '2.txt',
-  parentPath: './tmp/dir-entries-test',
-  path: './tmp/dir-entries-test',
+  parentPath: 'tmp/dir-entries-test',
+  path: 'tmp/dir-entries-test',
   [Symbol(type)]: 1
 },Dirent Dirent {
   name: '3.txt',
@@ -78,15 +79,15 @@ test2 = do
   dir <- A.opendir' outerTmpDir (opendirOptionsDefault { recursive = false })
   read dir >>= \file -> liftEffect $ assertEqual
     { actual: show file
-    , expected: "(Just Dirent Dirent {\n  name: 'dir1',\n  parentPath: './tmp/dir-entries-test',\n  path: './tmp/dir-entries-test',\n  [Symbol(type)]: 2\n})"
+    , expected: "(Just Dirent Dirent {\n  name: 'dir1',\n  parentPath: 'tmp/dir-entries-test',\n  path: 'tmp/dir-entries-test',\n  [Symbol(type)]: 2\n})"
     }
   read dir >>= \file -> liftEffect $ assertEqual
     { actual: show file
-    , expected: "(Just Dirent Dirent {\n  name: '1.txt',\n  parentPath: './tmp/dir-entries-test',\n  path: './tmp/dir-entries-test',\n  [Symbol(type)]: 1\n})"
+    , expected: "(Just Dirent Dirent {\n  name: '1.txt',\n  parentPath: 'tmp/dir-entries-test',\n  path: 'tmp/dir-entries-test',\n  [Symbol(type)]: 1\n})"
     }
   read dir >>= \file -> liftEffect $ assertEqual
     { actual: show file
-    , expected: "(Just Dirent Dirent {\n  name: '2.txt',\n  parentPath: './tmp/dir-entries-test',\n  path: './tmp/dir-entries-test',\n  [Symbol(type)]: 1\n})"
+    , expected: "(Just Dirent Dirent {\n  name: '2.txt',\n  parentPath: 'tmp/dir-entries-test',\n  path: 'tmp/dir-entries-test',\n  [Symbol(type)]: 1\n})"
     }
   read dir >>= \file -> liftEffect $ assertEqual
     { actual: show file

test/TestDirEntries.purs renamed to test/Test/Node/FS/OpendirAndDir.purs

@@ -1,4 +1,4 @@
-module Test.Streams where
+module Test.Node.FS.Streams where
 
 import Prelude
 
@@ -17,13 +17,13 @@ main = do
 
   log "Testing streams"
 
-  r <- createReadStream (fp [ "test", "Streams.purs" ])
+  r <- createReadStream (fp [ "test", "Test", "Node", "FS", "Streams.purs" ])
   w <- createWriteStream (fp [ "tmp", "Streams.purs" ])
 
   _ <- Stream.pipe r w
 
   r # on_ Stream.endH do
-    src <- Sync.readTextFile UTF8 (fp [ "test", "Streams.purs" ])
+    src <- Sync.readTextFile UTF8 (fp [ "test", "Test", "Node", "FS", "Streams.purs" ])
     dst <- Sync.readTextFile UTF8 (fp [ "tmp", "Streams.purs" ])
 
     if src == dst then log "all good"

test/Streams.purs renamed to test/Test/Node/FS/Streams.purs

@@ -1,4 +1,4 @@
-module Test where
+module Test.Node.FS.Sync where
 
 import Prelude
 
@@ -35,10 +35,10 @@ main :: Effect Unit
 main = do
   let fp = Path.concat
 
-  e <- S.exists (fp [ "test", "Test.purs" ])
+  e <- S.exists (fp [ "test", "Test", "Node", "FS", "Sync.purs" ])
   log $ "Test.purs exists? " <> show e
 
-  file <- S.readTextFile UTF8 (fp [ "test", "Test.purs" ])
+  file <- S.readTextFile UTF8 (fp [ "test", "Test", "Node", "FS", "Sync.purs" ])
   log "\n\nreadTextFile sync result:"
   log $ file
 
@@ -99,16 +99,16 @@ main = do
       log "\n\ntruncate result:"
       either (log <<< show) (log <<< show) y
 
-  A.readFile (fp [ "test", "Test.purs" ]) $ \mbuf -> do
+  A.readFile (fp [ "test", "Test", "Node", "FS", "Sync.purs" ]) $ \mbuf -> do
     buf <- traverse Buffer.freeze mbuf
     log "\n\nreadFile result:"
     either (log <<< show) (log <<< show) buf
 
-  A.readTextFile UTF8 (fp [ "test", "Test.purs" ]) $ \x -> do
+  A.readTextFile UTF8 (fp [ "test", "Test", "Node", "FS", "Sync.purs" ]) $ \x -> do
     log "\n\nreadTextFile result:"
     either (log <<< show) log x
 
-  A.stat (fp [ "test", "Test.purs" ]) $ \x -> do
+  A.stat (fp [ "test", "Test", "Node", "FS", "Sync.purs" ]) $ \x -> do
     log "\n\nA.stat:"
     case x of
       Left err -> log $ "Error:" <> show err
@@ -197,4 +197,3 @@ main = do
   case copyErr of
     Left _ -> pure unit
     Right _ -> throw $ destReadPath <> " already exists, but copying a file to there did not throw an error with COPYFILE_EXCL option"
-