add checks that location log files are committed

currently failing for move --to

1 files changed, 12 insertions, 0 deletions

diff --git a/test.hs b/test.hs
index 20e8bc28a..0a5a365d9 100644
--- a/test.hs
+++ b/test.hs
@@ -375,6 +375,18 @@ checklocationlog f expected = do
 			uuids <- LocationLog.keyLocations g' k
 			assertEqual ("location log for " ++ f ++ " " ++ (show k) ++ " " ++ thisuuid)
 				expected (elem thisuuid uuids)
+
+			-- Location log files should always be checked
+			-- into git, and any modifications staged for
+			-- commit. This is a regression test, as some
+			-- commands forgot to.
+			let lf = LocationLog.logFile g' k
+			fs <- Git.inRepo g' [lf]
+			when (null fs) $
+				assertFailure $ f ++ " logfile not added to git repo"
+			ufs <- Git.changedUnstagedFiles g' [lf]
+			when (not $ null ufs) $
+				assertFailure $ f ++ " logfile changes not staged"
 		_ -> assertFailure $ f ++ " failed to look up key"
 
 inlocationlog :: FilePath -> Assertion