-- | CsSysZipsOp spec
csSysZOpSpec :: Spec
csSysZOpSpec = describe "Storable CsSysZOp" $ do
    it "has a memory layout we can handle" $
        sizeOf (undefined :: CsSysZOp) == 4 + 4 + 24
    it "has matching peek- and poke-implementations" $ property $
        \s ->
            alloca (\p -> poke p s >> (peek p :: IO CsSysZOp)) `shouldReturn` s
    it "parses correctly" $ getCsSyszOp `shouldReturn` csSyszOp
csSysZOpSpec :: Spec
csSysZOpSpec = describe "Storable CsSysZOp" $ do
    it "has a memory layout we can handle" $
        sizeOf (undefined :: CsSysZOp) == 4 + 4 + 24
    it "has matching peek- and poke-implementations" $ property $
        \s ->
            alloca (\p -> poke p s >> (peek p :: IO CsSysZOp)) `shouldReturn` s
    it "parses correctly" $ getCsSyszOp `shouldReturn` csSyszOp
csSysZOpSpec = describe "Storable CsSysZOp" $ do
    it "has a memory layout we can handle" $
        sizeOf (undefined :: CsSysZOp) == 4 + 4 + 24
    it "has matching peek- and poke-implementations" $ property $
        \s ->
            alloca (\p -> poke p s >> (peek p :: IO CsSysZOp)) `shouldReturn` s
    it "parses correctly" $ getCsSyszOp `shouldReturn` csSyszOp