1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
|
from __future__ import nested_scopes
import unittest
import sys
sys.path.insert(1, "..")
from rpy import *
class UtilityTestCase(unittest.TestCase):
def testAsList(self):
self.failUnless(as_list(5) == [5])
self.failUnless(as_list(['a', 6]) == ['a', 6])
self.failUnless(as_list([5]) == [5])
self.failUnless(as_list((5)) == [(5)])
def testWithMode(self):
with_mode(NO_CONVERSION,
lambda: self.failUnless(get_default_mode() == NO_CONVERSION))()
with_mode(BASIC_CONVERSION, lambda:
self.failUnless(get_default_mode() == BASIC_CONVERSION))()
with_mode(CLASS_CONVERSION, lambda:
self.failUnless(get_default_mode() == CLASS_CONVERSION))()
with_mode(PROC_CONVERSION, lambda:
self.failUnless(get_default_mode() == PROC_CONVERSION))()
self.failUnlessRaises(ValueError, lambda: with_mode(TOP_CONVERSION+1, lambda: 4)())
self.failUnlessRaises(ValueError, lambda: with_mode(-2, lambda: 4)())
def testRCode(self):
with_mode(BASIC_CONVERSION,
lambda: self.failUnless(r("c(4,5)") == [4,5]))()
self.failUnlessRaises(RPyRException, lambda: r("foo"))
self.failUnlessRaises(RPyRException, lambda: r("[$%^"))
if __name__ == '__main__':
unittest.main()
|
