From 0799961cdd047005021549c32d8f8d7731f40d27 Mon Sep 17 00:00:00 2001
From: Brad Richardson <everythingfunctional@protonmail.com>
Date: Tue, 20 Oct 2020 14:36:30 -0500
Subject: Split submodule name into two components

---
 bootstrap/unit_test/SubmoduleSourceConstructionTest.hs | 11 ++++++++---
 1 file changed, 8 insertions(+), 3 deletions(-)

(limited to 'bootstrap/unit_test')

diff --git a/bootstrap/unit_test/SubmoduleSourceConstructionTest.hs b/bootstrap/unit_test/SubmoduleSourceConstructionTest.hs
index 577207e..d07a6ed 100644
--- a/bootstrap/unit_test/SubmoduleSourceConstructionTest.hs
+++ b/bootstrap/unit_test/SubmoduleSourceConstructionTest.hs
@@ -32,6 +32,7 @@ test = return $ givenInput
         "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
       ]
   ]
@@ -68,7 +69,11 @@ 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 "some_module@parent@child" $ submoduleName s
-checkSubmoduleName _ = fail' "wasn't a Submodule"
+checkSubmoduleName s@(Submodule{}) = assertEquals "child" $ submoduleName s
+checkSubmoduleName _               = fail' "wasn't a Submodule"
-- 
cgit v1.2.3