{- passman Copyright (C) 2018 Jonathan Lamothe This program is free software: you can redistribute it and/or modify it under the terms of the GNU Lesser General Public License as published by the Free Software Foundation, either version 3 of the License, or (at your option) any later version. This program is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU Lesser General Public License for more details. You should have received a copy of the GNU Lesser General Public License along with this program. If not, see . -} module Spec.JSON (tests) where import Data.Aeson (eitherDecode, encode, decode) import qualified Data.ByteString.Lazy as B import qualified Data.Map as M import System.Random (mkStdGen) import Test.HUnit (Test (..), (~?=)) import Password tests = TestLabel "JSON" $ TestList [success, failure] success = TestLabel "succeasful encoding/decoding" $ eitherDecode (encode db) ~?= Right db failure = TestLabel "decoding failure" $ (decode B.empty :: Maybe PWDatabase) ~?= Nothing db = M.fromList [ ( "foo", foo ) , ( "bar", bar ) , ( "baz", baz ) ] (foo, g') = newPWData g (bar, g'') = newPWData g' (baz, _) = newPWData g'' g = mkStdGen 1 --jl