testSigmoidGrad :: Test
testSigmoidGrad = testCase "testSigmoidGrad" $ do
    [dx] <- TF.runSession $ do
        x <- TF.render $ TF.vector  [0 :: Float]
        let y = TF.sigmoid x
        TF.gradients y [x] >>= TF.run
    V.fromList [0.25] @=? dx
testSigmoidGrad :: Test
testSigmoidGrad = testCase "testSigmoidGrad" $ do
    [dx] <- TF.runSession $ do
        x <- TF.render $ TF.vector  [0 :: Float]
        let y = TF.sigmoid x
        TF.gradients y [x] >>= TF.run
    V.fromList [0.25] @=? dx
testSigmoidGrad = testCase "testSigmoidGrad" $ do
    [dx] <- TF.runSession $ do
        x <- TF.render $ TF.vector  [0 :: Float]
        let y = TF.sigmoid x
        TF.gradients y [x] >>= TF.run
    V.fromList [0.25] @=? dx