Revision: 440
http://rpy.svn.sourceforge.net/rpy/?rev=440&view=rev
Author: lgautier
Date: 2008-03-15 05:24:10 -0700 (Sat, 15 Mar 2008)
Log Message:
-----------
Added unit tests for creating new instances
Modified Paths:
--------------
trunk/sandbox/rpy_nextgen/rpy/rinterface/tests/test_SexpVector.py
Modified: trunk/sandbox/rpy_nextgen/rpy/rinterface/tests/test_SexpVector.py
===================================================================
--- trunk/sandbox/rpy_nextgen/rpy/rinterface/tests/test_SexpVector.py
2008-03-15 12:23:36 UTC (rev 439)
+++ trunk/sandbox/rpy_nextgen/rpy/rinterface/tests/test_SexpVector.py
2008-03-15 12:24:10 UTC (rev 440)
@@ -11,6 +11,61 @@
#def tearDown(self):
# rinterface.endEmbeddedR(1);
+ def testNewInt(self):
+ sexp = rinterface.SexpVector([1, ], rinterface.INTSXP)
+ isInteger = rinterface.globalEnv.get("is.integer")
+ ok = isInteger(sexp)[0]
+ self.assertTrue(ok)
+
+ sexp = rinterface.SexpVector(["a", ], rinterface.INTSXP)
+ isNA = rinterface.globalEnv.get("is.na")
+ ok = isNA(sexp)[0]
+ self.assertTrue(ok)
+
+ def testNewReal(self):
+ sexp = rinterface.SexpVector([1.0, ], rinterface.REALSXP)
+ isNumeric = rinterface.globalEnv.get("is.numeric")
+ ok = isNumeric(sexp)[0]
+ self.assertTrue(ok)
+
+ sexp = rinterface.SexpVector(["a", ], rinterface.REALSXP)
+ isNA = rinterface.globalEnv.get("is.na")
+ ok = isNA(sexp)[0]
+ self.assertTrue(ok)
+
+ def testNewComplex(self):
+ sexp = rinterface.SexpVector([1.0 + 1.0j, ], rinterface.CPLXSXP)
+ isComplex = rinterface.globalEnv.get("is.complex")
+ ok = isComplex(sexp)[0]
+ self.assertTrue(ok)
+
+ def testNewString(self):
+ sexp = rinterface.SexpVector(["abc", ], rinterface.STRSXP)
+ isCharacter = rinterface.globalEnv.get("is.character")
+ ok = isCharacter(sexp)[0]
+ self.assertTrue(ok)
+
+ #FIXME: elucidate what is happening here
+ sexp = rinterface.SexpVector([1, ], rinterface.STRSXP)
+ isNA = rinterface.globalEnv.get("is.na")
+ ok = isNA(sexp)[0]
+ self.assertTrue(ok)
+
+ def testNewVector(self):
+ sexp_char = rinterface.SexpVector(["abc", ], rinterface.STRSXP)
+ sexp_int = rinterface.SexpVector([1, ], rinterface.INTSXP)
+ sexp = rinterface.SexpVector([sexp_char, sexp_int], rinterface.VECSXP)
+ isList = rinterface.globalEnv.get("is.list")
+ ok = isList(sexp)[0]
+ self.assertTrue(ok)
+
+
+
+ def testNew_InvalidType(self):
+ self.assertTrue(False)
+ #FIXME
+ self.assertRaises(ValueError, rinterface.SexpVector, [1, ], -1)
+
def testGetItem(self):
letters_R = rinterface.globalEnv.get("letters")
self.assertTrue(isinstance(letters_R, rinterface.SexpVector))
This was sent by the SourceForge.net collaborative development platform, the
world's largest Open Source development site.
-------------------------------------------------------------------------
This SF.net email is sponsored by: Microsoft
Defy all challenges. Microsoft(R) Visual Studio 2008.
http://clk.atdmt.com/MRT/go/vse0120000070mrt/direct/01/
_______________________________________________
rpy-list mailing list
rpy-list@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/rpy-list
