33 lines
802 B
Haskell
33 lines
802 B
Haskell
|
{-# LANGUAGE TemplateHaskell #-}
|
||
|
|
|
||
|
|
module Test.Serialisation.Raw.Base16 (tests) where
|
||
|
|
|
||
|
|
import Test.Tasty
|
||
|
|
import Test.Tasty.HUnit
|
||
|
|
|
||
|
|
import qualified Data.Aeson as Aeson
|
||
|
|
|
||
|
|
import Test.Serialisation.Types
|
||
|
|
import Test.Util.TH
|
||
|
|
|
||
|
|
tests :: TestTree
|
||
|
|
tests = testGroup "Test.Serialisation.Raw.Base16" [
|
||
|
|
testCase "show" test_show
|
||
|
|
, testCase "structured" test_structured
|
||
|
|
, testCase "json" test_json
|
||
|
|
]
|
||
|
|
|
||
|
|
test_show :: Assertion
|
||
|
|
test_show =
|
||
|
|
assertEqual "" exampleUsesBase16 $
|
||
|
|
$(reparseShow exampleUsesBase16)
|
||
|
|
|
||
|
|
test_structured :: Assertion
|
||
|
|
test_structured =
|
||
|
|
assertEqual "" exampleUsesBase16 $
|
||
|
|
$(reparseStructured exampleUsesBase16)
|
||
|
|
|
||
|
|
test_json :: Assertion
|
||
|
|
test_json =
|
||
|
|
assertEqual "" (Right exampleUsesBase16) $
|
||
|
|
Aeson.eitherDecode $ Aeson.encode exampleUsesBase16
|