mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

add action command to git-annex sim

Browse source 
step just picks a random action, and this allows finer control over what
happens in the sim
This commit is contained in:
Joey Hess 2024-09-09 16:06:45 -04:00
parent 21da5aadec
commit 64466d8687
No known key found for this signature in database
GPG key ID: DB12DB0FF05F8F38
3 changed files with 100 additions and 24 deletions
Download patch file Download diff file Expand all files Collapse all files

2
Command/Sim.hs
View file

@ -29,7 +29,7 @@ seek _ = do
st' <- runSimCommand (CommandInit (RepoName "foo")) st
>>= runSimCommand (CommandTrustLevel (RepoName "foo") "trusted")
>>= runSimCommand (CommandUse (RepoName "bar") "here")
>>= runSimCommand (CommandConnect (RepoName "foo") (RepoName "bar"))
>>= runSimCommand (CommandConnect (RepoName "foo") (RemoteName "bar"))
>>= runSimCommand (CommandAdd "foo" 100000 (RepoName "foo"))
let simdir = \u -> tmpdir </> fromUUID u
st'' <- liftIO $ updateSimRepos r simdir st'