github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2024-12-03 00:16:52 +03:00
Code Issues Projects Releases Wiki Activity

Add rountrip tests to blob and blob pair

Browse Source
This commit is contained in:
joshvera 2018-07-16 17:06:06 -04:00
parent 51d873f81e
commit 48411926a0
1 changed files with 7 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
test/Proto3/Roundtrip.hs
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