diff options
| -rw-r--r-- | bootstrap/unit_test/SourceConstructionTest.hs | 18 |
1 files changed, 8 insertions, 10 deletions
diff --git a/bootstrap/unit_test/SourceConstructionTest.hs b/bootstrap/unit_test/SourceConstructionTest.hs index 2cee008..24122c5 100644 --- a/bootstrap/unit_test/SourceConstructionTest.hs +++ b/bootstrap/unit_test/SourceConstructionTest.hs @@ -46,18 +46,16 @@ programSourceFileName' :: String programSourceFileName' = "some" </> "file" </> "somewhere.f90" checkIsProgram :: Source -> Result -checkIsProgram s = assertThat $ case s of - Program{} -> True - _ -> False +checkIsProgram Program{} = assertThat True +checkIsProgram _ = assertThat False checkProgramSourceFileName :: Source -> Result -checkProgramSourceFileName s = case s of - p@(Program{}) -> - assertEquals programSourceFileName' $ programSourceFileName p - _ -> fail' "wasn't a Program" +checkProgramSourceFileName p@(Program{}) = + assertEquals programSourceFileName' $ programSourceFileName p +checkProgramSourceFileName _ = fail' "wasn't a Program" checkProgramObjectFileName :: Source -> Result -checkProgramObjectFileName s = case s of - p@(Program{}) -> assertEquals ("." </> "some_file_somewhere.f90.o") +checkProgramObjectFileName p@(Program{}) = + assertEquals ("." </> "some_file_somewhere.f90.o") $ (programObjectFileName p) "." - _ -> fail' "wasn't a Program" +checkProgramObjectFileName _ = fail' "wasn't a Program" |