eeva/tensorflow-haskell
1
0
Fork 0
mirror of https://github.com/tensorflow/haskell.git synced 2024-06-02 19:13:34 +02:00
Code Issues Releases Wiki Activity

Fix --pedantic build

Browse Source
This commit is contained in:
fkm3 2017-05-20 18:50:32 -07:00
parent a6d10f103c
commit 1c8eaa67d4
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
tensorflow-ops/tests/VariableTest.hs
View File

@ -59,13 +59,13 @@ testInitializedVariableShape =
testInitializedValue :: Test
testInitializedValue =
testCase "testInitializedValue" $ runSession $ do
v <- initializedVariable (Ops.constant [1] [42 :: Float])
result <- run (initializedValue v)
initialized <- initializedVariable (Ops.constant [1] [42 :: Float])
result <- run (initializedValue initialized)
liftIO $ Just [42] @=? (result :: Maybe (V.Vector Float))
v <- variable [1]
uninitialized <- variable [1]
-- Can't use @=? because there is no Show instance for Tensor.
when (isJust (initializedValue (v :: Variable Float))) $
when (isJust (initializedValue (uninitialized :: Variable Float))) $
liftIO $ assertFailure "initializedValue should be Nothing, got Just"
testDependency :: Test