mirror of
https://github.com/tensorflow/haskell.git
synced 2024-11-30 06:49:44 +01:00
64971c876a
- Merge tensorflow-nn and tensorflow-queue into tensorflow-ops. They don't add extra dependencies and each contain a single module, so I don't think it's worth separating them at the package level. - Remove google-shim in favor of direct use of test-framework.
33 lines
1.1 KiB
Haskell
33 lines
1.1 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 Test.Framework (defaultMain, 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 = defaultMain [ testEncodeDecode
|
|
]
|