Revision: 538
http://rpy.svn.sourceforge.net/rpy/?rev=538&view=rev
Author: lgautier
Date: 2008-05-30 02:18:53 -0700 (Fri, 30 May 2008)
Log Message:
-----------
Fix in the test code (and the code is still not passing that test)
Modified Paths:
--------------
branches/rpy_nextgen/rpy/rinterface/tests/test_EmbeddedR.py
Modified: branches/rpy_nextgen/rpy/rinterface/tests/test_EmbeddedR.py
===================================================================
--- branches/rpy_nextgen/rpy/rinterface/tests/test_EmbeddedR.py 2008-05-29
05:24:24 UTC (rev 537)
+++ branches/rpy_nextgen/rpy/rinterface/tests/test_EmbeddedR.py 2008-05-30
09:18:53 UTC (rev 538)
@@ -11,13 +11,14 @@
class EmbeddedRTestCase(unittest.TestCase):
def testSetWriteConsole(self):
buf = ""
- def f(x, buf=buf):
+ def f(x):
+ global buf
buf = buf + x
rinterface.setWriteConsole(f)
- code = rinterface.SexpVector(["1+2", ], rinterface.STRSXP)
- rinterface.baseNameSpaceEnv["eval"](code)
- self.assertEquals("[1] 3", buf)
+ code = rinterface.SexpVector(["3", ], rinterface.STRSXP)
+ rinterface.baseNameSpaceEnv["print"](code)
+ self.assertEquals('[1] "3"', buf)
def suite():
suite = unittest.TestLoader().loadTestsFromTestCase(EmbeddedRTestCase)
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
