maurice/snix
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Put new levels at the right position in the list

Browse source 
New levels need to go at the *end* of the list of levels, not the
beginning - otherwise we jump to the proper position on the new level
but the current level stays the same (oops).
This commit is contained in:
Griffin Smith 2020-01-20 10:31:02 -05:00
parent d62aba218d
commit 72edcff323
3 changed files with 8 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

6
test/Xanthous/Data/LevelsSpec.hs
View file

@ -37,6 +37,12 @@ test = testGroup "Xanthous.Data.Levels"
, testProperty "extract is total" $ \(levels :: Levels Int) genned ->
let levels' = runIdentity . nextLevel (Identity genned) $ levels
in total $ extract levels'
, testProperty "uses the generated level as the next level"
$ \(levels :: Levels Int) genned ->
let levels' = seek (length levels - 1) levels
levels'' = runIdentity . nextLevel (Identity genned) $ levels'
in counterexample (show levels'')
$ extract levels'' === genned
]
, testGroup "prevLevel"
[ testProperty "seeks backwards" $ \(levels :: Levels Int) ->