linear-1.20.8: tests/Binary.hs

{-# LANGUAGE CPP #-}
module Binary (tests) where

#if !(MIN_VERSION_base(4,8,0))
import Control.Applicative
#endif
import Data.Binary.Put
import Data.Binary.Get
import Linear
import qualified Data.ByteString.Lazy as BS
import Test.HUnit

originalVecs :: (V3 Float, V2 Char)
originalVecs = (V3 1 2 3, V2 'a' 'b')

bytes :: BS.ByteString
bytes = runPut $ do putLinear $ fst originalVecs
                    putLinear $ snd originalVecs

tests :: Test
tests = test [ "Serialized length" ~: BS.length bytes ~?= 3*13+2
             , "Deserialization" ~: deserialized ~?= originalVecs ]
  where deserialized = runGet ((,) <$> getLinear <*> getLinear) bytes