54 lines
1.8 KiB
Haskell
54 lines
1.8 KiB
Haskell
{-# Language TypeApplications #-}
|
|
module Main where
|
|
|
|
import qualified Data.Aeson as A
|
|
import Data.Char (isPrint)
|
|
import Data.GenValidity.Text ()
|
|
import qualified Data.Text as T
|
|
import Database.Schema
|
|
import Test.Hspec
|
|
import Test.Validity
|
|
|
|
instance GenUnchecked PlainPassword
|
|
instance GenValid PlainPassword
|
|
instance GenInvalid PlainPassword
|
|
instance Validity PlainPassword
|
|
instance GenUnchecked Email
|
|
instance GenValid Email
|
|
instance GenInvalid Email
|
|
instance Validity Email
|
|
instance GenUnchecked Username
|
|
instance GenValid Username
|
|
instance GenInvalid Username
|
|
instance Validity Username
|
|
instance GenUnchecked BookID
|
|
instance GenValid BookID
|
|
instance GenInvalid BookID
|
|
instance Validity BookID
|
|
instance GenUnchecked ChannelID
|
|
instance GenValid ChannelID
|
|
instance GenInvalid ChannelID
|
|
instance Validity ChannelID
|
|
instance GenUnchecked Role
|
|
instance GenValid Role
|
|
instance GenInvalid Role
|
|
instance Validity Role
|
|
instance GenUnchecked Visibility
|
|
instance GenValid Visibility
|
|
instance GenInvalid Visibility
|
|
instance Validity Visibility
|
|
|
|
spec :: Spec
|
|
spec = do
|
|
describe "JSON encoding" $ do
|
|
it "Works for PlainPassword" $ inverseFunctionsIfSecondSucceedsOnValid (A.encode @PlainPassword) A.decode
|
|
it "Works for Email" $ inverseFunctionsIfSecondSucceedsOnValid (A.encode @Email) A.decode
|
|
it "Username" $ inverseFunctionsIfSecondSucceedsOnValid (A.encode @Username) A.decode
|
|
it "Works for BookID" $ inverseFunctionsIfSecondSucceedsOnValid (A.encode @BookID) A.decode
|
|
it "Works for ChannelID" $ inverseFunctionsIfSecondSucceedsOnValid (A.encode @ChannelID) A.decode
|
|
it "Works for Role" $ inverseFunctionsIfSecondSucceedsOnValid (A.encode @Role) A.decode
|
|
it "Works for Visibility" $ inverseFunctionsIfSecondSucceedsOnValid (A.encode @Visibility) A.decode
|
|
|
|
main :: IO ()
|
|
main = hspec spec
|