{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE RecordWildCards   #-}

-- |
-- Module      : Test.AWS.Data.Numeric
-- Copyright   : (c) 2013-2015 Brendan Hay
-- License     : Mozilla Public License, v. 2.0.
-- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>
-- Stability   : experimental
-- Portability : non-portable (GHC extensions)
--
module Test.AWS.Data.Numeric (tests) where

import           Control.Applicative
import           Network.AWS.Prelude
import           Test.AWS.Util
import           Test.Tasty

tests :: TestTree
tests = testGroup "numeric"
    [ testGroup "json"
        [ testGroup "deserialisation"
            [ testFromJSON "natural"
                "123" (Nat 123)

            , testFromJSON "int"
                (toLazyBS maxInt) maxInt

            , testFromJSON "negative int"
                (toLazyBS minInt) minInt

            , testFromJSON "integer"
                "891324" (891324 :: Integer)

            , testFromJSON "negative integer"
                "-998" (-998 :: Integer)

            , testFromJSON "double"
                "46.39212" (46.39212 :: Double)

            , testFromJSON "negative double"
                "-1.09231" (-1.09231 :: Double)

            , testFromJSON "numeric text"
                "\"22\"" ("22" :: Text)
            ]

        , testGroup "serialisation"
            [ testToJSON "natural"
                "123" (Nat 123)

            , testToJSON "int"
                (toLazyBS maxInt) maxInt

            , testToJSON "negative int"
                (toLazyBS minInt) minInt

            , testToJSON "integer"
                "891324" (891324 :: Integer)

            , testToJSON "negative integer"
                "-998" (-998 :: Integer)

            , testToJSON "double"
                "46.39212" (46.39212 :: Double)

            , testToJSON "negative double"
                "-1.09231" (-1.09231 :: Double)

            , testToJSON "numeric string"
                "\"22\"" ("22" :: String)
            ]
        ]

    , testGroup "xml"
        [ testGroup "deserialisation"
            [ testFromXML "natural"
                "123" (Nat 123)

            , testFromXML "int"
                (toLazyBS maxInt) maxInt

            , testFromXML "negative int"
                (toLazyBS minInt) minInt

            , testFromXML "integer"
                "891324" (891324 :: Integer)

            , testFromXML "negative integer"
                "-998" (-998 :: Integer)

            , testFromXML "double"
                "46.39212" (46.39212 :: Double)

            , testFromXML "negative double"
                "-1.09231" (-1.09231 :: Double)

            , testFromXML "numeric string"
                "22" ("22" :: Text)
            ]

        , testGroup "serialisation"
            [ testToXML "natural"
                "123" (Nat 123)

            ,  testToXML "int"
                (toLazyBS maxInt) maxInt

            , testToXML "negative int"
                (toLazyBS minInt) minInt

            , testToXML "integer"
                "891324" (891324 :: Integer)

            , testToXML "negative integer"
                "-998" (-998 :: Integer)

            , testToXML "double"
                "46.39212" (46.39212 :: Double)

            , testToXML "negative double"
                "-1.09231" (-1.09231 :: Double)

            , testToXML "numeric text"
                "22" ("22" :: Text)
            ]
        ]
    ]