mirror of
https://github.com/tensorflow/haskell.git
synced 2024-11-26 21:09:44 +01:00
2b5e41ffeb
* Enforce pedantic build mode in CI. * Our imports drifted really far from where they should be.
34 lines
1.2 KiB
Haskell
34 lines
1.2 KiB
Haskell
-- Copyright 2016 TensorFlow authors.
|
|
--
|
|
-- Licensed under the Apache License, Version 2.0 (the "License");
|
|
-- you may not use this file except in compliance with the License.
|
|
-- You may obtain a copy of the License at
|
|
--
|
|
-- http://www.apache.org/licenses/LICENSE-2.0
|
|
--
|
|
-- Unless required by applicable law or agreed to in writing, software
|
|
-- distributed under the License is distributed on an "AS IS" BASIS,
|
|
-- WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
|
|
-- See the License for the specific language governing permissions and
|
|
-- limitations under the License.
|
|
|
|
module Main where
|
|
|
|
import Data.ByteString.Builder (toLazyByteString)
|
|
import Google.Test (googleTest)
|
|
import Test.Framework (Test)
|
|
import Test.Framework.Providers.QuickCheck2 (testProperty)
|
|
import qualified Data.Attoparsec.ByteString.Lazy as Atto
|
|
|
|
import TensorFlow.Internal.VarInt
|
|
|
|
testEncodeDecode :: Test
|
|
testEncodeDecode = testProperty "testEncodeDecode" $ \x ->
|
|
let bytes = toLazyByteString (putVarInt x)
|
|
in case Atto.eitherResult $ Atto.parse getVarInt bytes of
|
|
Left _ -> False
|
|
Right y -> x == y
|
|
|
|
main :: IO ()
|
|
main = googleTest [ testEncodeDecode
|
|
]
|