re-add ordering tests but use monomorphic functions

Author: chessai

test/ArrayFire/ArithSpec.hs

@@ -6,6 +6,8 @@ import Prelude    hiding (sqrt, div, and, or, not, isNaN)
 import Test.Hspec
 import Foreign.C
 
+import qualified ArrayFire as A
+
 spec :: Spec
 spec =
   describe "Arith tests" $ do
@@ -31,6 +33,14 @@ spec =
       3 `shouldBe` cbrt @Double 27
     it "Should take square root" $ do
       2 `shouldBe` sqrt @Double 4
+    it "Should lt Array" $ do
+      2 `A.lt` (3 :: Array Double) `shouldBe` True
+    it "Should lte Array" $ do
+      2 `A.lte` (3 :: Array Double) `shouldBe` True
+    it "Should gte Array" $ do
+      2 `A.gte` (3 :: Array Double) `shouldBe` False
+    it "Should gt Array" $ do
+      2 `A.gt` (3 :: Array Double) `shouldBe` False
     it "Should eq Array" $ do
       3 == (3 :: Array Double) `shouldBe` True
     it "Should and Array" $ do