diff --git a/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/builtins/TestBuiltin_environmentName.java b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/builtins/TestBuiltin_environmentName.java index 4089994b5d706b775ee79fd2955ceb87a7bcfa8b..28d7be15ffa4b02fdc0e9ba5a5c03291f2b904e2 100644 --- a/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/builtins/TestBuiltin_environmentName.java +++ b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/builtins/TestBuiltin_environmentName.java @@ -31,4 +31,14 @@ public class TestBuiltin_environmentName extends TestBase { public void testenvironmentName3() { assertEval("argv <- list(structure(numeric(0), .Dim = c(0L, 0L))); .Internal(environmentName(argv[[1]]))"); } + + @Test + public void test() { + assertEval("environmentName(globalenv())"); + assertEval("environmentName(baseenv())"); + assertEval("environmentName(emptyenv())"); + assertEval("environmentName(parent.env(globalenv()))"); + assertEval("environmentName(environment(sum))"); + assertEval("environmentName(environment(lm))"); + } }