hscdio-0.1.0.0: test/Test/Libcdio/Upstream/Foreign/SizeOf.hs

{-|
Description:    

Copyright:      (c) 2019 Sam May
License:        GPL-3.0-or-later
Maintainer:     ag@eitilt.life

Stability:      experimental
Portability:    portable
-}
module Test.Libcdio.Upstream.Foreign.SizeOf (tests) where


import qualified Test.HUnit as U
import Test.HUnit ( (~=?), (~:) )

import qualified Foreign.Storable as S

import Foreign.Libcdio.Sector


tests :: U.Test
tests = "Foreign.Libcdio.Test.SizeOf" ~: U.TestList
    [ 3 ~=? S.sizeOf (Msf 0 0 0)
    --TODO: More from iso9660_private.h
    ]