Revision: 529
http://rpy.svn.sourceforge.net/rpy/?rev=529&view=rev
Author: lgautier
Date: 2008-05-21 13:17:38 -0700 (Wed, 21 May 2008)
Log Message:
-----------
Added missing test file
Added Paths:
-----------
branches/rpy_nextgen/rpy/rinterface/tests/test_EmbeddedR.py
Added: branches/rpy_nextgen/rpy/rinterface/tests/test_EmbeddedR.py
===================================================================
--- branches/rpy_nextgen/rpy/rinterface/tests/test_EmbeddedR.py
(rev 0)
+++ branches/rpy_nextgen/rpy/rinterface/tests/test_EmbeddedR.py 2008-05-21
20:17:38 UTC (rev 529)
@@ -0,0 +1,27 @@
+import unittest
+import rpy2.rinterface as rinterface
+
+try:
+ #FIXME: can starting and stopping an embedded R be done several times ?
+ rinterface.initEmbeddedR()
+except:
+ pass
+
+
+class EmbeddedRTestCase(unittest.TestCase):
+ def testSetWriteConsole(self):
+ buf = ""
+ def f(x, buf=buf):
+ buf = buf + x
+
+ rinterface.setWriteConsole(f)
+ code = rinterface.SexpVector(["1+2", ], rinterface.STRSXP)
+ rinterface.baseNameSpaceEnv["eval"](code)
+ self.assertEquals("[1] 3", buf)
+
+def suite():
+ suite = unittest.TestLoader().loadTestsFromTestCase(EmbeddedRTestCase)
+ return suite
+
+if __name__ == '__main__':
+ unittest.main()
Property changes on: branches/rpy_nextgen/rpy/rinterface/tests/test_EmbeddedR.py
___________________________________________________________________
Name: svn:eol-style
+ native
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
