Revision: 430
http://rpy.svn.sourceforge.net/rpy/?rev=430&view=rev
Author: lgautier
Date: 2008-03-13 14:28:10 -0700 (Thu, 13 Mar 2008)
Log Message:
-----------
added tests for mapping R objects to Python objects and the reverse
Modified Paths:
--------------
trunk/sandbox/rpy_nextgen/rpy/robjects/tests/testRobjects.py
Modified: trunk/sandbox/rpy_nextgen/rpy/robjects/tests/testRobjects.py
===================================================================
--- trunk/sandbox/rpy_nextgen/rpy/robjects/tests/testRobjects.py
2008-03-13 21:25:45 UTC (rev 429)
+++ trunk/sandbox/rpy_nextgen/rpy/robjects/tests/testRobjects.py
2008-03-13 21:28:10 UTC (rev 430)
@@ -1,5 +1,6 @@
import unittest
import rpy.robjects as robjects
+rinterface = robjects.rinterface
import array
class RvectorTestCase(unittest.TestCase):
@@ -32,6 +33,7 @@
for i, li in enumerate(mySeq):
self.assertEquals(mySeq[i] * 2, mySeqAdd[i])
+
def testSubset(self):
seq_R = robjects.r["seq"]
mySeq = seq_R(0, 10)
@@ -42,6 +44,23 @@
for i, si in enumerate(myIndex):
self.assertEquals(mySeq[si-1], mySubset[i])
+ def testMapperR2Python(self):
+ sexp = rinterface.globalEnv.get("letters")
+ self.assertTrue(isinstance(robjects.defaultRobjects2PyMapper(sexp),
robjects.Rvector))
+
+ sexp = rinterface.globalEnv.get("plot")
+ self.assertTrue(isinstance(robjects.defaultRobjects2PyMapper(sexp),
robjects.Rfunction))
+ sexp = rinterface.globalEnv.get(".GlobalEnv")
+ self.assertTrue(isinstance(robjects.defaultRobjects2PyMapper(sexp),
robjects.Renvironment))
+
+ #FIXME: test S4
+
+ def testMapperPy2R(self):
+ py = 1
+ self.assertTrue(isinstance(robjects.defaultPy2RobjectsMapper(py),
robjects.Rvector))
+
+ #FIXME: more tests
+
if __name__ == '__main__':
unittest.main()
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
