From 25b2229ca2a7cbdcd9a70829cc4fc45c25f29966 Mon Sep 17 00:00:00 2001
From: Lukas Stadler <lukas.stadler@oracle.com>
Date: Wed, 7 Feb 2018 09:37:35 +0100
Subject: [PATCH] add test for quote
---
.../src/com/oracle/truffle/r/test/ExpectedTestOutput.test | 8 ++++++++
.../oracle/truffle/r/test/builtins/TestBuiltin_quote.java | 2 ++
2 files changed, 10 insertions(+)
diff --git a/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/ExpectedTestOutput.test b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/ExpectedTestOutput.test
index a5ef46f5b7..db0283c9a1 100644
--- a/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/ExpectedTestOutput.test
+++ b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/ExpectedTestOutput.test
@@ -49332,6 +49332,10 @@ Error in quit("xx") : unrecognized value of 'save'
#quote()
Error in quote() : 0 arguments passed to 'quote' which requires 1
+##com.oracle.truffle.r.test.builtins.TestBuiltin_quote.testQuote#
+#quote(...)
+...
+
##com.oracle.truffle.r.test.builtins.TestBuiltin_quote.testQuote#
#quote(?'+')
`?`("+")
@@ -49352,6 +49356,10 @@ Error in quote() : 0 arguments passed to 'quote' which requires 1
#quote(expr=)
+##com.oracle.truffle.r.test.builtins.TestBuiltin_quote.testQuote#
+#quote(expr=...)
+...
+
##com.oracle.truffle.r.test.builtins.TestBuiltin_quote.testQuote#Ignored.ImplementationError#
#typeof(quote(a[,2])[[3]])
[1] "symbol"
diff --git a/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/builtins/TestBuiltin_quote.java b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/builtins/TestBuiltin_quote.java
index 014088dfd5..eec898c525 100644
--- a/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/builtins/TestBuiltin_quote.java
+++ b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/builtins/TestBuiltin_quote.java
@@ -45,6 +45,8 @@ public class TestBuiltin_quote extends TestBase {
// in GNUR, these behave inconsistently:
assertEval(Ignored.ImplementationError, "quote()");
assertEval("quote(expr=)");
+ assertEval("quote(expr=...)");
+ assertEval("quote(...)");
assertEval(Ignored.ImplementationError, "typeof(quote(a[,2])[[3]])");
assertEval(Ignored.ImplementationError, "{ res <- quote(a[,2])[[3]]; typeof(res) }");
--
GitLab