def test_new():
sexp = rinterface.globalenv
sexp_new = rinterface.SexpEnvironment(sexp)
assert sexp.rsame(sexp_new)
sexp_new2 = rinterface.Sexp(sexp)
assert sexp.rsame(sexp_new2)
del (sexp)
assert sexp_new.rsame(sexp_new2)
with pytest.raises(ValueError):
rinterface.SexpEnvironment('2')
def testNew(self):
sexp = rinterface.globalenv
sexp_new = rinterface.SexpEnvironment(sexp)
idem = rinterface.globalenv.get("identical")
self.assertTrue(idem(sexp, sexp_new)[0])
sexp_new2 = rinterface.Sexp(sexp)
self.assertTrue(idem(sexp, sexp_new2)[0])
del (sexp)
self.assertTrue(idem(sexp_new, sexp_new2)[0])
self.assertRaises(ValueError, rinterface.SexpEnvironment, '2')