mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

fix windows build

Browse source
This commit is contained in:
Joey Hess 2024-11-20 15:19:23 -04:00
parent 6f49f17f22
commit 0083ccc677
No known key found for this signature in database
GPG key ID: DB12DB0FF05F8F38
1 changed files with 6 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

11
Test.hs
View file

@ -425,18 +425,14 @@ test_add_extras = intmpclonerepo $ do
checkbackend wormannexedfile backendWORM checkbackend wormannexedfile backendWORM
test_git_remote_annex :: Bool -> Assertion test_git_remote_annex :: Bool -> Assertion
test_git_remote_annex exporttree
#ifndef mingw32_HOST_OS #ifndef mingw32_HOST_OS
test_git_remote_annex exporttree
| exporttree = | exporttree =
runtest ["importtree=yes", "exporttree=yes"] $ runtest ["importtree=yes", "exporttree=yes"] $
git_annex "export" ["master", "--to=foo"] "export" git_annex "export" ["master", "--to=foo"] "export"
| otherwise = | otherwise =
runtest [] $ runtest [] $
git_annex "copy" ["--to=foo"] "copy" git_annex "copy" ["--to=foo"] "copy"
#else
-- git-remote-annex is not currently installed on Windows
return ()
#endif
where where
runtest cfg populate = whenM Git.Bundle.versionSupported $ runtest cfg populate = whenM Git.Bundle.versionSupported $
intmpclonerepo $ do intmpclonerepo $ do
@ -455,6 +451,11 @@ test_git_remote_annex exporttree
inpath "clonedir" $ inpath "clonedir" $
git_annex "get" [annexedfile] "get from origin special remote" git_annex "get" [annexedfile] "get from origin special remote"
diruuid="89ddefa4-a04c-11ef-87b5-e880882a4f98" diruuid="89ddefa4-a04c-11ef-87b5-e880882a4f98"
#else
test_git_remote_annex exporttree =
-- git-remote-annex is not currently installed on Windows
return ()
#endif
test_add_moved :: Assertion test_add_moved :: Assertion
test_add_moved = intmpclonerepo $ do test_add_moved = intmpclonerepo $ do