mirror of
https://github.com/tensorflow/haskell.git
synced 2024-12-25 19:19:45 +01:00
a11a417ad5
As a follow-up to #86, check that our CSE isn't too aggressive to prevent feeds of pure ops with distinct names.
102 lines
3.8 KiB
Haskell
102 lines
3.8 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.
|
|
|
|
{-# LANGUAGE OverloadedLists #-}
|
|
{-# LANGUAGE OverloadedStrings #-}
|
|
|
|
module Main where
|
|
|
|
import Control.Monad.IO.Class (liftIO)
|
|
import Data.Int (Int32, Int64)
|
|
import Google.Test (googleTest)
|
|
import Lens.Family2 ((.~))
|
|
import System.IO.Temp (withSystemTempDirectory)
|
|
import Test.Framework (Test)
|
|
import Test.Framework.Providers.HUnit (testCase)
|
|
import Test.HUnit ((@=?))
|
|
import qualified Data.ByteString.Char8 as B8
|
|
|
|
import qualified Data.Vector as V
|
|
import qualified TensorFlow.Build as TF
|
|
import qualified TensorFlow.Nodes as TF
|
|
import qualified TensorFlow.Ops as TF
|
|
import qualified TensorFlow.Session as TF
|
|
import qualified TensorFlow.Tensor as TF
|
|
import qualified TensorFlow.Types as TF
|
|
|
|
-- | Test that one can easily determine number of elements in the tensor.
|
|
testSize :: Test
|
|
testSize = testCase "testSize" $ do
|
|
x <- eval $ TF.size (TF.constant (TF.Shape [2, 3]) [0..5 :: Float])
|
|
TF.Scalar (2 * 3 :: Int32) @=? x
|
|
|
|
eval :: TF.Fetchable t a => t -> IO a
|
|
eval = TF.runSession . TF.run
|
|
|
|
-- | Confirms that the original example from Python code works.
|
|
testReducedShape :: Test
|
|
testReducedShape = testCase "testReducedShape" $ do
|
|
x <- eval $ TF.reducedShape (TF.vector [2, 3, 5, 7 :: Int64])
|
|
(TF.vector [1, 2 :: Int32])
|
|
V.fromList [2, 1, 1, 7 :: Int32] @=? x
|
|
|
|
testSaveRestore :: Test
|
|
testSaveRestore = testCase "testSaveRestore" $
|
|
withSystemTempDirectory "" $ \dirPath -> do
|
|
let path = B8.pack $ dirPath ++ "/checkpoint"
|
|
var :: TF.MonadBuild m => m (TF.Tensor TF.Ref Float)
|
|
var = TF.render =<<
|
|
TF.zeroInitializedVariable' (TF.opName .~ "a")
|
|
(TF.Shape [])
|
|
TF.runSession $ do
|
|
v <- var
|
|
TF.assign v 134 >>= TF.run_
|
|
TF.save path [v] >>= TF.run_
|
|
result <- TF.runSession $ do
|
|
v <- var
|
|
TF.restore path v >>= TF.run_
|
|
TF.run v
|
|
liftIO $ TF.Scalar 134 @=? result
|
|
|
|
-- | Test that 'placeholder' is not CSE'd.
|
|
testPlaceholderCse :: Test
|
|
testPlaceholderCse = testCase "testPlaceholderCse" $ TF.runSession $ do
|
|
p1 <- TF.placeholder []
|
|
p2 <- TF.placeholder []
|
|
let enc :: Float -> TF.TensorData Float
|
|
enc n = TF.encodeTensorData [] (V.fromList [n])
|
|
result <- TF.runWithFeeds [TF.feed p1 (enc 2), TF.feed p2 (enc 3)] $ p1 + p2
|
|
liftIO $ result @=? TF.Scalar 5
|
|
|
|
-- | Test that regular tensors can also be used for feeds, as long as they each
|
|
-- have a different name.
|
|
testScalarFeedCse :: Test
|
|
testScalarFeedCse = testCase "testScalarFeedCse" $ TF.runSession $ do
|
|
p1 <- TF.render $ TF.scalar' (TF.opName .~ "A") 0
|
|
-- The second op is identical to the first other than its name; make sure
|
|
-- we don't aggressively CSE them together and prevent feeding them
|
|
-- separately.
|
|
p2 <- TF.render $ TF.scalar' (TF.opName .~ "B") 0
|
|
let enc :: Float -> TF.TensorData Float
|
|
enc n = TF.encodeTensorData [] (V.fromList [n])
|
|
result <- TF.runWithFeeds [TF.feed p1 (enc 2), TF.feed p2 (enc 3)] $ p1 + p2
|
|
liftIO $ result @=? TF.Scalar 5
|
|
|
|
main :: IO ()
|
|
main = googleTest [ testSaveRestore
|
|
, testSize
|
|
, testReducedShape
|
|
, testPlaceholderCse
|
|
, testScalarFeedCse
|
|
]
|