more fixes for test suite in direct mode
Still quite a few failures.
This commit is contained in:
parent
aba49995b6
commit
ecca55ae85
2 changed files with 11 additions and 9 deletions
17
Test.hs
17
Test.hs
|
@ -188,7 +188,7 @@ test_add env = "git-annex add" ~: TestList [basic, sha1dup, subdirs]
|
|||
boolSystem "git" [Params "rm --force -q", File wormannexedfile] @? "git rm failed"
|
||||
writeFile ingitfile $ content ingitfile
|
||||
boolSystem "git" [Param "add", File ingitfile] @? "git add failed"
|
||||
boolSystem "git" [Params "commit -q -a -m commit"] @? "git commit failed"
|
||||
boolSystem "git" [Params "commit -q -m commit"] @? "git commit failed"
|
||||
git_annex env "add" [ingitfile] @? "add ingitfile should be no-op"
|
||||
unannexed ingitfile
|
||||
sha1dup = TestCase $ intmpclonerepo env $ do
|
||||
|
@ -373,7 +373,7 @@ test_edit env = "git-annex edit/commit" ~: TestList [t False, t True]
|
|||
git_annex env "pre-commit" []
|
||||
@? "pre-commit failed"
|
||||
else do
|
||||
boolSystem "git" [Params "commit -q -a -m contentchanged"]
|
||||
boolSystem "git" [Params "commit -q -m contentchanged"]
|
||||
@? "git commit of edited file failed"
|
||||
runchecks [checklink, checkunwritable] annexedfile
|
||||
c <- readFile annexedfile
|
||||
|
@ -906,11 +906,14 @@ checkwritable f = do
|
|||
Right _ -> return ()
|
||||
|
||||
checkdangling :: FilePath -> Assertion
|
||||
checkdangling f = do
|
||||
r <- tryIO $ readFile f
|
||||
case r of
|
||||
Left _ -> return () -- expected; dangling link
|
||||
Right _ -> assertFailure $ f ++ " was not a dangling link as expected"
|
||||
checkdangling f = ifM (annexeval Config.crippledFileSystem)
|
||||
( return () -- probably no real symlinks to test
|
||||
, do
|
||||
r <- tryIO $ readFile f
|
||||
case r of
|
||||
Left _ -> return () -- expected; dangling link
|
||||
Right _ -> assertFailure $ f ++ " was not a dangling link as expected"
|
||||
)
|
||||
|
||||
checklocationlog :: FilePath -> Bool -> Assertion
|
||||
checklocationlog f expected = do
|
||||
|
|
|
@ -25,8 +25,7 @@ to improve it.
|
|||
and a few places use it. I have some horrible workarounds in place.
|
||||
* Get local pairing to work. network-multicast and network-info don't
|
||||
currently install.
|
||||
* Get test suite to pass. Current failure is because `git fetch` is somehow
|
||||
broken with local repositories.
|
||||
* Get test suite to pass.
|
||||
* Make app autostart on boot, optionally. <http://stackoverflow.com/questions/1056570/how-to-autostart-an-android-application>
|
||||
* The app should be aware of power status, and avoid expensive background
|
||||
jobs when low on battery or run flat out when plugged in.
|
||||
|
|
Loading…
Reference in a new issue