diff options
Diffstat (limited to 'Test.hs')
-rw-r--r-- | Test.hs | 7 |
1 files changed, 5 insertions, 2 deletions
@@ -374,8 +374,11 @@ test_reinject = intmpclonerepoInDirect $ do key <- Types.Key.key2file <$> getKey backendSHA1 tmp git_annex "reinject" [tmp, sha1annexedfile] @? "reinject failed" annexed_present sha1annexedfile - git_annex "fromkey" [key, sha1annexedfiledup] @? "fromkey failed for dup" - annexed_present_locked sha1annexedfiledup + -- fromkey can't be used on a crippled filesystem, since it makes a + -- symlink + unlessM (annexeval Config.crippledFileSystem) $ do + git_annex "fromkey" [key, sha1annexedfiledup] @? "fromkey failed for dup" + annexed_present_locked sha1annexedfiledup where tmp = "tmpfile" |