test: Fix some test cases that assumed git's default branch name

git is making that configurable, and configuring it globally would break
the test suite in a few places.

No other part of git-annex assumes any branch name. Renamed a few
placeholders to make that clearer.

This commit was sponsored by Jake Vosloo on Patreon.
This commit is contained in:
Joey Hess 2020-06-23 16:40:41 -04:00
parent a364effc02
commit b651d3ede0
No known key found for this signature in database
GPG key ID: DB12DB0FF05F8F38
4 changed files with 22 additions and 12 deletions

View file

@ -293,7 +293,7 @@ prop_view_roundtrips f metadata visible = or
, all hasfields (viewedFiles view viewedFileFromReference f metadata)
]
where
view = View (Git.Ref "master") $
view = View (Git.Ref "foo") $
map (\(mf, mv) -> ViewComponent mf (FilterValues $ S.filter (not . B.null . fromMetaValue) mv) visible)
(fromMetaData metadata)
visiblefields = sort (map viewField $ filter viewVisible (viewComponents view))