Revision: 597
http://rpy.svn.sourceforge.net/rpy/?rev=597&view=rev
Author: lgautier
Date: 2008-07-27 14:31:56 +0000 (Sun, 27 Jul 2008)
Log Message:
-----------
new test for SexpClosure
Modified Paths:
--------------
branches/rpy_nextgen/rpy/rinterface/tests/test_SexpClosure.py
Modified: branches/rpy_nextgen/rpy/rinterface/tests/test_SexpClosure.py
===================================================================
--- branches/rpy_nextgen/rpy/rinterface/tests/test_SexpClosure.py
2008-07-27 14:24:07 UTC (rev 596)
+++ branches/rpy_nextgen/rpy/rinterface/tests/test_SexpClosure.py
2008-07-27 14:31:56 UTC (rev 597)
@@ -62,11 +62,22 @@
def testRcall(self):
ad = rlc.ArgsDict((('a', rinterface.SexpVector([2, ],
rinterface.INTSXP)),
('b', rinterface.SexpVector([1, ],
rinterface.INTSXP)),
+ (None, rinterface.SexpVector([5, ],
rinterface.INTSXP)),
('c', rinterface.SexpVector([0, ],
rinterface.INTSXP))))
mylist = rinterface.baseNameSpaceEnv['list'].rcall(ad.items())
+
+ names = [x for x in mylist.do_slot("names")]
+
+ for i in range(4):
+ self.assertEquals(('a', 'b', '', 'c')[i], names[i])
+ def testErrorInCall(self):
+ mylist = rinterface.baseNameSpaceEnv['list']
+
+ self.assertRaises(ValueError, mylist, 'foo')
+
def suite():
suite = unittest.TestLoader().loadTestsFromTestCase(SexpClosureTestCase)
return suite
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 the Moblin Your Move Developer's challenge
Build the coolest Linux based applications with Moblin SDK & win great prizes
Grand prize is a trip for two to an Open Source event anywhere in the world
http://moblin-contest.org/redirect.php?banner_id=100&url=/
_______________________________________________
rpy-list mailing list
[email protected]
https://lists.sourceforge.net/lists/listinfo/rpy-list
