more robust test

camfort · Sep 4, 2024 · 3322bd5 · 3322bd5
1 parent 5bd841f
commit 3322bd5
Showing 1 changed file with 7 additions and 3 deletions.
diff --git a/test/Language/Fortran/Analysis/ModGraphSpec.hs b/test/Language/Fortran/Analysis/ModGraphSpec.hs
@@ -21,6 +21,10 @@ testDependencyList = do
  paths' <- expandDirs ["test-data" </> "module"]
  mg <- genModGraph (Just Fortran90) ["."] Nothing paths'
  let list = modGraphToList mg
- let files = ["leaf.f90", "mid1.f90", "mid2.f90", "top.f90"]
- let filesWithPaths = map (("test-data" </> "module") </>) files
- list `shouldBe` filesWithPaths
+ -- we should have two possible orderings
+ let files1 = ["leaf.f90", "mid1.f90", "mid2.f90", "top.f90"]
+ let filesWithPaths1 = map (("test-data" </> "module") </>) files1
+ -- or in a different order
+ let files2 = ["leaf.f90", "mid2.f90", "mid1.f90", "top.f90"]
+ let filesWithPaths2 = map (("test-data" </> "module") </>) files2
+ shouldSatisfy list (\x -> x == filesWithPaths1 || x == filesWithPaths2)