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

more slash fixes

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

6
Test.hs
View file

@ -212,12 +212,12 @@ test_add env = "git-annex add" ~: TestList [basic, sha1dup, subdirs]
annexed_present sha1annexedfile annexed_present sha1annexedfile
subdirs = TestCase $ intmpclonerepo env $ do subdirs = TestCase $ intmpclonerepo env $ do
createDirectory "dir" createDirectory "dir"
writeFile "dir/foo" $ content annexedfile writeFile ("dir" </> "foo") $ content annexedfile
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
setCurrentDirectory "dir" setCurrentDirectory "dir"
git_annex env "add" ["../dir2"] @? "add of ../subdir failed" git_annex env "add" [".." </> "dir2"] @? "add of ../subdir failed"
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