🧩 [move]: Consistent folder structure.

test/Benchmark.purs

@@ -1,13 +1,13 @@
 module Test.Benchmark where
 
 import Prelude
-import Benchmark.Util (BenchAcc(..), BenchRow)
 import Data.Array (concat)
 import Data.Array.NonEmpty (fromArray)
 import Data.Traversable (sequence)
 import Effect (Effect)
 import Effect.Aff (Aff, launchAff_)
 import Effect.Class.Console (logShow)
+import Test.Benchmark.Util (BenchAcc(..), BenchRow)
 import Test.Many (many, bwdMany, withDatasetMany)
 import Test.Spec.Specs (misc_cases, bwd_cases, desugar_cases, graphics_cases)
 import Util (type (×), definitely, (×))

test/Benchmark/Util.purs

@@ -1,4 +1,4 @@
-module Benchmark.Util where
+module Test.Benchmark.Util where
 
 import Prelude
 
@@ -13,7 +13,7 @@ import Data.Newtype (class Newtype, over2)
 import Data.Tuple (snd)
 import Effect.Class (class MonadEffect, liftEffect)
 import Graph (class Graph, size)
-import Test.Spec.Microtime (microtime)
+import Test.Util.Microtime (microtime)
 import Util (type (×), (×))
 
 newtype BenchAcc = BenchAcc (NonEmptyArray (String × BenchRow))

test/Many.purs

@@ -3,10 +3,10 @@ module Test.Many where
 import Prelude
 
 import App.Fig (linkResult, loadLinkFig)
-import Benchmark.Util (BenchRow)
 import Data.Array (zip)
 import Effect.Aff (Aff)
 import Module (File(..), Folder(..), datasetAs, defaultImports, loadFile)
+import Test.Benchmark.Util (BenchRow)
 import Test.Util (TestBwdSpec, TestLinkSpec, TestSpec, TestWithDatasetSpec, checkPretty, test)
 import Util (type (×), (×))
 

test/Util.purs

@@ -4,7 +4,6 @@ import Prelude hiding (absurd)
 
 import App.Fig (LinkFigSpec)
 import App.Util (Selector)
-import Benchmark.Util (BenchRow, bench, divRow, graphSizeB)
 import Control.Monad.Error.Class (class MonadError, class MonadThrow)
 import Control.Monad.Writer.Class (class MonadWriter)
 import Control.Monad.Writer.Trans (runWriterT)
@@ -29,6 +28,7 @@ import Module (File, initialConfig, open, parse)
 import Parse (program)
 import Pretty (class Pretty, prettyP)
 import SExpr (Expr) as SE
+import Test.Benchmark.Util (BenchRow, bench, divRow, graphSizeB)
 import Test.Spec.Assertions (fail)
 import Util (type (×), successful, (×))
 import Val (class Ann, Env, Val(..))

test/Spec/Microtime.purs → test/Util/Microtime.purs

@@ -1,4 +1,4 @@
-module Test.Spec.Microtime
+module Test.Util.Microtime
    ( microtime
    ) where