tests/testthat/test_pyErrorHandling.R

In Sage-Bionetworks/PythonEmbedInR: Use an embedded Python from Within R

context("test python error handling")

# this python code replaces '__getStderr' with a mock fcn that returns None
mock__getStderr<-'
orig__getStderr=__getStderr
def __getStderr():
 return None
'

errorGenDef<-'
def errorGen():
 raise Exception("This is an error!")
'

isWindows<-.Call( "isDllVersion", PACKAGE="PythonEmbedInR")

if (isWindows) {
	setup(pyExec(mock__getStderr))
	teardown({
		# this python code restores __getStderr
		restore__getStderr<-'__getStderr=orig__getStderr'
		pyExec(restore__getStderr)
		# flush the content
		pyExec("__getStderr()")
	})

	test_that("pyExec errors are correctly turned into R errors", {
		# On Windows, the unmodified PythonInR code returns an integer error code rather than raising an exception
		expect_error(pyExec("raise Exception('foo')"))
	})
	
	test_that("pyCall errors are correctly turned into R errors", {
		# On Windows, the unmodified PythonInR code returns a try-error rather than raising an exception
		pyExec(errorGenDef)
		expect_error(pyCall("errorGen"))
	})
	
}