diff options
| author | Brad Richardson <everythingfunctional@protonmail.com> | 2020-10-15 10:36:58 -0500 |
|---|---|---|
| committer | Brad Richardson <everythingfunctional@protonmail.com> | 2020-10-15 10:36:58 -0500 |
| commit | 134713a6c3620bf5b71ceaa2b6bed3a228d1c297 (patch) | |
| tree | 37c1759b1cb0e791dffa445115065ad558261533 /bootstrap/unit_test/ProgramSourceConstructionTest.hs | |
| parent | 84884be16503e506cd5ad7f927297fd7d25de779 (diff) | |
| download | fpm-134713a6c3620bf5b71ceaa2b6bed3a228d1c297.tar.gz fpm-134713a6c3620bf5b71ceaa2b6bed3a228d1c297.zip | |
Add test for modules a module uses
Diffstat (limited to 'bootstrap/unit_test/ProgramSourceConstructionTest.hs')
| -rw-r--r-- | bootstrap/unit_test/ProgramSourceConstructionTest.hs | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/bootstrap/unit_test/ProgramSourceConstructionTest.hs b/bootstrap/unit_test/ProgramSourceConstructionTest.hs index 91f0d90..6369965 100644 --- a/bootstrap/unit_test/ProgramSourceConstructionTest.hs +++ b/bootstrap/unit_test/ProgramSourceConstructionTest.hs @@ -7,7 +7,6 @@ import BuildModel ( RawSource(..) , Source(..) , processRawSource ) -import System.FilePath ( (</>) ) import Hedge ( Result , Test , assertEquals @@ -17,6 +16,7 @@ import Hedge ( Result , then' , whenTransformed ) +import System.FilePath ( (</>) ) test :: IO (Test ()) test = return $ givenInput @@ -64,5 +64,6 @@ checkProgramObjectFileName p@(Program{}) = checkProgramObjectFileName _ = fail' "wasn't a Program" checkProgramModulesUsed :: Source -> Result -checkProgramModulesUsed p@(Program{}) = assertEquals ["module1", "module2"] $ programModulesUsed p +checkProgramModulesUsed p@(Program{}) = + assertEquals ["module1", "module2"] $ programModulesUsed p checkProgramModulesUsed _ = fail' "wasn't a Program" |