From 20ee2333cd86909e21ca5bd88f3d7166e1941c92 Mon Sep 17 00:00:00 2001 From: Brad Richardson Date: Tue, 20 Oct 2020 11:15:25 -0500 Subject: Add test that program produces no other files --- bootstrap/unit_test/ProgramToCompileInfoTest.hs | 6 ++++++ 1 file changed, 6 insertions(+) (limited to 'bootstrap/unit_test') 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) -- cgit v1.2.3