--
-- Data vault for metrics
--
-- Copyright © 2013-2014 Anchor Systems, Pty Ltd and Others
--
-- The code in this file, and the program it is a part of, is
-- made available to you by its authors as open source software:
-- you can redistribute it and/or modify it under the terms of
-- the 3-clause BSD licence.
--

-- | Test serialisation/deserialiastion for Vaultaire types.

import Test.Hspec
import Vaultaire.Types

main :: IO ()
main = hspec suite

suite :: Spec
suite =
  describe "Round trip through Read and Show instances" $ do
    it "outputs a correctly formated ISO 8601 timestamp when Shown" $ do
      show (TimeStamp 1406849015948797001) `shouldBe` "2014-07-31T23:23:35.948797001Z"
      show (TimeStamp 1406849015948797001) `shouldBe` "2014-07-31T23:23:35.948797001Z"
      show (TimeStamp 0) `shouldBe` "1970-01-01T00:00:00.000000000Z"

    it "Reads ISO 8601 timestamps" $ do
      read "2014-07-31T23:23:35.948797001Z" `shouldBe` TimeStamp 1406849015948797001
      read "2014-07-31T23:23:35Z" `shouldBe` TimeStamp 1406849015000000000
      read "2014-07-31" `shouldBe` TimeStamp 1406764800000000000

    it "reads the Unix epoch date" $
      read "1970-01-01" `shouldBe` TimeStamp 0

    it "permissively reads various formats" $ do
      show (read "1970-01-01T00:00:00.000000000Z" :: TimeStamp) `shouldBe` "1970-01-01T00:00:00.000000000Z"
      show (read "1970-01-01" :: TimeStamp) `shouldBe` "1970-01-01T00:00:00.000000000Z"
      show (read "0" :: TimeStamp) `shouldBe` "1970-01-01T00:00:00.000000000Z"