summaryrefslogtreecommitdiff
path: root/test.hs
diff options
context:
space:
mode:
authorGravatar Joey Hess <joey@kitenet.net>2011-10-31 15:18:41 -0400
committerGravatar Joey Hess <joey@kitenet.net>2011-10-31 15:18:41 -0400
commit3d3e1c4c25f4bbefd0f5e3f445444f3293875a93 (patch)
tree0331686878d92d8fc082875c605cc1245ef9beba /test.hs
parent09861cf4f75e2bb9e5597f8b9ea39ab4a33bf4d8 (diff)
better command name
Diffstat (limited to 'test.hs')
-rw-r--r--test.hs8
1 files changed, 4 insertions, 4 deletions
diff --git a/test.hs b/test.hs
index fa7657b58..d466d3ad3 100644
--- a/test.hs
+++ b/test.hs
@@ -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