[Rpy] SF.net SVN: rpy: [538] branches/rpy_nextgen/rpy/rinterface/tests/ test_EmbeddedR.py

[<lga...@us...>]

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.