From cfb8b07fcb102573b70f37de9421e14d1300ac58 Mon Sep 17 00:00:00 2001
From: Brad Richardson <everythingfunctional@protonmail.com>
Date: Tue, 20 Oct 2020 11:06:35 -0500
Subject: Add test for source file name of program's compile time info

---
 bootstrap/src/BuildModel.hs                     | 11 ++++++
 bootstrap/unit_test/ProgramToCompileInfoTest.hs | 48 +++++++++++++++++++++++++
 2 files changed, 59 insertions(+)
 create mode 100644 bootstrap/unit_test/ProgramToCompileInfoTest.hs

(limited to 'bootstrap')

diff --git a/bootstrap/src/BuildModel.hs b/bootstrap/src/BuildModel.hs
index eba1440..9bc6b48 100644
--- a/bootstrap/src/BuildModel.hs
+++ b/bootstrap/src/BuildModel.hs
@@ -58,6 +58,10 @@ data Source =
     , submoduleName :: String
     }
 
+data CompileTimeInfo = CompileTimeInfo {
+    compileTimeInfoSourceFileName :: FilePath
+}
+
 processRawSource :: RawSource -> Source
 processRawSource rawSource =
   let sourceFileName = rawSourceFilename rawSource
@@ -86,6 +90,13 @@ processRawSource rawSource =
                            }
             else undefined
 
+constructCompileTimeInfo :: Source -> [Source] -> FilePath -> CompileTimeInfo
+constructCompileTimeInfo program@(Program{}) otherSources buildDirectory =
+  CompileTimeInfo
+    { compileTimeInfoSourceFileName = programSourceFileName program
+    }
+constructCompileTimeInfo _ otherSources buildDirectory = undefined
+
 pathSeparatorsToUnderscores :: FilePath -> FilePath
 pathSeparatorsToUnderscores fileName =
   intercalate "_" (splitDirectories fileName)
diff --git a/bootstrap/unit_test/ProgramToCompileInfoTest.hs b/bootstrap/unit_test/ProgramToCompileInfoTest.hs
new file mode 100644
index 0000000..b855c66
--- /dev/null
+++ b/bootstrap/unit_test/ProgramToCompileInfoTest.hs
@@ -0,0 +1,48 @@
+module ProgramToCompileInfoTest
+  ( test
+  )
+where
+
+import           BuildModel                     ( Source(..)
+                                                , CompileTimeInfo(..)
+                                                , constructCompileTimeInfo
+                                                )
+import           Hedge                          ( Result
+                                                , Test
+                                                , assertEquals
+                                                , givenInput
+                                                , then'
+                                                , whenTransformed
+                                                )
+import           System.FilePath                ( (</>) )
+
+test :: IO (Test ())
+test = return $ givenInput
+  "a program and other sources"
+  (exampleProgram, exampleSources)
+  [ whenTransformed
+      "its compileTimeInfo is determined"
+      doCompileTimeTransformation
+      [then' "it still knows the original source file" checkSourceFileName]
+  ]
+
+exampleProgram :: Source
+exampleProgram = Program
+  { programSourceFileName = programSourceFileName'
+  , programObjectFileName = \bd -> bd </> "some_file_somewhere.f90.o"
+  , programModulesUsed    = ["module1", "module2", "module3"]
+  }
+
+programSourceFileName' :: String
+programSourceFileName' = "some" </> "file" </> "somewhere.f90"
+
+exampleSources :: [Source]
+exampleSources = []
+
+doCompileTimeTransformation :: (Source, [Source]) -> CompileTimeInfo
+doCompileTimeTransformation (programSource, otherSources) =
+  constructCompileTimeInfo programSource otherSources "build_dir"
+
+checkSourceFileName :: CompileTimeInfo -> Result
+checkSourceFileName cti =
+  assertEquals programSourceFileName' (compileTimeInfoSourceFileName cti)
-- 
cgit v1.2.3