From d9dc9f2ae5f196c15a7d35cddabc805c40ff86ce Mon Sep 17 00:00:00 2001
From: Sebastian Ehlert <28669218+awvwgk@users.noreply.github.com>
Date: Wed, 31 Mar 2021 16:13:58 +0200
Subject: Phase out Haskell fpm (#420)

- remove bootstrap directory from repository
- remove stack-build from CI workflow
- move Fortran fpm to project root
- adjust install script and bootstrap instructions
---
 .../unit_test/SubmoduleSourceConstructionTest.hs   | 79 ----------------------
 1 file changed, 79 deletions(-)
 delete mode 100644 bootstrap/unit_test/SubmoduleSourceConstructionTest.hs

(limited to 'bootstrap/unit_test/SubmoduleSourceConstructionTest.hs')

diff --git a/bootstrap/unit_test/SubmoduleSourceConstructionTest.hs b/bootstrap/unit_test/SubmoduleSourceConstructionTest.hs
deleted file mode 100644
index d07a6ed..0000000
--- a/bootstrap/unit_test/SubmoduleSourceConstructionTest.hs
+++ /dev/null
@@ -1,79 +0,0 @@
-module SubmoduleSourceConstructionTest
-  ( test
-  )
-where
-
-import           BuildModel                     ( RawSource(..)
-                                                , Source(..)
-                                                , processRawSource
-                                                )
-import           Hedge                          ( Result
-                                                , Test
-                                                , assertEquals
-                                                , assertThat
-                                                , fail'
-                                                , givenInput
-                                                , then'
-                                                , whenTransformed
-                                                )
-import           System.FilePath                ( (</>) )
-
-test :: IO (Test ())
-test = return $ givenInput
-  "a submodule"
-  exampleSubmodule
-  [ whenTransformed
-      "processed to a source"
-      processRawSource
-      [ then' "it is a Submodule" checkIsSubmodule
-      , then' "its source file name is the same as the original"
-              checkSubmoduleSourceFileName
-      , then'
-        "its object file name is the 'flattened' path of the source file with '.o' appeneded"
-        checkSubmoduleObjectFileName
-      , then' "it knows what modules it uses directly" checkSubmoduleModulesUsed
-      , then' "it knows its parent's name"             checkSubmoduleParentName
-      , then' "it knows its name"                      checkSubmoduleName
-      ]
-  ]
-
-exampleSubmodule :: RawSource
-exampleSubmodule = RawSource submoduleSourceFileName' $ unlines
-  [ "submodule (some_module:parent) child"
-  , "  use module1"
-  , "  USE MODULE2"
-  , "  implicit none"
-  , "end submodule"
-  ]
-
-submoduleSourceFileName' :: String
-submoduleSourceFileName' = "some" </> "file" </> "somewhere.f90"
-
-checkIsSubmodule :: Source -> Result
-checkIsSubmodule Submodule{} = assertThat True
-checkIsSubmodule _           = assertThat False
-
-checkSubmoduleSourceFileName :: Source -> Result
-checkSubmoduleSourceFileName s@(Submodule{}) =
-  assertEquals submoduleSourceFileName' $ submoduleSourceFileName s
-checkSubmoduleSourceFileName _ = fail' "wasn't a Submodule"
-
-checkSubmoduleObjectFileName :: Source -> Result
-checkSubmoduleObjectFileName s@(Submodule{}) =
-  assertEquals ("." </> "some_file_somewhere.f90.o")
-    $ (submoduleObjectFileName s) "."
-checkSubmoduleObjectFileName _ = fail' "wasn't a Submodule"
-
-checkSubmoduleModulesUsed :: Source -> Result
-checkSubmoduleModulesUsed s@(Submodule{}) =
-  assertEquals ["module1", "module2"] $ submoduleModulesUsed s
-checkSubmoduleModulesUsed _ = fail' "wasn't a Submodule"
-
-checkSubmoduleParentName :: Source -> Result
-checkSubmoduleParentName s@(Submodule{}) =
-  assertEquals "some_module@parent" (submoduleParentName s)
-checkSubmoduleParentName _ = fail' "wasn't a Submodule"
-
-checkSubmoduleName :: Source -> Result
-checkSubmoduleName s@(Submodule{}) = assertEquals "child" $ submoduleName s
-checkSubmoduleName _               = fail' "wasn't a Submodule"
-- 
cgit v1.2.3