diff options
author | Joey Hess <joey@kitenet.net> | 2011-10-31 15:18:41 -0400 |
---|---|---|
committer | Joey Hess <joey@kitenet.net> | 2011-10-31 15:18:41 -0400 |
commit | 3d3e1c4c25f4bbefd0f5e3f445444f3293875a93 (patch) | |
tree | 0331686878d92d8fc082875c605cc1245ef9beba /test.hs | |
parent | 09861cf4f75e2bb9e5597f8b9ea39ab4a33bf4d8 (diff) |
better command name
Diffstat (limited to 'test.hs')
-rw-r--r-- | test.hs | 8 |
1 files changed, 4 insertions, 4 deletions
@@ -88,7 +88,7 @@ blackbox = TestLabel "blackbox" $ TestList -- test order matters, later tests may rely on state from earlier [ test_init , test_add - , test_setcontent + , test_reinject , test_unannex , test_drop , test_get @@ -140,13 +140,13 @@ test_add = "git-annex add" ~: TestList [basic, sha1dup, subdirs] changeWorkingDirectory "dir" git_annex "add" ["-q", "../dir2"] @? "add of ../subdir failed" -test_setcontent :: Test -test_setcontent = "git-annex setcontent/fromkey" ~: TestCase $ intmpclonerepo $ do +test_reinject :: Test +test_reinject = "git-annex reinject/fromkey" ~: TestCase $ intmpclonerepo $ do git_annex "drop" ["-q", "--force", sha1annexedfile] @? "drop failed" writeFile tmp $ content sha1annexedfile r <- annexeval $ Types.Backend.getKey backendSHA1 tmp let key = show $ fromJust r - git_annex "setcontent" ["-q", tmp, sha1annexedfile] @? "setcontent failed" + git_annex "reinject" ["-q", tmp, sha1annexedfile] @? "reinject failed" git_annex "fromkey" ["-q", key, sha1annexedfiledup] @? "fromkey failed" annexed_present sha1annexedfiledup where |