1
1
mirror of https://github.com/github/semantic.git synced 2024-12-11 08:45:48 +03:00

Add rountrip tests to blob and blob pair

This commit is contained in:
joshvera 2018-07-16 17:06:06 -04:00
parent 51d873f81e
commit 48411926a0

View File

@ -4,6 +4,7 @@ module Proto3.Roundtrip (spec) where
import SpecHelpers import SpecHelpers
import Data.Blob
import Data.Span import Data.Span
import qualified Data.ByteString.Lazy as L import qualified Data.ByteString.Lazy as L
import Data.Source import Data.Source
@ -33,6 +34,12 @@ instance Named1 (Sum '[Literal.Null]) where nameOf1 _ = "NullSyntax"
spec :: Spec spec :: Spec
spec = parallel $ do spec = parallel $ do
describe "blobs" $
prop "roundtrips" $
\sp -> shouldRoundtrip @Blob sp
describe "blob pairs" $
prop "roundtrips" $
\sp -> shouldRoundtrip @BlobPair sp
describe "spans" $ describe "spans" $
prop "roundtrips" $ prop "roundtrips" $
\sp -> shouldRoundtrip @Span sp \sp -> shouldRoundtrip @Span sp