Skip to content

Commit 27d36ab

Browse files
committed
Use generic paths in safeSeparators tests
1 parent fc71e92 commit 27d36ab

1 file changed

Lines changed: 3 additions & 4 deletions

File tree

test/App/Fossa/VendoredDependencySpec.hs

Lines changed: 3 additions & 4 deletions
Original file line numberDiff line numberDiff line change
@@ -45,12 +45,11 @@ spec = do
4545

4646
describe "safeSeparators" $ do
4747
it "joins relative path components with underscores" $
48-
safeSeparators "build/base-files" `shouldBe` "build_base-files"
48+
safeSeparators "foo/bar" `shouldBe` "foo_bar"
4949
it "leaves bare filenames untouched" $
50-
safeSeparators "base-files" `shouldBe` "base-files"
50+
safeSeparators "foo" `shouldBe` "foo"
5151
it "drops the root component for absolute paths" $
52-
safeSeparators "/home/marcel/build/tmp/fossa_metadata/src/base-files"
53-
`shouldBe` "home_marcel_build_tmp_fossa_metadata_src_base-files"
52+
safeSeparators "/foo/bar/baz" `shouldBe` "foo_bar_baz"
5453

5554
describe "skippedDepsDebugLog" $ do
5655
it "should return SkippingUnsupportedMsg when skipping is not supported" $

0 commit comments

Comments
 (0)