tentatively exporting isMNull

Author: bbarker

Foreign/Matlab/Array.hsc

@@ -32,6 +32,7 @@ module Foreign.Matlab.Array (
     mxArrayGetList, mxArraySetList,
     mxArrayGetAll, mxArraySetAll, mxArrayGetFirst,
     fromListIO, cellFromListsIO,
+    isMNull,
 
     -- * Struct access
     -- |Structs in Matlab are always arrays, and so can be accessed using most array accessors.

test/Test/Engine.hs

@@ -25,6 +25,7 @@ runEngineTests host = do
   addpath eng testPath
   runLocalMatFun eng
   cosOfPi eng
+  testIsMNull eng
   testGetFirst eng
   testAbstractValueUse eng
   testTypedAbstractValueUse eng
@@ -53,6 +54,22 @@ cosBody eng cosFun x = do
   y <- mxScalarGet y
   print (y :: MDouble)
 
+testIsMNull :: Engine -> IO ()
+testIsMNull eng = do
+  putStrLn $ "\n-- testIsMNull --"
+  xa <- createMXScalar (1.0 :: MDouble)
+  let xaRes = assert (isMNull xa == False) xa
+  xaResEi <- mxArrayGetFirst xaRes
+  putStrLn $ "  xaResEi is Right: " <> (show $ isRight xaResEi)
+  xae :: MXArray MChar <- createMXArray []
+  freeMXArray xae
+  mxLen <- mxArrayLength xae
+  putStrLn $ "length is " <> (show mxLen)
+  -- This is a bit surprising, but ok
+  let xaeRes = assert (isMNull xae == False) xae
+  xaeResEi <- mxArrayGetFirst xaeRes
+  putStrLn $ "  xaeResEi is Right: " <> (show $ isRight xaeResEi)
+
 testGetFirst :: Engine -> IO ()
 testGetFirst eng = do
   putStrLn $ "\n-- testGetFirst --"