argo-0.2022.2.27: source/test-suite/Main.hs
{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE QuasiQuotes #-}
import Argo.Orphanage ()
import Data.List.NonEmpty (NonEmpty((:|)))
import Test.Tasty.HUnit ((@?=))
import Test.Tasty.QuickCheck ((===))
import qualified Argo
import qualified Argo.Internal.Class.HasCodec as HasCodec
import qualified Argo.Internal.Codec.Codec as Codec
import qualified Argo.Internal.Codec.Object as Codec
import qualified Argo.Internal.Codec.Value as Codec
import qualified Argo.Internal.Json.Array as Array
import qualified Argo.Internal.Json.Boolean as Boolean
import qualified Argo.Internal.Json.Name as Name
import qualified Argo.Internal.Json.Null as Null
import qualified Argo.Internal.Json.Number as Number
import qualified Argo.Internal.Json.Object as Object
import qualified Argo.Internal.Json.String as String
import qualified Argo.Internal.Schema.Identifier as Identifier
import qualified Argo.Internal.Schema.Schema as Schema
import qualified Argo.Internal.Type.Decimal as Decimal
import qualified Argo.Internal.Type.Nullable as Nullable
import qualified Argo.Internal.Type.Optional as Optional
import qualified Argo.Internal.Type.Permission as Permission
import qualified Control.Monad.Trans.Accum as Accum
import qualified Data.ByteString as ByteString
import qualified Data.ByteString.Builder as Builder
import qualified Data.ByteString.Lazy as LazyByteString
import qualified Data.Functor.Identity as Identity
import qualified Data.Int as Int
import qualified Data.Map as Map
import qualified Data.Text as Text
import qualified Data.Text.Lazy as LazyText
import qualified Data.Word as Word
import qualified GHC.Stack as Stack
import qualified Numeric.Natural as Natural
import qualified Test.Tasty as Tasty
import qualified Test.Tasty.HUnit as Tasty
import qualified Test.Tasty.QuickCheck as Tasty
main :: IO ()
main = Tasty.defaultMain $ Tasty.testGroup
"Argo"
[ Tasty.testGroup "encode"
$ let
encode =
Builder.toLazyByteString . Argo.encode :: Argo.Value
-> LazyByteString.ByteString
in
[ Tasty.testGroup
"Null"
[ Tasty.testCase "null" $ do
encode Argo.Null @?= "null"
]
, Tasty.testGroup
"Boolean"
[ Tasty.testCase "false" $ do
encode (Argo.Boolean False) @?= "false"
, Tasty.testCase "true" $ do
encode (Argo.Boolean True) @?= "true"
]
, Tasty.testGroup
"Number"
[ Tasty.testCase "zero" $ do
encode (number 0 0) @?= "0"
, Tasty.testCase "positive integer" $ do
encode (number 1 0) @?= "1"
, Tasty.testCase "negative integer" $ do
encode (number (-1) 0) @?= "-1"
, Tasty.testCase "positive exponent" $ do
encode (number 1 1) @?= "1e1"
, Tasty.testCase "negative exponent" $ do
encode (number 1 (-1)) @?= "1e-1"
, Tasty.testCase "multiple integer digits" $ do
encode (number 12 0) @?= "12"
, Tasty.testCase "multiple exponent digits" $ do
encode (number 1 12) @?= "1e12"
]
, Tasty.testGroup
"String"
[ Tasty.testCase "empty" $ do
encode (Argo.String "") @?= "\"\""
, Tasty.testCase "one character" $ do
encode (Argo.String "a") @?= "\"a\""
, Tasty.testCase "multiple characters" $ do
encode (Argo.String "ab") @?= "\"ab\""
, Tasty.testCase "quotation mark" $ do
encode (Argo.String "\"") @?= "\"\\\"\""
, Tasty.testCase "reverse solidus" $ do
encode (Argo.String "\\") @?= "\"\\\\\""
, Tasty.testCase "backspace" $ do
encode (Argo.String "\b") @?= "\"\\b\""
, Tasty.testCase "form feed" $ do
encode (Argo.String "\f") @?= "\"\\f\""
, Tasty.testCase "new line" $ do
encode (Argo.String "\n") @?= "\"\\n\""
, Tasty.testCase "carriage return" $ do
encode (Argo.String "\r") @?= "\"\\r\""
, Tasty.testCase "horizontal tabulation" $ do
encode (Argo.String "\t") @?= "\"\\t\""
, Tasty.testCase "null" $ do
encode (Argo.String "\x0") @?= "\"\\u0000\""
, Tasty.testCase "unit separator" $ do
encode (Argo.String "\x1f") @?= "\"\\u001f\""
, Tasty.testCase "one byte" $ do
encode (Argo.String "$") @?= "\"$\""
, Tasty.testCase "two bytes" $ do
encode (Argo.String "\xa2") @?= "\"\xc2\xa2\""
, Tasty.testCase "three bytes" $ do
encode (Argo.String "\x20ac") @?= "\"\xe2\x82\xac\""
, Tasty.testCase "four bytes" $ do
encode (Argo.String "\x10348") @?= "\"\xf0\x90\x8d\x88\""
]
, Tasty.testGroup
"Array"
[ Tasty.testCase "empty" $ do
encode (Argo.Array []) @?= "[]"
, Tasty.testCase "one element" $ do
encode (Argo.Array [number 1 0]) @?= "[1]"
, Tasty.testCase "two elements" $ do
encode (Argo.Array [number 1 0, number 2 0]) @?= "[1,2]"
]
, Tasty.testGroup
"Object"
[ Tasty.testCase "empty" $ do
encode (Argo.Object []) @?= "{}"
, Tasty.testCase "one element" $ do
encode
(Argo.Object
[Argo.Member (Argo.Name "a") $ number 1 0]
)
@?= "{\"a\":1}"
, Tasty.testCase "two elements" $ do
encode
(Argo.Object
[ Argo.Member (Argo.Name "a") $ number 1 0
, Argo.Member (Argo.Name "b") $ number 2 0
]
)
@?= "{\"a\":1,\"b\":2}"
]
]
, Tasty.testGroup "decode"
$ let
decode =
hush . Argo.decode :: ByteString.ByteString
-> Maybe Argo.Value
in
[ Tasty.testGroup
"Null"
[ Tasty.testCase "null" $ do
decode "null" @?= Just Argo.Null
, Tasty.testCase "leading space" $ do
decode " null" @?= Just Argo.Null
, Tasty.testCase "trailing space" $ do
decode "null " @?= Just Argo.Null
, Tasty.testCase "trailing new line" $ do
decode "null\n" @?= Just Argo.Null
, Tasty.testCase "trailing carriage return" $ do
decode "null\r" @?= Just Argo.Null
, Tasty.testCase "trailing horizontal tab" $ do
decode "null\t" @?= Just Argo.Null
]
, Tasty.testGroup
"Boolean"
[ Tasty.testCase "false" $ do
decode "false" @?= Just (Argo.Boolean False)
, Tasty.testCase "true" $ do
decode "true" @?= Just (Argo.Boolean True)
]
, Tasty.testGroup
"Number"
[ Tasty.testCase "zero" $ do
decode "0" @?= Just (number 0 0)
, Tasty.testCase "negative zero" $ do
decode "-0" @?= Just (number 0 0)
, Tasty.testCase "positive integer" $ do
decode "1" @?= Just (number 1 0)
, Tasty.testCase "multiple integer digits" $ do
decode "12" @?= Just (number 12 0)
, Tasty.testCase "negative integer" $ do
decode "-1" @?= Just (number (-1) 0)
, Tasty.testCase "fraction" $ do
decode "0.1" @?= Just (number 1 (-1))
, Tasty.testCase "multiple fraction digits" $ do
decode "0.12" @?= Just (number 12 (-2))
, Tasty.testCase "leading zero fraction" $ do
decode "0.01" @?= Just (number 1 (-2))
, Tasty.testCase "positive exponent" $ do
decode "1e1" @?= Just (number 1 1)
, Tasty.testCase "capital exponent" $ do
decode "1E1" @?= Just (number 1 1)
, Tasty.testCase "leading zero exponent" $ do
decode "1e01" @?= Just (number 1 1)
, Tasty.testCase "explicit positive exponent" $ do
decode "1e+1" @?= Just (number 1 1)
, Tasty.testCase "negative exponent" $ do
decode "1e-1" @?= Just (number 1 (-1))
, Tasty.testCase "multiple exponent digits" $ do
decode "1e12" @?= Just (number 1 12)
, Tasty.testCase "kitchen sink" $ do
decode "12.34e56" @?= Just (number 1234 54)
, Tasty.testCase "normalized" $ do
decode "10" @?= Just (number 1 1)
, Tasty.testCase "leading zero" $ do
decode "01" @?= Nothing
, Tasty.testCase "trailing fraction" $ do
decode "1." @?= Nothing
, Tasty.testCase "leading fraction" $ do
decode ".1" @?= Nothing
, Tasty.testCase "trailing exponent" $ do
decode "1e" @?= Nothing
, Tasty.testCase "leading exponent" $ do
decode "e1" @?= Nothing
]
, Tasty.testGroup
"String"
[ Tasty.testCase "empty" $ do
decode "\"\"" @?= Just (Argo.String "")
, Tasty.testCase "one character" $ do
decode "\"a\"" @?= Just (Argo.String "a")
, Tasty.testCase "multiple characters" $ do
decode "\"ab\"" @?= Just (Argo.String "ab")
, Tasty.testCase "unnecessary escape" $ do
decode "\"\\u0020\"" @?= Just (Argo.String " ")
, Tasty.testCase "quotation mark" $ do
decode "\"\\\"\"" @?= Just (Argo.String "\"")
, Tasty.testCase "reverse solidus" $ do
decode "\"\\\\\"" @?= Just (Argo.String "\\")
, Tasty.testCase "solidus" $ do
decode "\"\\/\"" @?= Just (Argo.String "/")
, Tasty.testCase "backspace" $ do
decode "\"\\b\"" @?= Just (Argo.String "\b")
, Tasty.testCase "form feed" $ do
decode "\"\\f\"" @?= Just (Argo.String "\f")
, Tasty.testCase "new line" $ do
decode "\"\\n\"" @?= Just (Argo.String "\n")
, Tasty.testCase "carriage return" $ do
decode "\"\\r\"" @?= Just (Argo.String "\r")
, Tasty.testCase "horizontal tabulation" $ do
decode "\"\\t\"" @?= Just (Argo.String "\t")
, Tasty.testCase "null" $ do
decode "\"\\u0000\"" @?= Just (Argo.String "\x0")
, Tasty.testCase "unit separator" $ do
decode "\"\\u001f\"" @?= Just (Argo.String "\x1f")
, Tasty.testCase "capital long escape" $ do
decode "\"\\u001F\"" @?= Just (Argo.String "\x1f")
, Tasty.testCase "digits after long escape" $ do
decode "\"\\u00205\"" @?= Just (Argo.String " 5")
, Tasty.testCase "one byte" $ do
decode "\"$\"" @?= Just (Argo.String "$")
, Tasty.testCase "one byte escaped" $ do
decode "\"\\u0024\"" @?= Just (Argo.String "$")
, Tasty.testCase "two bytes" $ do
decode "\"\xc2\xa2\"" @?= Just (Argo.String "\xa2")
, Tasty.testCase "two bytes escaped" $ do
decode "\"\\u00a2\"" @?= Just (Argo.String "\xa2")
, Tasty.testCase "three bytes" $ do
decode "\"\xe2\x82\xac\"" @?= Just (Argo.String "\x20ac")
, Tasty.testCase "three bytes escaped" $ do
decode "\"\\u20ac\"" @?= Just (Argo.String "\x20ac")
, Tasty.testCase "four bytes" $ do
decode "\"\xf0\x90\x8d\x88\""
@?= Just (Argo.String "\x10348")
, Tasty.testCase "surrogate pair" $ do
decode "\"\\ud834\\udd1e\""
@?= Just (Argo.String "\x1d11e")
, Tasty.testCase "unpaired high surrogate" $ do
decode "\"\\ud800\"" @?= Just (Argo.String "\xfffd")
, Tasty.testCase "unpaired low surrogate" $ do
decode "\"\\udc00\"" @?= Just (Argo.String "\xfffd")
, Tasty.testCase "delete" $ do
decode "\"\x7f\"" @?= Just (Argo.String "\x7f")
, Tasty.testCase "invalid short escape" $ do
decode "\"\\z\"" @?= Nothing
, Tasty.testCase "capital short escape" $ do
decode "\"\\T\"" @?= Nothing
, Tasty.testCase "invalid long escape" $ do
decode "\"\\uwxyz\"" @?= Nothing
, Tasty.testCase "incomplete long escape" $ do
decode "\"\\u00\"" @?= Nothing
, Tasty.testCase "unescaped control character" $ do
decode "\"\n\"" @?= Nothing
, Tasty.testCase "unterminated" $ do
decode "\"" @?= Nothing
, Tasty.testCase "invalid UTF-8 byte" $ do
decode "\"\xff\"" @?= Nothing
]
, Tasty.testGroup
"Array"
[ Tasty.testCase "empty" $ do
decode "[]" @?= Just (Argo.Array [])
, Tasty.testCase "one element" $ do
decode "[1]" @?= Just (Argo.Array [number 1 0])
, Tasty.testCase "two elements" $ do
decode "[1,2]"
@?= Just (Argo.Array [number 1 0, number 2 0])
, Tasty.testCase "nested" $ do
decode "[1,[2]]"
@?= Just
(Argo.Array
[number 1 0, Argo.Array [number 2 0]]
)
, Tasty.testCase "not closed" $ do
decode "[" @?= Nothing
, Tasty.testCase "not opened" $ do
decode "]" @?= Nothing
, Tasty.testCase "leading comma" $ do
decode "[,1]" @?= Nothing
, Tasty.testCase "trailing comma" $ do
decode "[1,]" @?= Nothing
, Tasty.testCase "consecutive commas" $ do
decode "[1,,2]" @?= Nothing
, Tasty.testCase "like an object" $ do
decode "[\"a\":1]" @?= Nothing
]
, Tasty.testGroup
"Object"
[ Tasty.testCase "empty" $ do
decode "{}" @?= Just (Argo.Object [])
, Tasty.testCase "one element" $ do
decode "{\"a\":1}"
@?= Just
(Argo.Object
[ Argo.Member (Argo.Name "a")
$ number 1 0
]
)
, Tasty.testCase "two elements" $ do
decode "{\"a\":1,\"b\":2}" @?= Just
(Argo.Object
[ Argo.Member (Argo.Name "a") $ number 1 0
, Argo.Member (Argo.Name "b") $ number 2 0
]
)
, Tasty.testCase "nested" $ do
decode "{\"a\":{\"b\":2}}" @?= Just
(Argo.Object
[ Argo.Member (Argo.Name "a") $ Argo.Object
[Argo.Member (Argo.Name "b") $ number 2 0]
]
)
, Tasty.testCase "not closed" $ do
decode "{" @?= Nothing
, Tasty.testCase "not opened" $ do
decode "}" @?= Nothing
, Tasty.testCase "leading comma" $ do
decode "{,\"a\":1}" @?= Nothing
, Tasty.testCase "trailing comma" $ do
decode "{\"a\":1,}" @?= Nothing
, Tasty.testCase "consecutive commas" $ do
decode "{\"a\":1,,\"b\":2}" @?= Nothing
, Tasty.testCase "missing key" $ do
decode "{:1}" @?= Nothing
, Tasty.testCase "missing value" $ do
decode "{\"a\":}" @?= Nothing
, Tasty.testCase "missing separator" $ do
decode "{\"a\"1}" @?= Nothing
, Tasty.testCase "duplicate separator" $ do
decode "{\"a\"::1}" @?= Nothing
, Tasty.testCase "like an array" $ do
decode "{1}" @?= Nothing
, Tasty.testCase "non-string key" $ do
decode "{1:2}" @?= Nothing
]
]
, Tasty.testGroup
"fromValue"
[ Tasty.testCase "Value" $ do
fromValue Argo.Null @?= Right Argo.Null
, Tasty.testCase "Bool" $ do
fromValue (Argo.Boolean False) @?= Right False
, Tasty.testCase "Char" $ do
fromValue (Argo.String "a") @?= Right 'a'
, Tasty.testCase "Int" $ do
fromValue (number 0 0) @?= Right (0 :: Int)
, Tasty.testCase "Int8" $ do
fromValue (number 0 0) @?= Right (0 :: Int.Int8)
, Tasty.testCase "Int16" $ do
fromValue (number 0 0) @?= Right (0 :: Int.Int16)
, Tasty.testCase "Int32" $ do
fromValue (number 0 0) @?= Right (0 :: Int.Int32)
, Tasty.testCase "Int64" $ do
fromValue (number 0 0) @?= Right (0 :: Int.Int64)
, Tasty.testCase "Word" $ do
fromValue (number 0 0) @?= Right (0 :: Word)
, Tasty.testCase "Word8" $ do
fromValue (number 0 0) @?= Right (0 :: Word.Word8)
, Tasty.testCase "Word16" $ do
fromValue (number 0 0) @?= Right (0 :: Word.Word16)
, Tasty.testCase "Word32" $ do
fromValue (number 0 0) @?= Right (0 :: Word.Word32)
, Tasty.testCase "Word64" $ do
fromValue (number 0 0) @?= Right (0 :: Word.Word64)
, Tasty.testCase "Integer" $ do
fromValue (number 0 0) @?= Right (0 :: Integer)
, Tasty.testCase "Float" $ do
fromValue (number 0 0) @?= Right (0 :: Float)
, Tasty.testCase "Double" $ do
fromValue (number 0 0) @?= Right (0 :: Double)
, Tasty.testCase "String" $ do
fromValue (Argo.String "") @?= Right ("" :: String)
, Tasty.testCase "Text" $ do
fromValue (Argo.String "") @?= Right ("" :: Text.Text)
, Tasty.testCase "LazyText" $ do
fromValue (Argo.String "") @?= Right ("" :: LazyText.Text)
, Tasty.testCase "Maybe a" $ do
fromValue (Argo.Boolean False) @?= Right (Just False)
, Tasty.testCase "()" $ do
fromValue (Argo.Array []) @?= Right ()
, Tasty.testCase "(a, b)" $ do
fromValue (Argo.Array [Argo.Boolean False, Argo.String "a"])
@?= Right (False, 'a')
, Tasty.testCase "[a]" $ do
fromValue (Argo.Array []) @?= Right ([] :: [Bool])
, Tasty.testCase "NonEmpty a" $ do
fromValue (Argo.Array [Argo.Boolean False]) @?= Right (False :| [])
, Tasty.testCase "Map Name a" $ do
fromValue
(Argo.Object
[Argo.Member (Argo.Name "a") $ Argo.Boolean False]
)
@?= Right (Map.fromList [(Argo.Name "a", False)])
, Tasty.testCase "Pointer" $ do
fromValue (Argo.String "") @?= Right (Argo.Pointer [])
]
, Tasty.testGroup
"toValue"
[ Tasty.testCase "Value" $ do
toValue Argo.Null @?= Argo.Null
, Tasty.testCase "Bool" $ do
toValue False @?= Argo.Boolean False
, Tasty.testCase "Char" $ do
toValue 'a' @?= Argo.String "a"
, Tasty.testCase "Int" $ do
toValue (0 :: Int) @?= number 0 0
, Tasty.testCase "Int8" $ do
toValue (0 :: Int.Int8) @?= number 0 0
, Tasty.testCase "Int16" $ do
toValue (0 :: Int.Int16) @?= number 0 0
, Tasty.testCase "Int32" $ do
toValue (0 :: Int.Int32) @?= number 0 0
, Tasty.testCase "Int64" $ do
toValue (0 :: Int.Int64) @?= number 0 0
, Tasty.testCase "Word" $ do
toValue (0 :: Word) @?= number 0 0
, Tasty.testCase "Word8" $ do
toValue (0 :: Word.Word8) @?= number 0 0
, Tasty.testCase "Word16" $ do
toValue (0 :: Word.Word16) @?= number 0 0
, Tasty.testCase "Word32" $ do
toValue (0 :: Word.Word32) @?= number 0 0
, Tasty.testCase "Word64" $ do
toValue (0 :: Word.Word64) @?= number 0 0
, Tasty.testCase "Integer" $ do
toValue (0 :: Integer) @?= number 0 0
, Tasty.testCase "Float" $ do
toValue (0 :: Float) @?= number 0 0
, Tasty.testCase "Double" $ do
toValue (0 :: Double) @?= number 0 0
, Tasty.testCase "String" $ do
toValue ("" :: String) @?= Argo.String ""
, Tasty.testCase "Text" $ do
toValue ("" :: Text.Text) @?= Argo.String ""
, Tasty.testCase "LazyText" $ do
toValue ("" :: LazyText.Text) @?= Argo.String ""
, Tasty.testCase "Maybe a" $ do
toValue (Just False) @?= Argo.Boolean False
, Tasty.testCase "()" $ do
toValue () @?= Argo.Array []
, Tasty.testCase "(a, b)" $ do
toValue (False, 'a')
@?= Argo.Array [Argo.Boolean False, Argo.String "a"]
, Tasty.testCase "[a]" $ do
toValue ([] :: [Bool]) @?= Argo.Array []
, Tasty.testCase "NonEmpty a" $ do
toValue (False :| []) @?= Argo.Array [Argo.Boolean False]
, Tasty.testCase "Map Name a" $ do
toValue (Map.fromList [(Argo.Name "a", False)]) @?= Argo.Object
[Argo.Member (Argo.Name "a") $ Argo.Boolean False]
, Tasty.testCase "Pointer" $ do
toValue (Argo.Pointer []) @?= Argo.String ""
]
, Tasty.testGroup
"quasi quoter"
[ Tasty.testCase "Null" $ do
[Argo.value| null |] @?= Argo.Null
, Tasty.testCase "Boolean" $ do
[Argo.value| false |] @?= Argo.Boolean False
, Tasty.testCase "Number" $ do
[Argo.value| 0 |] @?= number 0 0
, Tasty.testCase "String" $ do
[Argo.value| "" |] @?= Argo.String ""
, Tasty.testCase "Array" $ do
[Argo.value| [] |] @?= Argo.Array []
, Tasty.testCase "Object" $ do
[Argo.value| {} |] @?= Argo.Object []
]
, Tasty.testGroup
"property"
[ property "decode . encode" $ \x ->
(Argo.decode
. LazyByteString.toStrict
. Builder.toLazyByteString
$ Argo.encode x
)
=== Right (x :: Argo.Value)
, property "decode . encodeWith" $ \x ->
(Argo.decode
. LazyByteString.toStrict
. Builder.toLazyByteString
$ Argo.encodeWith Argo.Tab x
)
=== Right (x :: Argo.Value)
, Tasty.testGroup
"fromValue . toValue"
[ property "Value"
$ \x -> fromValue (toValue x) === Right (x :: Argo.Value)
, property "Bool"
$ \x -> fromValue (toValue x) === Right (x :: Bool)
, property "Char" $ \x ->
fromValue (toValue x) === if '\xd800' <= x && x <= '\xdfff'
then Right '\xfffd'
else Right x
, property "Int" $ \x -> fromValue (toValue x) === Right (x :: Int)
, property "Int8"
$ \x -> fromValue (toValue x) === Right (x :: Int.Int8)
, property "Int16"
$ \x -> fromValue (toValue x) === Right (x :: Int.Int16)
, property "Int32"
$ \x -> fromValue (toValue x) === Right (x :: Int.Int32)
, property "Int64"
$ \x -> fromValue (toValue x) === Right (x :: Int.Int64)
, property "Word"
$ \x -> fromValue (toValue x) === Right (x :: Word)
, property "Word8"
$ \x -> fromValue (toValue x) === Right (x :: Word.Word8)
, property "Word16"
$ \x -> fromValue (toValue x) === Right (x :: Word.Word16)
, property "Word32"
$ \x -> fromValue (toValue x) === Right (x :: Word.Word32)
, property "Word64"
$ \x -> fromValue (toValue x) === Right (x :: Word.Word64)
, property "Integer"
$ \x -> fromValue (toValue x) === Right (x :: Integer)
, property "Float" $ \x ->
fromValue (toValue x) === if isNaN x || isInfinite x
then Left "expected Float but got Null (Null ())"
else Right (x :: Float)
, property "Double" $ \x ->
fromValue (toValue x) === if isNaN x || isInfinite x
then Left "expected Double but got Null (Null ())"
else Right (x :: Double)
, property "String" $ \x ->
fromValue (toValue x) === Right (Text.unpack $ Text.pack x)
, property "Text"
$ \x -> fromValue (toValue x) === Right (x :: Text.Text)
, property "LazyText" $ \x ->
fromValue (toValue x) === Right (x :: LazyText.Text)
, property "Maybe a"
$ \x -> fromValue (toValue x) === Right (x :: Maybe Bool)
, property "()" $ \x -> fromValue (toValue x) === Right (x :: ())
, property "(a, b)" $ \x ->
fromValue (toValue x) === Right (x :: (Bool, Int.Int8))
, property "[a]"
$ \x -> fromValue (toValue x) === Right (x :: [Bool])
, property "NonEmpty a" $ \x ->
fromValue (toValue x) === Right (x :: NonEmpty Bool)
, property "Map Name a"
$ \x -> fromValue (toValue x)
=== Right (x :: Map.Map Argo.Name Bool)
, property "Pointer"
$ \x -> fromValue (toValue x) === Right (x :: Argo.Pointer)
]
]
, Tasty.testGroup
"Codec"
[ Tasty.testCase "encode text" $ do
Codec.encodeWith Argo.codec ("" :: Text.Text) @?= Argo.String ""
, Tasty.testCase "decode text" $ do
Codec.decodeWith Argo.codec (Argo.String "")
@?= Right ("" :: Text.Text)
, Tasty.testCase "encode bool" $ do
Codec.encodeWith Argo.codec False @?= Argo.Boolean False
, Tasty.testCase "decode bool" $ do
Codec.decodeWith Argo.codec (Argo.Boolean False) @?= Right False
, Tasty.testCase "encode maybe bool" $ do
Codec.encodeWith Argo.codec (Nothing :: Maybe Bool) @?= Argo.Null
Codec.encodeWith Argo.codec (Just False) @?= Argo.Boolean False
, Tasty.testCase "decode maybe bool" $ do
Codec.decodeWith Argo.codec Argo.Null
@?= Right (Nothing :: Maybe Bool)
Codec.decodeWith Argo.codec (Argo.Boolean False)
@?= Right (Just False)
, Tasty.testCase "encode either text bool" $ do
Codec.encodeWith Argo.codec (Left "" :: Either Text.Text Bool)
@?= Argo.Object
[ Argo.Member (Argo.Name "type") $ Argo.String "Left"
, Argo.Member (Argo.Name "value") $ Argo.String ""
]
Codec.encodeWith Argo.codec (Right False :: Either Text.Text Bool)
@?= Argo.Object
[ Argo.Member (Argo.Name "type") $ Argo.String "Right"
, Argo.Member (Argo.Name "value") $ Argo.Boolean False
]
, Tasty.testCase "decode either text bool" $ do
Codec.decodeWith
Argo.codec
(Argo.Object
[ Argo.Member (Argo.Name "type") $ Argo.String "Left"
, Argo.Member (Argo.Name "value") $ Argo.String ""
]
)
@?= Right (Left "" :: Either Text.Text Bool)
Codec.decodeWith
Argo.codec
(Argo.Object
[ Argo.Member (Argo.Name "type") $ Argo.String "Right"
, Argo.Member (Argo.Name "value") $ Argo.Boolean False
]
)
@?= Right (Right False :: Either Text.Text Bool)
, Tasty.testCase "encode tuple text bool" $ do
Codec.encodeWith Argo.codec ("" :: Text.Text, False)
@?= Argo.Array [Argo.String "", Argo.Boolean False]
, Tasty.testCase "decode tuple text bool" $ do
Codec.decodeWith
Argo.codec
(Argo.Array [Argo.String "", Argo.Boolean False])
@?= Right ("" :: Text.Text, False)
, Tasty.testCase "encode record" $ do
Codec.encodeWith Argo.codec (Record False Optional.nothing)
@?= Argo.Object
[Argo.Member (Argo.Name "bool") $ Argo.Boolean False]
Codec.encodeWith Argo.codec (Record False $ Optional.just "")
@?= Argo.Object
[ Argo.Member (Argo.Name "bool") $ Argo.Boolean False
, Argo.Member (Argo.Name "text") $ Argo.String ""
]
, Tasty.testCase "decode record" $ do
Codec.decodeWith
Argo.codec
(Argo.Object
[Argo.Member (Argo.Name "bool") $ Argo.Boolean False]
)
@?= Right (Record False Optional.nothing)
Codec.decodeWith
Argo.codec
(Argo.Object
[ Argo.Member (Argo.Name "bool") $ Argo.Boolean False
, Argo.Member (Argo.Name "text") $ Argo.String ""
]
)
@?= Right (Record False $ Optional.just "")
]
, Tasty.testGroup "Pointer"
$ let pointer = Argo.Pointer . fmap Argo.Token
in
[ Tasty.testCase "decode" $ do
let decode = hush . Argo.decodePointer
decode "" @?= Just (pointer [])
decode "/" @?= Just (pointer [""])
decode "/a" @?= Just (pointer ["a"])
decode "/a/b" @?= Just (pointer ["a", "b"])
decode "/ab" @?= Just (pointer ["ab"])
decode "/~0" @?= Just (pointer ["~"])
decode "/~1" @?= Just (pointer ["/"])
decode "/~01" @?= Just (pointer ["~1"])
decode "a" @?= Nothing
decode "/~2" @?= Nothing
, Tasty.testCase "encode" $ do
let encode = Builder.toLazyByteString . Argo.encodePointer
encode (pointer []) @?= ""
encode (pointer [""]) @?= "/"
encode (pointer ["a"]) @?= "/a"
encode (pointer ["a", "b"]) @?= "/a/b"
encode (pointer ["ab"]) @?= "/ab"
encode (pointer ["~"]) @?= "/~0"
encode (pointer ["/"]) @?= "/~1"
encode (pointer ["~1"]) @?= "/~01"
, property "decode . encode" $ \x ->
(Argo.decodePointer
. LazyByteString.toStrict
. Builder.toLazyByteString
$ Argo.encodePointer x
)
=== Right (x :: Argo.Pointer)
, Tasty.testCase "quasi-quoter" $ do
[Argo.pointer||] @?= pointer []
[Argo.pointer|/|] @?= pointer [""]
[Argo.pointer|/a|] @?= pointer ["a"]
[Argo.pointer|/a/b|] @?= pointer ["a", "b"]
, Tasty.testCase "evaluate" $ do
let evaluate p = hush . Argo.evaluate p
evaluate (pointer []) Argo.Null @?= Just Argo.Null
evaluate
(pointer ["a"])
(Argo.Object [Argo.Member (Argo.Name "a") Argo.Null])
@?= Just Argo.Null
evaluate
(pointer ["a", "b"])
(Argo.Object
[ Argo.Member (Argo.Name "a") $ Argo.Object
[Argo.Member (Argo.Name "b") Argo.Null]
]
)
@?= Just Argo.Null
evaluate
(pointer ["0"])
(Argo.Object [Argo.Member (Argo.Name "0") Argo.Null])
@?= Just Argo.Null
evaluate (pointer ["0"]) (Argo.Array [Argo.Null])
@?= Just Argo.Null
evaluate
(pointer ["0", "1"])
(Argo.Array
[Argo.Array [Argo.Boolean False, Argo.Null]]
)
@?= Just Argo.Null
evaluate (pointer ["a"]) Argo.Null @?= Nothing
evaluate (pointer ["a"]) (Argo.Object []) @?= Nothing
evaluate (pointer ["a"]) (Argo.Array [Argo.Null]) @?= Nothing
evaluate (pointer ["0"]) (Argo.Array []) @?= Nothing
evaluate (pointer ["-"]) (Argo.Array []) @?= Nothing
evaluate (pointer ["00"]) (Argo.Array [Argo.Null])
@?= Nothing
]
, Tasty.testGroup
"OverloadedStrings"
[ Tasty.testCase "Value" $ do
"" @?= Argo.String ""
, Tasty.testCase "String" $ do
"" @?= String.String ""
, Tasty.testCase "Name" $ do
"" @?= Argo.Name ""
, Tasty.testCase "Token" $ do
"" @?= Argo.Token ""
]
, Tasty.testGroup
"Schema"
[ Tasty.testCase "value" $ do
schemaTest
(Just "Value")
[Argo.value| true |]
(Codec.schema (Argo.codec :: Codec.Value Argo.Value))
, Tasty.testCase "null" $ do
schemaTest
(Just "Null")
[Argo.value| { "type": "null" } |]
(Codec.schema (Argo.codec :: Codec.Value Null.Null))
, Tasty.testCase "boolean" $ do
schemaTest
(Just "Boolean")
[Argo.value| { "type": "boolean" } |]
(Codec.schema (Argo.codec :: Codec.Value Boolean.Boolean))
, Tasty.testCase "number" $ do
schemaTest
(Just "Number")
[Argo.value| { "type": "number" } |]
(Codec.schema (Argo.codec :: Codec.Value Number.Number))
, Tasty.testCase "string" $ do
schemaTest
(Just "String")
[Argo.value| { "type": "string" } |]
(Codec.schema (Argo.codec :: Codec.Value String.String))
, Tasty.testCase "array boolean" $ do
schemaTest
(Just "Array Boolean")
[Argo.value| {
"type": "array",
"items": { "$ref": "#/definitions/Boolean" }
} |]
(Codec.schema
(Argo.codec :: Codec.Value (Array.Array Boolean.Boolean))
)
, Tasty.testCase "object boolean" $ do
schemaTest
(Just "Object Boolean")
[Argo.value| {
"type": "object",
"additionalProperties": { "$ref": "#/definitions/Boolean" }
} |]
(Codec.schema
(Argo.codec :: Codec.Value (Object.Object Boolean.Boolean))
)
, Tasty.testCase "maybe boolean" $ do
schemaTest
(Just "Maybe Boolean")
[Argo.value| { "oneOf": [
{ "type": "boolean" },
{ "type": "null" }
] } |]
(Codec.schema
(Argo.codec :: Codec.Value (Maybe Boolean.Boolean))
)
, Tasty.testCase "either boolean number" $ do
schemaTest
(Just "Either Boolean Number")
[Argo.value| { "oneOf": [
{
"type": "object",
"properties": {
"type": { "const": "Left" },
"value": { "$ref": "#/definitions/Boolean" }
},
"required": [ "type", "value" ],
"additionalProperties": false },
{
"type": "object",
"properties": {
"type": { "const": "Right" },
"value": { "$ref": "#/definitions/Number" }
},
"required": [ "type", "value" ],
"additionalProperties": false
}
] } |]
(Codec.schema
(Argo.codec :: Codec.Value
(Either Boolean.Boolean Number.Number)
)
)
, Tasty.testCase "()" $ do
schemaTest
(Just "()")
[Argo.value| {
"type": "array",
"minItems": 0,
"maxItems": 0,
"items": false
} |]
(Codec.schema (Argo.codec :: Codec.Value ()))
, Tasty.testCase "2-tuple" $ do
schemaTest
(Just "(Value,Null)")
[Argo.value| {
"type": "array",
"minItems": 2,
"maxItems": 2,
"items": [
{ "$ref": "#/definitions/Value" },
{ "$ref": "#/definitions/Null" }
] } |]
(Codec.schema
(Argo.codec :: Codec.Value (Argo.Value, Null.Null))
)
, Tasty.testCase "3-tuple" $ do
schemaTest
(Just "(Value,Null,Boolean)")
[Argo.value| {
"type": "array",
"minItems": 3,
"maxItems": 3,
"items": [
{ "$ref": "#/definitions/Value" },
{ "$ref": "#/definitions/Null" },
{ "$ref": "#/definitions/Boolean" }
] } |]
(Codec.schema
(Argo.codec :: Codec.Value
(Argo.Value, Null.Null, Boolean.Boolean)
)
)
, Tasty.testCase "4-tuple" $ do
schemaTest
(Just "(Value,Null,Boolean,Number)")
[Argo.value| {
"type": "array",
"minItems": 4,
"maxItems": 4,
"items": [
{ "$ref": "#/definitions/Value" },
{ "$ref": "#/definitions/Null" },
{ "$ref": "#/definitions/Boolean" },
{ "$ref": "#/definitions/Number" }
] } |]
(Codec.schema
(Argo.codec :: Codec.Value
( Argo.Value
, Null.Null
, Boolean.Boolean
, Number.Number
)
)
)
, Tasty.testCase "5-tuple" $ do
schemaTest
(Just "(Value,Null,Boolean,Number,Integer)")
[Argo.value| {
"type": "array",
"minItems": 5,
"maxItems": 5,
"items": [
{ "$ref": "#/definitions/Value" },
{ "$ref": "#/definitions/Null" },
{ "$ref": "#/definitions/Boolean" },
{ "$ref": "#/definitions/Number" },
{ "$ref": "#/definitions/Integer" }
] } |]
(Codec.schema
(Argo.codec :: Codec.Value
( Argo.Value
, Null.Null
, Boolean.Boolean
, Number.Number
, Integer
)
)
)
, Tasty.testCase "6-tuple" $ do
schemaTest
(Just "(Value,Null,Boolean,Number,Integer,String)")
[Argo.value| {
"type": "array",
"minItems": 6,
"maxItems": 6,
"items": [
{ "$ref": "#/definitions/Value" },
{ "$ref": "#/definitions/Null" },
{ "$ref": "#/definitions/Boolean" },
{ "$ref": "#/definitions/Number" },
{ "$ref": "#/definitions/Integer" },
{ "$ref": "#/definitions/String" }
] } |]
(Codec.schema
(Argo.codec :: Codec.Value
( Argo.Value
, Null.Null
, Boolean.Boolean
, Number.Number
, Integer
, String.String
)
)
)
, Tasty.testCase "7-tuple" $ do
schemaTest
(Just "(Value,Null,Boolean,Number,Integer,String,())")
[Argo.value| {
"type": "array",
"minItems": 7,
"maxItems": 7,
"items": [
{ "$ref": "#/definitions/Value" },
{ "$ref": "#/definitions/Null" },
{ "$ref": "#/definitions/Boolean" },
{ "$ref": "#/definitions/Number" },
{ "$ref": "#/definitions/Integer" },
{ "$ref": "#/definitions/String" },
{ "$ref": "#/definitions/()" }
] } |]
(Codec.schema
(Argo.codec :: Codec.Value
( Argo.Value
, Null.Null
, Boolean.Boolean
, Number.Number
, Integer
, String.String
, ()
)
)
)
, Tasty.testCase "8-tuple" $ do
schemaTest
(Just "(Value,Null,Boolean,Number,Integer,String,(),Char)")
[Argo.value| {
"type": "array",
"minItems": 8,
"maxItems": 8,
"items": [
{ "$ref": "#/definitions/Value" },
{ "$ref": "#/definitions/Null" },
{ "$ref": "#/definitions/Boolean" },
{ "$ref": "#/definitions/Number" },
{ "$ref": "#/definitions/Integer" },
{ "$ref": "#/definitions/String" },
{ "$ref": "#/definitions/()" },
{ "$ref": "#/definitions/Char" }
] } |]
(Codec.schema
(Argo.codec :: Codec.Value
( Argo.Value
, Null.Null
, Boolean.Boolean
, Number.Number
, Integer
, String.String
, ()
, Char
)
)
)
, Tasty.testCase "bool" $ do
schemaTest
(Just "Bool")
[Argo.value| { "type": "boolean" } |]
(Codec.schema (Argo.codec :: Codec.Value Bool))
, Tasty.testCase "decimal" $ do
schemaTest
(Just "Decimal")
[Argo.value| { "type": "number" } |]
(Codec.schema (Argo.codec :: Codec.Value Decimal.Decimal))
, Tasty.testCase "text" $ do
schemaTest
(Just "Text")
[Argo.value| { "type": "string" } |]
(Codec.schema (Argo.codec :: Codec.Value Text.Text))
, Tasty.testCase "list boolean" $ do
schemaTest
(Just "[Boolean]")
[Argo.value| {
"type": "array",
"items": { "$ref": "#/definitions/Boolean" }
} |]
(Codec.schema (Argo.codec :: Codec.Value [Boolean.Boolean]))
, Tasty.testCase "map name boolean" $ do
schemaTest
(Just "Map Name Boolean")
[Argo.value| {
"type": "object",
"additionalProperties": { "$ref": "#/definitions/Boolean" }
} |]
(Codec.schema
(Argo.codec :: Codec.Value
(Map.Map Name.Name Boolean.Boolean)
)
)
, Tasty.testCase "map (argo) string boolean" $ do
schemaTest
(Just "Map String Boolean")
[Argo.value| {
"type": "object",
"additionalProperties": { "$ref": "#/definitions/Boolean" }
} |]
(Codec.schema
(Argo.codec :: Codec.Value
(Map.Map String.String Boolean.Boolean)
)
)
, Tasty.testCase "map (strict) text boolean" $ do
schemaTest
(Just "Map Text Boolean")
[Argo.value| {
"type": "object",
"additionalProperties": { "$ref": "#/definitions/Boolean" }
} |]
(Codec.schema
(Argo.codec :: Codec.Value
(Map.Map Text.Text Boolean.Boolean)
)
)
, Tasty.testCase "map (lazy) text boolean" $ do
schemaTest
(Just "Map Text Boolean")
[Argo.value| {
"type": "object",
"additionalProperties": { "$ref": "#/definitions/Boolean" }
} |]
(Codec.schema
(Argo.codec :: Codec.Value
(Map.Map LazyText.Text Boolean.Boolean)
)
)
, Tasty.testCase "map (base) string boolean" $ do
schemaTest
(Just "Map [Char] Boolean")
[Argo.value| {
"type": "object",
"additionalProperties": { "$ref": "#/definitions/Boolean" }
} |]
(Codec.schema
(Argo.codec :: Codec.Value (Map.Map String Boolean.Boolean)
)
)
, Tasty.testCase "string" $ do
schemaTest
(Just "[Char]")
[Argo.value| { "type": "string" } |]
(Codec.schema (Argo.codec :: Codec.Value String))
, Tasty.testCase "char" $ do
schemaTest
(Just "Char")
[Argo.value| {
"type": "string",
"minLength": 1,
"maxLength": 1
} |]
(Codec.schema (Argo.codec :: Codec.Value Char))
, Tasty.testCase "lazy text" $ do
schemaTest
(Just "Text")
[Argo.value| { "type": "string" } |]
(Codec.schema (Argo.codec :: Codec.Value LazyText.Text))
, Tasty.testCase "non-empty boolean" $ do
schemaTest
(Just "NonEmpty Boolean")
[Argo.value| {
"type": "array",
"minItems": 1,
"items": { "$ref": "#/definitions/Boolean" }
} |]
(Codec.schema
(Argo.codec :: Codec.Value (NonEmpty Boolean.Boolean))
)
, Tasty.testCase "integer" $ do
schemaTest
(Just "Integer")
[Argo.value| { "type": "integer" } |]
(Codec.schema (Argo.codec :: Codec.Value Integer))
, Tasty.testCase "int" $ do
schemaTest
(Just "Int")
[Argo.value| {
"type": "integer",
"minimum": -9223372036854775808,
"maximum": 9223372036854775807
} |]
(Codec.schema (Argo.codec :: Codec.Value Int))
, Tasty.testCase "int8" $ do
schemaTest
(Just "Int8")
[Argo.value| {
"type": "integer",
"minimum": -128,
"maximum": 127
} |]
(Codec.schema (Argo.codec :: Codec.Value Int.Int8))
, Tasty.testCase "int16" $ do
schemaTest
(Just "Int16")
[Argo.value| {
"type": "integer",
"minimum": -32768,
"maximum": 32767
} |]
(Codec.schema (Argo.codec :: Codec.Value Int.Int16))
, Tasty.testCase "int32" $ do
schemaTest
(Just "Int32")
[Argo.value| {
"type": "integer",
"minimum": -2147483648,
"maximum": 2147483647
} |]
(Codec.schema (Argo.codec :: Codec.Value Int.Int32))
, Tasty.testCase "int64" $ do
schemaTest
(Just "Int64")
[Argo.value| {
"type": "integer",
"minimum": -9223372036854775808,
"maximum": 9223372036854775807
} |]
(Codec.schema (Argo.codec :: Codec.Value Int.Int64))
, Tasty.testCase "natural" $ do
schemaTest
(Just "Natural")
[Argo.value| {
"type": "integer",
"minimum": 0
} |]
(Codec.schema (Argo.codec :: Codec.Value Natural.Natural))
, Tasty.testCase "word" $ do
schemaTest
(Just "Word")
[Argo.value| {
"type": "integer",
"minimum": 0,
"maximum": 18446744073709551615
} |]
(Codec.schema (Argo.codec :: Codec.Value Word))
, Tasty.testCase "word8" $ do
schemaTest
(Just "Word8")
[Argo.value| {
"type": "integer",
"minimum": 0,
"maximum": 255
} |]
(Codec.schema (Argo.codec :: Codec.Value Word.Word8))
, Tasty.testCase "word16" $ do
schemaTest
(Just "Word16")
[Argo.value| {
"type": "integer",
"minimum": 0,
"maximum": 65535
} |]
(Codec.schema (Argo.codec :: Codec.Value Word.Word16))
, Tasty.testCase "word32" $ do
schemaTest
(Just "Word32")
[Argo.value| {
"type": "integer",
"minimum": 0,
"maximum": 4294967295
} |]
(Codec.schema (Argo.codec :: Codec.Value Word.Word32))
, Tasty.testCase "word64" $ do
schemaTest
(Just "Word64")
[Argo.value| {
"type": "integer",
"minimum": 0,
"maximum": 18446744073709551615
} |]
(Codec.schema (Argo.codec :: Codec.Value Word.Word64))
, Tasty.testCase "float" $ do
schemaTest
(Just "Float")
[Argo.value| { "type": "number" } |]
(Codec.schema (Argo.codec :: Codec.Value Float))
, Tasty.testCase "double" $ do
schemaTest
(Just "Double")
[Argo.value| { "type": "number" } |]
(Codec.schema (Argo.codec :: Codec.Value Double))
, Tasty.testCase "pointer" $ do
schemaTest
(Just "Pointer")
[Argo.value| { "type": "string" } |]
(Codec.schema (Argo.codec :: Codec.Value Argo.Pointer))
, Tasty.testCase "schema" $ do
schemaTest
(Just "Schema")
[Argo.value| { "oneOf": [
{
"type": "object",
"properties": { "oneOf": { "$ref": "#/definitions/[Schema]" } },
"required": [ "oneOf" ],
"additionalProperties": false
},
{
"type": "object",
"properties": { "$ref": { "$ref": "#/definitions/Identifier" } },
"required": [ "$ref" ],
"additionalProperties": false
},
{
"type": "object",
"properties": {
"type": { "const": "object" },
"properties": { "$ref": "#/definitions/Object Schema" },
"required": { "$ref": "#/definitions/[Name]" },
"additionalProperties": { "$ref": "#/definitions/Schema" }
},
"required": [ "type" ],
"additionalProperties": false
},
{
"type": "object",
"properties": {
"type": { "const": "array" },
"minItems": { "$ref": "#/definitions/Natural" },
"maxItems": { "$ref": "#/definitions/Natural" },
"items": { "$ref": "#/definitions/OneOf Schema [Schema]" },
"additionalItems": { "$ref": "#/definitions/Schema" }
},
"required": [ "type", "items" ],
"additionalProperties": false
},
{
"type": "object",
"properties": {
"type": { "const": "string" },
"minLength": { "$ref": "#/definitions/Natural" },
"maxLength": { "$ref": "#/definitions/Natural" }
},
"required": [ "type" ],
"additionalProperties": false
},
{
"type": "object",
"properties": {
"type": { "const": "integer" },
"minimum": { "$ref": "#/definitions/Integer" },
"maximum": { "$ref": "#/definitions/Integer" }
},
"required": [ "type" ],
"additionalProperties": false
},
{
"type": "object",
"properties": { "type": { "const": "number" } },
"required": [ "type" ],
"additionalProperties": false
},
{
"type": "object",
"properties": { "type": { "const": "boolean" } },
"required": [ "type" ],
"additionalProperties": false
},
{
"type": "object",
"properties": { "type": { "const": "null" } },
"required": [ "type" ],
"additionalProperties": false
},
{
"type": "object",
"properties": { "const": { "$ref": "#/definitions/Value" } },
"required": [ "const" ],
"additionalProperties": false
},
{
"const": true
},
{
"const": false
}
] } |]
(Codec.schema (Argo.codec :: Codec.Value Schema.Schema))
, Tasty.testCase "record" $ do
schemaTest
Nothing
[Argo.value| {
"type": "object",
"properties": {
"bool": { "$ref": "#/definitions/Bool" },
"text": { "$ref": "#/definitions/Text" }
},
"required": [ "bool" ]
} |]
(Codec.schema (Argo.codec :: Codec.Value Record))
]
, Tasty.testGroup "T1"
$ let codec = Argo.codec :: Codec.Value T1
in
[ Tasty.testCase "schema" $ do
schemaTest
Nothing
[Argo.value|
{
"type": "object",
"properties": {
"t1c1f1": { "$ref": "#/definitions/Float" },
"t1c1f2": { "$ref": "#/definitions/Nullable Float" },
"t1c1f3": { "$ref": "#/definitions/Float" },
"t1c1f4": { "$ref": "#/definitions/Nullable Float" }
},
"required": [ "t1c1f1", "t1c1f2" ]
}
|]
(Codec.schema codec)
, Tasty.testCase "decode" $ do
hush (Argo.decode "{ \"t1c1f1\": 0 }")
@?= (Nothing :: Maybe T1)
Argo.decode "{ \"t1c1f1\": 0, \"t1c1f2\": null }"
@?= Right
(T1C1
0
Nullable.nothing
Optional.nothing
Optional.nothing
)
Argo.decode "{ \"t1c1f1\": 1, \"t1c1f2\": 0 }"
@?= Right
(T1C1
1
(Nullable.just 0)
Optional.nothing
Optional.nothing
)
hush
(Argo.decode
"{ \"t1c1f1\": 2, \"t1c1f2\": null, \"t1c1f3\": null }"
)
@?= (Nothing :: Maybe T1)
Argo.decode
"{ \"t1c1f1\": 3, \"t1c1f2\": null, \"t1c1f3\": 0 }"
@?= Right
(T1C1
3
Nullable.nothing
(Optional.just 0)
Optional.nothing
)
Argo.decode
"{ \"t1c1f1\": 4, \"t1c1f2\": null, \"t1c1f4\": null }"
@?= Right
(T1C1
4
Nullable.nothing
Optional.nothing
(Optional.just Nullable.nothing)
)
Argo.decode
"{ \"t1c1f1\": 5, \"t1c1f2\": null, \"t1c1f4\": 0 }"
@?= Right
(T1C1
5
Nullable.nothing
Optional.nothing
(Optional.just $ Nullable.just 0)
)
hush (Argo.decode "{ \"t1c1f1\": 6, \"t1c1f2\": [] }")
@?= (Nothing :: Maybe T1)
hush
(Argo.decode
"{ \"t1c1f1\": 7, \"t1c1f2\": null, \"t1c1f3\": [] }"
)
@?= (Nothing :: Maybe T1)
hush
(Argo.decode
"{ \"t1c1f1\": 8, \"t1c1f2\": null, \"t1c1f4\": [] }"
)
@?= (Nothing :: Maybe T1)
, Tasty.testCase "encode" $ do
let
encode =
Builder.toLazyByteString . Argo.encode :: T1
-> LazyByteString.ByteString
encode
(T1C1
0
Nullable.nothing
Optional.nothing
Optional.nothing
)
@?= "{\"t1c1f1\":0,\"t1c1f2\":null}"
encode
(T1C1
1
(Nullable.just 0)
Optional.nothing
Optional.nothing
)
@?= "{\"t1c1f1\":1,\"t1c1f2\":0}"
encode
(T1C1
2
Nullable.nothing
(Optional.just 0)
Optional.nothing
)
@?= "{\"t1c1f1\":2,\"t1c1f2\":null,\"t1c1f3\":0}"
encode
(T1C1
3
Nullable.nothing
Optional.nothing
(Optional.just Nullable.nothing)
)
@?= "{\"t1c1f1\":3,\"t1c1f2\":null,\"t1c1f4\":null}"
encode
(T1C1
4
Nullable.nothing
Optional.nothing
(Optional.just $ Nullable.just 0)
)
@?= "{\"t1c1f1\":4,\"t1c1f2\":null,\"t1c1f4\":0}"
]
, Tasty.testCase "T2" $ do
let schema = [Argo.value| {
"type": "object",
"properties": { "t2c1f1": { "$ref": "#/definitions/T2" } },
"additionalProperties": false
} |]
((i, s), m) = Accum.runAccum
(Codec.schema (Argo.codec :: Codec.Value T2))
Map.empty
i @?= Just "T2"
toValue s @?= schema
fmap toValue m @?= Map.singleton "T2" schema
, Tasty.testGroup
"T3"
[ Tasty.testCase "schema" $ do
schemaTest
Nothing
[Argo.value| {
"type": "object",
"properties": {
"t3c1f1": { "$ref": "#/definitions/Nullable Float" }
},
"additionalProperties": false
} |]
(Codec.schema (Argo.codec :: Codec.Value T3))
, Tasty.testCase "decode" $ do
Argo.decode "{}" @?= Right (T3C1 Nothing)
Argo.decode "{ \"t3c1f1\": null }" @?= Right (T3C1 Nothing)
Argo.decode "{ \"t3c1f1\": 0 }" @?= Right (T3C1 $ Just 0)
, Tasty.testCase "encode" $ do
let
encode =
Builder.toLazyByteString . Argo.encode :: T3
-> LazyByteString.ByteString
encode (T3C1 Nothing) @?= "{}"
encode (T3C1 $ Just 0) @?= "{\"t3c1f1\":0}"
]
]
fromValue :: Argo.HasCodec a => Argo.Value -> Either String a
fromValue = Codec.decodeWith Argo.codec
toValue :: Argo.HasCodec a => a -> Argo.Value
toValue = Codec.encodeWith Argo.codec
number :: Integer -> Integer -> Argo.Value
number s = Argo.Number . Argo.Decimal s
newtype T2 = T2C1
{ t2c1f1 :: Optional.Optional T2
} deriving (Eq, Show)
instance Argo.HasCodec T2 where
codec =
Codec.identified
. Codec.fromObjectCodec Permission.Forbid
$ T2C1
<$> Codec.project t2c1f1 (Codec.optional "t2c1f1" Argo.codec)
data T1 = T1C1
{ t1c1f1 :: Float
, t1c1f2 :: Nullable.Nullable Float
, t1c1f3 :: Optional.Optional Float
, t1c1f4 :: Optional.Optional (Nullable.Nullable Float)
}
deriving (Eq, Show)
instance Argo.HasCodec T1 where
codec =
Codec.fromObjectCodec Permission.Allow
$ T1C1
<$> Codec.project t1c1f1 (Codec.required "t1c1f1" Argo.codec)
<*> Codec.project t1c1f2 (Codec.required "t1c1f2" Argo.codec)
<*> Codec.project t1c1f3 (Codec.optional "t1c1f3" Argo.codec)
<*> Codec.project t1c1f4 (Codec.optional "t1c1f4" Argo.codec)
newtype T3 = T3C1
{ t3c1f1 :: Maybe Float
}
deriving (Eq, Show)
instance Argo.HasCodec T3 where
codec = Codec.fromObjectCodec Permission.Forbid $ T3C1 <$> Codec.project
t3c1f1
(HasCodec.optionalNullable "t3c1f1" Argo.codec)
data Record = Record
{ recordBool :: Bool
, recordText :: Optional.Optional Text.Text
}
deriving (Eq, Show)
instance Argo.HasCodec Record where
codec =
Codec.fromObjectCodec Permission.Allow
$ Record
<$> Codec.project
recordBool
(Codec.required (Argo.Name "bool") Argo.codec)
<*> Codec.project
recordText
(Codec.optional (Argo.Name "text") Argo.codec)
property
:: (Show t, Tasty.Testable prop, Tasty.Arbitrary t)
=> Tasty.TestName
-> (t -> prop)
-> Tasty.TestTree
property n = propertyWith n Tasty.arbitrary Tasty.shrink
propertyWith
:: (Show t, Tasty.Testable prop)
=> Tasty.TestName
-> Tasty.Gen t
-> (t -> [t])
-> (t -> prop)
-> Tasty.TestTree
propertyWith n g s f =
Tasty.testProperty n . Tasty.forAll g $ \x -> Tasty.shrinking s x f
hush :: Either String a -> Maybe a
hush = either (const Nothing) Just
schemaTest
:: Stack.HasCallStack
=> Maybe Identifier.Identifier
-> Argo.Value
-> Accum.AccumT
(Map.Map Identifier.Identifier Schema.Schema)
Identity.Identity
(Maybe Identifier.Identifier, Schema.Schema)
-> Tasty.Assertion
schemaTest maybeIdentifier value schema =
fmap toValue (Accum.evalAccum schema Map.empty)
@?= (maybeIdentifier, value)