Revision: 519
http://rpy.svn.sourceforge.net/rpy/?rev=519&view=rev
Author: lgautier
Date: 2008-05-14 10:43:00 -0700 (Wed, 14 May 2008)
Log Message:
-----------
more tests
Modified Paths:
--------------
branches/rpy_nextgen/rpy/rinterface/tests/test_SexpClosure.py
branches/rpy_nextgen/rpy/rinterface/tests/test_SexpEnvironment.py
Modified: branches/rpy_nextgen/rpy/rinterface/tests/test_SexpClosure.py
===================================================================
--- branches/rpy_nextgen/rpy/rinterface/tests/test_SexpClosure.py
2008-05-14 17:41:25 UTC (rev 518)
+++ branches/rpy_nextgen/rpy/rinterface/tests/test_SexpClosure.py
2008-05-14 17:43:00 UTC (rev 519)
@@ -16,7 +16,6 @@
# rinterface.endEmbeddedR(1);
def testNew(self):
-
x = "a"
self.assertRaises(ValueError, rinterface.SexpClosure, x)
@@ -29,6 +28,7 @@
letters = rinterface.baseNameSpaceEnv["letters"]
self.assertRaises(RuntimeError, sum, letters)
+
def suite():
suite = unittest.TestLoader().loadTestsFromTestCase(SexpClosureTestCase)
return suite
Modified: branches/rpy_nextgen/rpy/rinterface/tests/test_SexpEnvironment.py
===================================================================
--- branches/rpy_nextgen/rpy/rinterface/tests/test_SexpEnvironment.py
2008-05-14 17:41:25 UTC (rev 518)
+++ branches/rpy_nextgen/rpy/rinterface/tests/test_SexpEnvironment.py
2008-05-14 17:43:00 UTC (rev 519)
@@ -52,6 +52,14 @@
ok = isinstance(sfit_R, rinterface.SexpClosure)
self.assertTrue(ok)
+ # now with the function-only option
+ plot = rinterface.globalEnv.get("plot", wantFun = False)
+ self.assertEquals(rinterface.CLOSXP, plot.typeof())
+ rinterface.globalEnv["plot"] = rinterface.SexpVector(["foo", ],
+
rinterface.CHARSXP)
+ plot = rinterface.globalEnv.get("plot", wantFun = True)
+ self.assertEquals(rinterface.CLOSXP, plot.typeof())
+
def testSubscript(self):
ge = rinterface.globalEnv
obj = rinterface.globalEnv.get("letters")
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
