diff --git a/com.oracle.truffle.r.test.native/packages/testrffi/testrffi/R/testrffi.R b/com.oracle.truffle.r.test.native/packages/testrffi/testrffi/R/testrffi.R
index 62ed8ab62363727eb86855c58a00a5f07e26ecbb..2f5a00e5783f8374f231a23d932410efffa82344 100644
--- a/com.oracle.truffle.r.test.native/packages/testrffi/testrffi/R/testrffi.R
+++ b/com.oracle.truffle.r.test.native/packages/testrffi/testrffi/R/testrffi.R
@@ -191,4 +191,8 @@ rffi.createNativeConnection <- function() {
 
 rffi.parseVector <- function(x) {
     .Call('test_ParseVector', x);
+}
+
+rffi.isNull <- function(x) {
+    .Call('test_isNull', x);
 }
\ No newline at end of file
diff --git a/com.oracle.truffle.r.test.native/packages/testrffi/testrffi/src/testrffi.c b/com.oracle.truffle.r.test.native/packages/testrffi/testrffi/src/testrffi.c
index 4c6ff95296c808e8c9851be271321aa3a228ab8f..a8adfd05dcc85d3aa218ddb085d0cc55d42ba87a 100644
--- a/com.oracle.truffle.r.test.native/packages/testrffi/testrffi/src/testrffi.c
+++ b/com.oracle.truffle.r.test.native/packages/testrffi/testrffi/src/testrffi.c
@@ -533,3 +533,7 @@ SEXP test_ParseVector(SEXP src) {
     UNPROTECT(2);
     return result;
 }
+
+Rboolean test_isNull(SEXP x) {
+	return Rf_isNull(x);
+}
diff --git a/com.oracle.truffle.r.test.native/packages/testrffi/testrffi/src/testrffi.h b/com.oracle.truffle.r.test.native/packages/testrffi/testrffi/src/testrffi.h
index 7ff8cb06fdae73a648451b91e11a03e90a3837a8..c21517de658bc67dfb5fa6647bf3b68a205fbfa2 100644
--- a/com.oracle.truffle.r.test.native/packages/testrffi/testrffi/src/testrffi.h
+++ b/com.oracle.truffle.r.test.native/packages/testrffi/testrffi/src/testrffi.h
@@ -105,3 +105,5 @@ extern SEXP test_readConnection(SEXP conn);
 extern SEXP test_createNativeConnection(void);
 
 extern SEXP test_ParseVector(SEXP src);
+
+extern Rboolean test_isNUll(SEXP x);
diff --git a/com.oracle.truffle.r.test.native/packages/testrffi/testrffi/tests/simpleTests.R b/com.oracle.truffle.r.test.native/packages/testrffi/testrffi/tests/simpleTests.R
index 521353e1ff973824469f37b5b247e5d30605ebd8..e889ccad45ac70d8da61652584049f9e49daef9d 100644
--- a/com.oracle.truffle.r.test.native/packages/testrffi/testrffi/tests/simpleTests.R
+++ b/com.oracle.truffle.r.test.native/packages/testrffi/testrffi/tests/simpleTests.R
@@ -86,6 +86,11 @@ rffi.parseVector('1+')
 for(i in seq(5000)) {
     rffi.preserve_object()
 }
+
 for(i in seq(5000)) {
     rffi.release_object()
-}
\ No newline at end of file
+}
+
+# test isNull
+rffi.isNull(NULL)
+