Ensure that golden test files have valid file extensions

This is to make #80 easier to implement.
axellang · Oct 31, 2022 · 3cb21c0 · 3cb21c0
1 parent 921f00e
commit 3cb21c0
Show file tree

Hide file tree

Showing 52 changed files with 40 additions and 42 deletions.
diff --git a/scripts/onHsFiles.sh b/scripts/onHsFiles.sh
@@ -1 +1 @@
-find app src test -iname "*.hs" ! -path "app/Main.hs" ! -path "src/Axel/Parse/Args.hs" ! -path "src/Axel.hs" ! -path "src/Axel/Haskell/Macros.hs" -print0 | xargs -0 "$@"
+find app src test -iname "*.hs" ! -path "app/Main.hs" ! -path "src/Axel/Parse/Args.hs" ! -path "src/Axel.hs" ! -path "src/Axel/Haskell/Macros.hs" ! -name "golden_*.hs" -print0 | xargs -0 "$@"
diff --git a/test/Axel/Test/Transpilation/TranspilationSpec.hs b/test/Axel/Test/Transpilation/TranspilationSpec.hs
@@ -45,21 +45,19 @@ test_transpilation_golden :: IO TestTree
 test_transpilation_golden = do
   axelFiles <-
     map (FilePath . T.pack) <$>
-    findByExtension [".axel_golden"] "test/Axel/Test/Transpilation"
+    findByExtension [".axel"] "test/Axel/Test/Transpilation"
   pure $
     testGroup "transpilation golden tests" $ do
       axelFile <- axelFiles
-      let hsFile = replaceExtension axelFile "hs_golden"
+      let hsFile = replaceExtension axelFile "hs"
       let transpiled = do
             axelSource <- T.readFile $ T.unpack (op FilePath axelFile)
             output <-
               runApp $
-              Eff.evalState (M.empty :: ModuleInfo) $
+              Eff.evalState (M.empty :: SM.ModuleInfo) $
               Ghci.withGhci $ transpileSource (takeBaseName axelFile) axelSource
             let newSource = encodeUtf8Lazy $ SM.raw output
             pure $ newSource <> "\n"
+      let testName = T.unpack . op FilePath $ takeBaseName axelFile
       pure $
-        goldenVsString
-          (T.unpack . op FilePath $ takeBaseName axelFile)
-          (T.unpack . op FilePath $ hsFile)
-          transpiled
+        goldenVsString testName (T.unpack . op FilePath $ hsFile) transpiled
diff --git a/test/Axel/Test/Transpilation/macros/ExpandIntoInterdependentMacros.hs_golden b/test/Axel/Test/Transpilation/macros/ExpandIntoInterdependentMacros.hs_golden
diff --git a/test/Axel/Test/Transpilation/macros/Quasiquote.hs_golden b/test/Axel/Test/Transpilation/macros/Quasiquote.hs_golden
diff --git a/...xpandIntoInterdependentMacros.axel_golden → ...olden_ExpandIntoInterdependentMacros.axel b/...xpandIntoInterdependentMacros.axel_golden → ...olden_ExpandIntoInterdependentMacros.axel