Types.hs

{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE TemplateHaskell   #-}
module Instrument.Tests.Types
    ( tests
    ) where


-------------------------------------------------------------------------------
import qualified Data.Map            as M
import           Path
import           Test.HUnit.SafeCopy
import           Test.Tasty
import           Test.Tasty.HUnit
-------------------------------------------------------------------------------
import           Instrument.Types
-------------------------------------------------------------------------------

--TODO: test parse of .serialize files

tests :: TestTree
tests = testGroup "Instrument.Types"
  [ testCase "Stats SafeCopy" $
      testSafeCopy FailMissingFiles $(mkRelFile "test/data/Instrument/Types/Stats.safecopy") stats
  , testCase "Payload SafeCopy" $
      testSafeCopy FailMissingFiles $(mkRelFile "test/data/Instrument/Types/Payload.safecopy") payload
  , testCase "SubmissionPacket SafeCopy" $
      testSafeCopy FailMissingFiles $(mkRelFile "test/data/Instrument/Types/SubmissionPacket.safecopy") submissionPacket
  , testCase "Aggregated SafeCopy" $
      testSafeCopy FailMissingFiles $(mkRelFile "test/data/Instrument/Types/Aggregated.safecopy") aggregated
  ]
  where
    stats = Stats 1 2 3 4 5 6 7 8 9 (M.singleton 10 11)
    payload = Samples [1.2, 2.3, 4.5]
    submissionPacket = SP 3.4 "metric" payload (M.singleton hostDimension "example.org")
    aggregated = Aggregated 3.4 "metric" (AggStats stats) mempty