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

disable a test that windows git doesn't support

Browse source
This commit is contained in:
Joey Hess 2013-06-18 15:21:13 -04:00
parent 4e28e84baf
commit 55f971de3c
1 changed files with 3 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

3
Test.hs
View file

@ -216,8 +216,11 @@ test_add env = "git-annex add" ~: TestList [basic, sha1dup, subdirs]
git_annex env "add" ["dir"] @? "add of subdir failed" git_annex env "add" ["dir"] @? "add of subdir failed"
createDirectory "dir2" createDirectory "dir2"
writeFile ("dir2" </> "foo") $ content annexedfile writeFile ("dir2" </> "foo") $ content annexedfile
#ifndef __WINDOWS__
{- This does not work on Windows, for whatever reason. -}
setCurrentDirectory "dir" setCurrentDirectory "dir"
git_annex env "add" [".." </> "dir2"] @? "add of ../subdir failed" git_annex env "add" [".." </> "dir2"] @? "add of ../subdir failed"
#endif
test_reinject :: TestEnv -> Test test_reinject :: TestEnv -> Test
test_reinject env = "git-annex reinject/fromkey" ~: TestCase $ intmpclonerepoInDirect env $ do test_reinject env = "git-annex reinject/fromkey" ~: TestCase $ intmpclonerepoInDirect env $ do