diff options
Diffstat (limited to 'test/Xanthous/GameSpec.hs')
-rw-r--r-- | test/Xanthous/GameSpec.hs | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/test/Xanthous/GameSpec.hs b/test/Xanthous/GameSpec.hs index 75e9f6215ade..2fa8527d0e59 100644 --- a/test/Xanthous/GameSpec.hs +++ b/test/Xanthous/GameSpec.hs @@ -46,6 +46,8 @@ test ] , testGroup "Saving the game" [ testProperty "forms a prism" $ isPrism saved + , testProperty "round-trips" $ \gs -> + loadGame (saveGame gs) === Just gs , testProperty "preserves the character ID" $ \gs -> let Just gs' = loadGame $ saveGame gs in gs' ^. character === gs ^. character |