From 42c40b0203e35d7bfdeae125d3e4249f5a09e7eb Mon Sep 17 00:00:00 2001
From: Lukas Stadler <lukas.stadler@oracle.com>
Date: Wed, 7 Feb 2018 17:16:19 +0100
Subject: [PATCH] test for environmentName
---
.../r/test/builtins/TestBuiltin_environmentName.java | 10 ++++++++++
1 file changed, 10 insertions(+)
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 4089994b5d..28d7be15ff 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))");
+ }
}
--
GitLab