Revision: 449
http://rpy.svn.sourceforge.net/rpy/?rev=449&view=rev
Author: lgautier
Date: 2008-03-21 02:47:18 -0700 (Fri, 21 Mar 2008)
Log Message:
-----------
Test for boolean/logical
Modified Paths:
--------------
branches/rpy_nextgen/rpy/rinterface/tests/test_SexpVector.py
Modified: branches/rpy_nextgen/rpy/rinterface/tests/test_SexpVector.py
===================================================================
--- branches/rpy_nextgen/rpy/rinterface/tests/test_SexpVector.py
2008-03-19 21:53:51 UTC (rev 448)
+++ branches/rpy_nextgen/rpy/rinterface/tests/test_SexpVector.py
2008-03-21 09:47:18 UTC (rev 449)
@@ -14,6 +14,18 @@
#def tearDown(self):
# rinterface.endEmbeddedR(1);
+ def testNewBool(self):
+ sexp = rinterface.SexpVector([True, ], rinterface.LGLSXP)
+ isLogical = rinterface.globalEnv.get("is.logical")
+ ok = isLogical(sexp)[0]
+ self.assertTrue(ok)
+
+ sexp = rinterface.SexpVector(["a", ], rinterface.LGLSXP)
+ isNA = rinterface.globalEnv.get("is.na")
+ ok = isNA(sexp)[0]
+ self.assertTrue(ok)
+
+
def testNewInt(self):
sexp = rinterface.SexpVector([1, ], rinterface.INTSXP)
isInteger = rinterface.globalEnv.get("is.integer")
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
