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:
parent
51d873f81e
commit
48411926a0
@ -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
|
||||||
|
Loading…
Reference in New Issue
Block a user