diff options
Diffstat (limited to 'bootstrap/unit_test')
| -rw-r--r-- | bootstrap/unit_test/ProgramToCompileInfoTest.hs | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/bootstrap/unit_test/ProgramToCompileInfoTest.hs b/bootstrap/unit_test/ProgramToCompileInfoTest.hs index ca1f228..e16ab22 100644 --- a/bootstrap/unit_test/ProgramToCompileInfoTest.hs +++ b/bootstrap/unit_test/ProgramToCompileInfoTest.hs @@ -9,6 +9,7 @@ import BuildModel ( Source(..) ) import Hedge ( Result , Test + , assertEmpty , assertEquals , givenInput , then' @@ -25,6 +26,7 @@ test = return $ givenInput doCompileTimeTransformation [ then' "it still knows the original source file" checkSourceFileName , then' "it knows what object file will be produced" checkObjectFileName + , then' "there are no other files produced" checkOtherFilesProduced ] ] @@ -53,3 +55,7 @@ checkObjectFileName :: CompileTimeInfo -> Result checkObjectFileName cti = assertEquals ("build_dir" </> "some_file_somewhere.f90.o") (compileTimeInfoObjectFileProduced cti) + +checkOtherFilesProduced :: CompileTimeInfo -> Result +checkOtherFilesProduced cti = + assertEmpty (compileTimeInfoOtherFilesProduced cti) |