1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
|
module Main (main) where
import Criterion.Types
import qualified Data.Aeson as Aeson
import qualified Data.Vector as V
import Properties
import Statistics.Types (estimateFromErr, mkCL)
import Test.Tasty (defaultMain, testGroup)
import Test.Tasty.HUnit (testCase)
import Test.HUnit
r1 :: Report
r1 = Report 0 "" [] v1 s1 (Outliers 0 0 0 0 0) []
where
m1 = Measured 4.613000783137977e-05 3.500000000000378e-05 31432 1 0 0 0 0 0.0 0.0 0.0 0.0
v1 = V.fromList [m1]
est1 = estimateFromErr 0.0 (0.0, 0.0) (mkCL 0.0)
s1 = SampleAnalysis [] est1 est1 (OutlierVariance Unaffected "" 0.0)
m2 :: Measured
m2 = Measured {measTime = 1.1438998626545072e-5
, measCpuTime = 1.2000000001677336e-5
, measCycles = 6208
, measIters = 1
, measAllocated = minBound
, measPeakMbAllocated = minBound
, measNumGcs = minBound
, measBytesCopied = minBound
, measMutatorWallSeconds = -1/0
, measMutatorCpuSeconds = -1/0
, measGcWallSeconds = -1/0
, measGcCpuSeconds = -1/0}
main :: IO ()
main = defaultMain $ testGroup "Tests"
[ Properties.tests
, testCase "json-roundtrip1"
(assertEqual "round trip simple Measured"
(Right m2) (Aeson.eitherDecode (Aeson.encode m2)))
, testCase "json-roundtrip2"
(assertEqual "round trip simple Report"
(Right r1) (Aeson.eitherDecode (Aeson.encode r1)))
]
|
