diff options
| author |  Joey Hess <joey@kitenet.net> | 2011-01-07 02:18:39 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2011-01-07 02:18:39 -0400 |
| commit | 7d15a5795aaad3b291406c1b52b381a1f246d6f2 (patch) | |
| tree | 38124b300ae1e61eeb71e4d43591d6fa21083136 /test.hs | |
| parent | f189929b8b46016a254a6a938f9aba01184fb6c6 (diff) | |
more tests
Diffstat (limited to 'test.hs')
| -rw-r--r-- | test.hs | 12 |
1 files changed, 12 insertions, 0 deletions
@@ -137,6 +137,12 @@ test_move = "git-annex move" ~: intmpclonerepo $ do checklink annexedfile checkdangling annexedfile checkunwritable annexedfile + git_annex "move" ["-q", "--to", "origin", ingitfile] @? "move of ingitfile should be no-op" + checkregularfile ingitfile + checkcontent ingitfile + git_annex "move" ["-q", "--from", "origin", ingitfile] @? "move of ingitfile should be no-op" + checkregularfile ingitfile + checkcontent ingitfile test_copy :: Test test_copy = "git-annex copy" ~: intmpclonerepo $ do @@ -156,6 +162,12 @@ test_copy = "git-annex copy" ~: intmpclonerepo $ do checklink annexedfile checkdangling annexedfile checkunwritable annexedfile + git_annex "copy" ["-q", "--to", "origin", ingitfile] @? "copy of ingitfile should be no-op" + checkregularfile ingitfile + checkcontent ingitfile + git_annex "copy" ["-q", "--from", "origin", ingitfile] @? "copy of ingitfile should be no-op" + checkregularfile ingitfile + checkcontent ingitfile git_annex :: String -> [String] -> IO Bool |