testSqrt :: Test
testSqrt = testCase "testSqrt" $ do
    [dx] <- TF.runSession $ do
        x <- TF.render $ TF.vector [0.0625 :: Float]
        let y = TF.sqrt x
        TF.gradients y [x] >>= TF.run
    V.fromList [2] @=? dx
testSqrt :: Test
testSqrt = testCase "testSqrt" $ do
    [dx] <- TF.runSession $ do
        x <- TF.render $ TF.vector [0.0625 :: Float]
        let y = TF.sqrt x
        TF.gradients y [x] >>= TF.run
    V.fromList [2] @=? dx
testSqrt = testCase "testSqrt" $ do
    [dx] <- TF.runSession $ do
        x <- TF.render $ TF.vector [0.0625 :: Float]
        let y = TF.sqrt x
        TF.gradients y [x] >>= TF.run
    V.fromList [2] @=? dx