From b53d53b115c038359719b139cd450a7b7201e22d Mon Sep 17 00:00:00 2001
From: Tomas Stupka <tomas.stupka@oracle.com>
Date: Thu, 30 Nov 2017 17:38:16 +0100
Subject: [PATCH] disabled FastrTckTest
---
.../truffle/r/test/tck/FastRTckTest.java | 951 +++++++++---------
1 file changed, 473 insertions(+), 478 deletions(-)
diff --git a/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/tck/FastRTckTest.java b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/tck/FastRTckTest.java
index 9f678bd062..6a0e7a31fc 100644
--- a/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/tck/FastRTckTest.java
+++ b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/tck/FastRTckTest.java
@@ -22,482 +22,477 @@
*/
package com.oracle.truffle.r.test.tck;
-import static org.junit.Assert.assertTrue;
-
-import org.junit.Test;
-
-import com.oracle.truffle.api.source.Source;
-import com.oracle.truffle.api.vm.PolyglotEngine;
-import com.oracle.truffle.api.vm.PolyglotEngine.Builder;
-import com.oracle.truffle.r.runtime.RRuntime;
-import com.oracle.truffle.tck.TruffleTCK;
-
-public class FastRTckTest extends TruffleTCK {
- @Test
- public void testVerifyPresence() {
- PolyglotEngine vm = PolyglotEngine.newBuilder().build();
- assertTrue("Our language is present", vm.getLanguages().containsKey("text/x-r"));
- }
-
- // @formatter:off
- private static final String INITIALIZATION_CODE =
- "fourtyTwo <- function() {\n" +
- " 42L\n" +
- "}\n" +
- "plus <- function(a, b) {\n" +
- " a + b\n" +
- "}\n" +
- "identity <- function(a) {\n" +
- " a\n" +
- "}\n" +
- "apply <- function(f) {\n" +
- " f(18L, 32L) + 10L\n" +
- "}\n" +
- "null <- function() {\n" +
- " NULL\n" +
- "}\n" +
- "counter <- 0L\n" +
- "count <- function() {\n" +
- " counter <<- counter + 1L\n" +
- "}\n" +
- "complexAdd <- function(a, b) {\n" +
- " a$imaginary <- a$imaginary + b$imaginary\n" +
- " a$real <- a$real + b$real\n" +
- "}\n" +
- "countUpWhile <- function(fn) {\n" +
- " counter <- 0\n" +
- " while (T) {\n" +
- " if (!fn(counter)) {\n" +
- " break\n" +
- " }\n" +
- " counter <- counter + 1\n" +
- " }\n" +
- "}\n" +
- "complexSumReal <- function(a) {\n" +
- " sum <- 0\n" +
- " for (i in 1:length(a)) {\n" +
- " sum <- sum + a[i]$real\n" +
- " }\n" +
- " return(sum)\n" +
- "}\n" +
- "complexCopy <- function(a, b) {\n" +
- " for (i in 0:(length(b)-1)) {\n" +
- " a[i]$real <- b[i]$real\n" +
- " a[i]$imaginary <- b[i]$imaginary\n" +
- " }\n" +
- "}\n" +
- "valuesObject <- function() {\n" +
- " list('byteValue'=0L, 'shortValue'=0L, 'intValue'=0L, 'longValue'=0L, 'floatValue'=0, 'doubleValue'=0, 'charValue'=48L, 'stringValue'='', 'booleanValue'=FALSE)\n" +
- "}\n" +
- "addNumbersFunction <- function() {\n" +
- " function(a, b) a + b\n" +
- "}\n" +
- "objectWithValueProperty <- function() {\n" +
- " list(value = 42L)\n" +
- "}\n" +
- "callFunction <- function(f) {\n" +
- " f(41L, 42L)\n" +
- "}\n" +
- "objectWithElement <- function(f) {\n" +
- " c(0L, 0L, 42L, 0L)\n" +
- "}\n" +
- "objectWithValueAndAddProperty <- function(f) {\n" +
- " e <- new.env()\n" +
- " e$value <- 0L\n" +
- " e$add <- function(inc) { e$value <- e$value + inc; e$value }\n" +
- " e\n" +
- "}\n" +
- "callMethod <- function(f) {\n" +
- " f(41L, 42L)\n" +
- "}\n" +
- "readElementFromForeign <- function(f) {\n" +
- " f[[3L]]\n" +
- "}\n" +
- "writeElementToForeign <- function(f) {\n" +
- " f[[3L]] <- 42L\n" +
- "}\n" +
- "readValueFromForeign <- function(o) {\n" +
- " o$value\n" +
- "}\n" +
- "writeValueToForeign <- function(o) {\n" +
- " o$value <- 42L\n" +
- "}\n" +
- "getSizeOfForeign <- function(o) {\n" +
- " length(o)\n" +
- "}\n" +
- "isNullOfForeign <- function(o) {\n" +
- " .fastr.interop.toBoolean(is.external.null(o))\n" +
- "}\n" +
- "hasSizeOfForeign <- function(o) {\n" +
- " .fastr.interop.toBoolean(is.external.array(o))\n" +
- "}\n" +
- "isExecutableOfForeign <- function(o) {\n" +
- " .fastr.interop.toBoolean(is.external.executable(o))\n" +
- "}\n" +
- "intValue <- function() 42L\n" +
- "intVectorValue <- function() c(42L, 40L)\n" +
- "intSequenceValue <- function() 42:50\n" +
- "intType <- function() 'integer'\n" +
- "doubleValue <- function() 42.1\n" +
- "doubleVectorValue <- function() c(42.1, 40)\n" +
- "doubleSequenceValue <- function() 42.1:50\n" +
- "doubleType <- function() 'double'\n" +
- "functionValue <- function() { function(x) 1 }\n" +
- "functionType <- function() 'closure'\n" +
- "builtinFunctionValue <- function() `+`\n" +
- "builtinFunctionType <- function() 'builtin'\n" +
- "valueWithSource <- function() intValue\n" +
- "objectWithKeyInfoAttributes <- function() { list(rw=1, invocable=function(){ 'invoked' }) }\n" +
- "for (name in ls()) export(name, get(name))\n";
- // @formatter:on
-
- private static final Source INITIALIZATION = Source.newBuilder(INITIALIZATION_CODE).name("TCK").mimeType(RRuntime.R_APP_MIME).build();
-
- @Override
- protected PolyglotEngine prepareVM(Builder builder) throws Exception {
- PolyglotEngine engine = builder.build();
- engine.eval(INITIALIZATION).get();
- return engine;
- }
-
- @Override
- protected String mimeType() {
- return "text/x-r";
- }
-
- @Override
- protected String fourtyTwo() {
- return "fourtyTwo";
- }
-
- @Override
- protected String plusInt() {
- return "plus";
- }
-
- @Override
- protected String identity() {
- return "identity";
- }
-
- @Override
- protected String returnsNull() {
- return "null";
- }
-
- @Override
- protected String applyNumbers() {
- return "apply";
- }
-
- @Override
- protected String countInvocations() {
- return "count";
- }
-
- @Override
- protected String complexAdd() {
- return "complexAdd";
- }
-
- @Override
- protected String complexSumReal() {
- return "complexSumReal";
- }
-
- @Override
- protected String complexCopy() {
- return "complexCopy";
- }
-
- @Override
- protected String invalidCode() {
- return "main <- function() {\n";
- }
-
- @Override
- protected String valuesObject() {
- return "valuesObject";
- }
-
- @Override
- protected String countUpWhile() {
- return "countUpWhile";
- }
-
- @Override
- protected String addToArray() {
- // TODO not yet supported
- return null;
- }
-
- @Override
- protected String getSizeOfForeign() {
- return "getSizeOfForeign";
- }
-
- @Override
- protected String isNullForeign() {
- return "isNullOfForeign";
- }
-
- @Override
- protected String hasSizeOfForeign() {
- return "hasSizeOfForeign";
- }
-
- @Override
- protected String isExecutableOfForeign() {
- return "isExecutableOfForeign";
- }
-
- @Override
- protected String readValueFromForeign() {
- return "readValueFromForeign";
- }
-
- @Override
- protected String writeValueToForeign() {
- return "writeValueToForeign";
- }
-
- @Override
- protected String callFunction() {
- return "callFunction";
- }
-
- @Override
- protected String objectWithElement() {
- return "objectWithElement";
- }
-
- @Override
- protected String objectWithValueAndAddProperty() {
- return "objectWithValueAndAddProperty";
- }
-
- @Override
- protected String callMethod() {
- return "callMethod";
- }
-
- @Override
- protected String readElementFromForeign() {
- return "readElementFromForeign";
- }
-
- @Override
- protected String writeElementToForeign() {
- return "writeElementToForeign";
- }
-
- @Override
- protected String objectWithValueProperty() {
- return "objectWithValueProperty";
- }
-
- @Override
- protected String functionAddNumbers() {
- return "addNumbersFunction";
- }
-
- @Override
- public void readWriteBooleanValue() throws Exception {
- // TODO not yet supported
- }
-
- @Override
- public void readWriteCharValue() throws Exception {
- // TODO not yet supported
- }
-
- @Override
- public void readWriteShortValue() throws Exception {
- // TODO not yet supported
- }
-
- @Override
- public void readWriteByteValue() throws Exception {
- // TODO not yet supported
- }
-
- @Override
- public void readWriteFloatValue() throws Exception {
- // TODO not yet supported
- }
-
- @Override
- public void testAddComplexNumbersWithMethod() throws Exception {
- // TODO not yet supported
- }
-
- @Override
- @Test
- public void testNull() {
- // disabled because we don't provide a Java "null" value in R
- }
-
- @Override
- @Test
- public void testNullInCompoundObject() {
- // disabled because we don't provide a Java "null" value in R
- }
-
- @Override
- @Test
- public void testPlusWithIntsOnCompoundObject() throws Exception {
- // TODO support this test case.
- }
-
- @Override
- @Test
- public void testMaxOrMinValue() throws Exception {
- // TODO support this test case.
- }
-
- @Override
- @Test
- public void testMaxOrMinValue2() throws Exception {
- // TODO support this test case.
- }
-
- @Override
- @Test
- public void testFortyTwoWithCompoundObject() throws Exception {
- // TODO support this test case.
- }
-
- @Override
- public void testPlusWithFloat() throws Exception {
- // no floats in FastR
- }
-
- @Override
- public void testPrimitiveReturnTypeFloat() throws Exception {
- // no floats in FastR
- }
-
- @Override
- public void testPlusWithOneNegativeShort() throws Exception {
- // no floats in FastR
- }
-
- @Override
- public void testPlusWithDoubleFloatSameAsInt() throws Exception {
- // no floats in FastR
- }
-
- @Override
- public void testPlusWithLongMaxIntMinInt() throws Exception {
- // no longs in FastR
- }
-
- @Override
- public void testPlusWithLong() throws Exception {
- // no longs in FastR
- }
-
- @Override
- public void testPrimitiveReturnTypeLong() throws Exception {
- // no longs in FastR
- }
-
- @Override
- public void testPlusWithBytes() throws Exception {
- // no bytes in FastR
- }
-
- @Override
- public void testPlusWithOneNegativeByte() throws Exception {
- // no bytes in FastR
- }
-
- @Override
- public void testPlusWithShort() throws Exception {
- // no shorts in FastR
- }
-
- @Override
- public void testPrimitiveReturnTypeShort() throws Exception {
- // no shorts in FastR
- }
-
- @Override
- public void testGlobalObjectIsAccessible() throws Exception {
- // no global object in fastr.
- }
-
- @Override
- public void testNullCanBeCastToAnything() throws Exception {
- // TODO support
- }
-
- @Override
- public void multiplyTwoVariables() throws Exception {
- // TODO support
- }
-
- @Override
- public void testEvaluateSource() throws Exception {
- // TODO support
- }
-
- @Override
- public void testCopyComplexNumbersA() {
- // TODO determine the semantics of assignments to a[i]$b
- }
-
- @Override
- public void testCopyComplexNumbersB() {
- // TODO determine the semantics of assignments to a[i]$b
- }
-
- @Override
- public void testCopyStructuredComplexToComplexNumbersA() {
- // TODO determine the semantics of assignments to a[i]$b
- }
-
- @Override
- public void testAddComplexNumbers() {
- // TODO determine the semantics of assignments to a[i]$b
- }
-
- @Override
- public void testWriteToObjectWithElement() throws Exception {
- // TODO mismatch between mutable and immutable data types
- }
-
- @Override
- public void testObjectWithValueAndAddProperty() throws Exception {
- // TODO mismatch between mutable and immutable data types
- }
-
- @Override
- public void testCallMethod() throws Exception {
- // R does not have method calls
- }
-
- @Override
- public String multiplyCode(String firstName, String secondName) {
- return firstName + '*' + secondName;
- }
-
- @Override
- protected String[] metaObjects() {
- return new String[]{
- "intValue", "intType", "intVectorValue", "intType", "intSequenceValue", "intType",
- "doubleValue", "doubleType", "doubleVectorValue", "doubleType", "doubleSequenceValue", "doubleType",
- "functionValue", "functionType",
- "builtinFunctionValue", "builtinFunctionType"};
- }
-
- @Override
- protected String valueWithSource() {
- return "valueWithSource";
- }
-
- @Override
- protected String objectWithKeyInfoAttributes() {
- return "objectWithKeyInfoAttributes";
- }
+public class FastRTckTest /* extends TruffleTCK */ {
+
+ // disabled
+
+ // @Test
+ // public void testVerifyPresence() {
+ // PolyglotEngine vm = PolyglotEngine.newBuilder().build();
+ // assertTrue("Our language is present", vm.getLanguages().containsKey("text/x-r"));
+ // }
+ //
+// // @formatter:off
+// private static final String INITIALIZATION_CODE =
+// "fourtyTwo <- function() {\n" +
+// " 42L\n" +
+// "}\n" +
+// "plus <- function(a, b) {\n" +
+// " a + b\n" +
+// "}\n" +
+// "identity <- function(a) {\n" +
+// " a\n" +
+// "}\n" +
+// "apply <- function(f) {\n" +
+// " f(18L, 32L) + 10L\n" +
+// "}\n" +
+// "null <- function() {\n" +
+// " NULL\n" +
+// "}\n" +
+// "counter <- 0L\n" +
+// "count <- function() {\n" +
+// " counter <<- counter + 1L\n" +
+// "}\n" +
+// "complexAdd <- function(a, b) {\n" +
+// " a$imaginary <- a$imaginary + b$imaginary\n" +
+// " a$real <- a$real + b$real\n" +
+// "}\n" +
+// "countUpWhile <- function(fn) {\n" +
+// " counter <- 0\n" +
+// " while (T) {\n" +
+// " if (!fn(counter)) {\n" +
+// " break\n" +
+// " }\n" +
+// " counter <- counter + 1\n" +
+// " }\n" +
+// "}\n" +
+// "complexSumReal <- function(a) {\n" +
+// " sum <- 0\n" +
+// " for (i in 1:length(a)) {\n" +
+// " sum <- sum + a[i]$real\n" +
+// " }\n" +
+// " return(sum)\n" +
+// "}\n" +
+// "complexCopy <- function(a, b) {\n" +
+// " for (i in 0:(length(b)-1)) {\n" +
+// " a[i]$real <- b[i]$real\n" +
+// " a[i]$imaginary <- b[i]$imaginary\n" +
+// " }\n" +
+// "}\n" +
+// "valuesObject <- function() {\n" +
+// " list('byteValue'=0L, 'shortValue'=0L, 'intValue'=0L, 'longValue'=0L, 'floatValue'=0, 'doubleValue'=0, 'charValue'=48L, 'stringValue'='', 'booleanValue'=FALSE)\n" +
+// "}\n" +
+// "addNumbersFunction <- function() {\n" +
+// " function(a, b) a + b\n" +
+// "}\n" +
+// "objectWithValueProperty <- function() {\n" +
+// " list(value = 42L)\n" +
+// "}\n" +
+// "callFunction <- function(f) {\n" +
+// " f(41L, 42L)\n" +
+// "}\n" +
+// "objectWithElement <- function(f) {\n" +
+// " c(0L, 0L, 42L, 0L)\n" +
+// "}\n" +
+// "objectWithValueAndAddProperty <- function(f) {\n" +
+// " e <- new.env()\n" +
+// " e$value <- 0L\n" +
+// " e$add <- function(inc) { e$value <- e$value + inc; e$value }\n" +
+// " e\n" +
+// "}\n" +
+// "callMethod <- function(f) {\n" +
+// " f(41L, 42L)\n" +
+// "}\n" +
+// "readElementFromForeign <- function(f) {\n" +
+// " f[[3L]]\n" +
+// "}\n" +
+// "writeElementToForeign <- function(f) {\n" +
+// " f[[3L]] <- 42L\n" +
+// "}\n" +
+// "readValueFromForeign <- function(o) {\n" +
+// " o$value\n" +
+// "}\n" +
+// "writeValueToForeign <- function(o) {\n" +
+// " o$value <- 42L\n" +
+// "}\n" +
+// "getSizeOfForeign <- function(o) {\n" +
+// " length(o)\n" +
+// "}\n" +
+// "isNullOfForeign <- function(o) {\n" +
+// " .fastr.interop.toBoolean(is.external.null(o))\n" +
+// "}\n" +
+// "hasSizeOfForeign <- function(o) {\n" +
+// " .fastr.interop.toBoolean(is.external.array(o))\n" +
+// "}\n" +
+// "isExecutableOfForeign <- function(o) {\n" +
+// " .fastr.interop.toBoolean(is.external.executable(o))\n" +
+// "}\n" +
+// "intValue <- function() 42L\n" +
+// "intVectorValue <- function() c(42L, 40L)\n" +
+// "intSequenceValue <- function() 42:50\n" +
+// "intType <- function() 'integer'\n" +
+// "doubleValue <- function() 42.1\n" +
+// "doubleVectorValue <- function() c(42.1, 40)\n" +
+// "doubleSequenceValue <- function() 42.1:50\n" +
+// "doubleType <- function() 'double'\n" +
+// "functionValue <- function() { function(x) 1 }\n" +
+// "functionType <- function() 'closure'\n" +
+// "builtinFunctionValue <- function() `+`\n" +
+// "builtinFunctionType <- function() 'builtin'\n" +
+// "valueWithSource <- function() intValue\n" +
+// "objectWithKeyInfoAttributes <- function() { list(rw=1, invocable=function(){ 'invoked' }) }\n" +
+// "for (name in ls()) export(name, get(name))\n";
+// // @formatter:on
+ //
+ // private static final Source INITIALIZATION =
+ // Source.newBuilder(INITIALIZATION_CODE).name("TCK").mimeType(RRuntime.R_APP_MIME).build();
+ //
+ // @Override
+ // protected PolyglotEngine prepareVM(Builder builder) throws Exception {
+ // PolyglotEngine engine = builder.build();
+ // engine.eval(INITIALIZATION).get();
+ // return engine;
+ // }
+ //
+ // @Override
+ // protected String mimeType() {
+ // return "text/x-r";
+ // }
+ //
+ // @Override
+ // protected String fourtyTwo() {
+ // return "fourtyTwo";
+ // }
+ //
+ // @Override
+ // protected String plusInt() {
+ // return "plus";
+ // }
+ //
+ // @Override
+ // protected String identity() {
+ // return "identity";
+ // }
+ //
+ // @Override
+ // protected String returnsNull() {
+ // return "null";
+ // }
+ //
+ // @Override
+ // protected String applyNumbers() {
+ // return "apply";
+ // }
+ //
+ // @Override
+ // protected String countInvocations() {
+ // return "count";
+ // }
+ //
+ // @Override
+ // protected String complexAdd() {
+ // return "complexAdd";
+ // }
+ //
+ // @Override
+ // protected String complexSumReal() {
+ // return "complexSumReal";
+ // }
+ //
+ // @Override
+ // protected String complexCopy() {
+ // return "complexCopy";
+ // }
+ //
+ // @Override
+ // protected String invalidCode() {
+ // return "main <- function() {\n";
+ // }
+ //
+ // @Override
+ // protected String valuesObject() {
+ // return "valuesObject";
+ // }
+ //
+ // @Override
+ // protected String countUpWhile() {
+ // return "countUpWhile";
+ // }
+ //
+ // @Override
+ // protected String addToArray() {
+ // // TODO not yet supported
+ // return null;
+ // }
+ //
+ // @Override
+ // protected String getSizeOfForeign() {
+ // return "getSizeOfForeign";
+ // }
+ //
+ // @Override
+ // protected String isNullForeign() {
+ // return "isNullOfForeign";
+ // }
+ //
+ // @Override
+ // protected String hasSizeOfForeign() {
+ // return "hasSizeOfForeign";
+ // }
+ //
+ // @Override
+ // protected String isExecutableOfForeign() {
+ // return "isExecutableOfForeign";
+ // }
+ //
+ // @Override
+ // protected String readValueFromForeign() {
+ // return "readValueFromForeign";
+ // }
+ //
+ // @Override
+ // protected String writeValueToForeign() {
+ // return "writeValueToForeign";
+ // }
+ //
+ // @Override
+ // protected String callFunction() {
+ // return "callFunction";
+ // }
+ //
+ // @Override
+ // protected String objectWithElement() {
+ // return "objectWithElement";
+ // }
+ //
+ // @Override
+ // protected String objectWithValueAndAddProperty() {
+ // return "objectWithValueAndAddProperty";
+ // }
+ //
+ // @Override
+ // protected String callMethod() {
+ // return "callMethod";
+ // }
+ //
+ // @Override
+ // protected String readElementFromForeign() {
+ // return "readElementFromForeign";
+ // }
+ //
+ // @Override
+ // protected String writeElementToForeign() {
+ // return "writeElementToForeign";
+ // }
+ //
+ // @Override
+ // protected String objectWithValueProperty() {
+ // return "objectWithValueProperty";
+ // }
+ //
+ // @Override
+ // protected String functionAddNumbers() {
+ // return "addNumbersFunction";
+ // }
+ //
+ // @Override
+ // public void readWriteBooleanValue() throws Exception {
+ // // TODO not yet supported
+ // }
+ //
+ // @Override
+ // public void readWriteCharValue() throws Exception {
+ // // TODO not yet supported
+ // }
+ //
+ // @Override
+ // public void readWriteShortValue() throws Exception {
+ // // TODO not yet supported
+ // }
+ //
+ // @Override
+ // public void readWriteByteValue() throws Exception {
+ // // TODO not yet supported
+ // }
+ //
+ // @Override
+ // public void readWriteFloatValue() throws Exception {
+ // // TODO not yet supported
+ // }
+ //
+ // @Override
+ // public void testAddComplexNumbersWithMethod() throws Exception {
+ // // TODO not yet supported
+ // }
+ //
+ // @Override
+ // @Test
+ // public void testNull() {
+ // // disabled because we don't provide a Java "null" value in R
+ // }
+ //
+ // @Override
+ // @Test
+ // public void testNullInCompoundObject() {
+ // // disabled because we don't provide a Java "null" value in R
+ // }
+ //
+ // @Override
+ // @Test
+ // public void testPlusWithIntsOnCompoundObject() throws Exception {
+ // // TODO support this test case.
+ // }
+ //
+ // @Override
+ // @Test
+ // public void testMaxOrMinValue() throws Exception {
+ // // TODO support this test case.
+ // }
+ //
+ // @Override
+ // @Test
+ // public void testMaxOrMinValue2() throws Exception {
+ // // TODO support this test case.
+ // }
+ //
+ // @Override
+ // @Test
+ // public void testFortyTwoWithCompoundObject() throws Exception {
+ // // TODO support this test case.
+ // }
+ //
+ // @Override
+ // public void testPlusWithFloat() throws Exception {
+ // // no floats in FastR
+ // }
+ //
+ // @Override
+ // public void testPrimitiveReturnTypeFloat() throws Exception {
+ // // no floats in FastR
+ // }
+ //
+ // @Override
+ // public void testPlusWithOneNegativeShort() throws Exception {
+ // // no floats in FastR
+ // }
+ //
+ // @Override
+ // public void testPlusWithDoubleFloatSameAsInt() throws Exception {
+ // // no floats in FastR
+ // }
+ //
+ // @Override
+ // public void testPlusWithLongMaxIntMinInt() throws Exception {
+ // // no longs in FastR
+ // }
+ //
+ // @Override
+ // public void testPlusWithLong() throws Exception {
+ // // no longs in FastR
+ // }
+ //
+ // @Override
+ // public void testPrimitiveReturnTypeLong() throws Exception {
+ // // no longs in FastR
+ // }
+ //
+ // @Override
+ // public void testPlusWithBytes() throws Exception {
+ // // no bytes in FastR
+ // }
+ //
+ // @Override
+ // public void testPlusWithOneNegativeByte() throws Exception {
+ // // no bytes in FastR
+ // }
+ //
+ // @Override
+ // public void testPlusWithShort() throws Exception {
+ // // no shorts in FastR
+ // }
+ //
+ // @Override
+ // public void testPrimitiveReturnTypeShort() throws Exception {
+ // // no shorts in FastR
+ // }
+ //
+ // @Override
+ // public void testGlobalObjectIsAccessible() throws Exception {
+ // // no global object in fastr.
+ // }
+ //
+ // @Override
+ // public void testNullCanBeCastToAnything() throws Exception {
+ // // TODO support
+ // }
+ //
+ // @Override
+ // public void multiplyTwoVariables() throws Exception {
+ // // TODO support
+ // }
+ //
+ // @Override
+ // public void testEvaluateSource() throws Exception {
+ // // TODO support
+ // }
+ //
+ // @Override
+ // public void testCopyComplexNumbersA() {
+ // // TODO determine the semantics of assignments to a[i]$b
+ // }
+ //
+ // @Override
+ // public void testCopyComplexNumbersB() {
+ // // TODO determine the semantics of assignments to a[i]$b
+ // }
+ //
+ // @Override
+ // public void testCopyStructuredComplexToComplexNumbersA() {
+ // // TODO determine the semantics of assignments to a[i]$b
+ // }
+ //
+ // @Override
+ // public void testAddComplexNumbers() {
+ // // TODO determine the semantics of assignments to a[i]$b
+ // }
+ //
+ // @Override
+ // public void testWriteToObjectWithElement() throws Exception {
+ // // TODO mismatch between mutable and immutable data types
+ // }
+ //
+ // @Override
+ // public void testObjectWithValueAndAddProperty() throws Exception {
+ // // TODO mismatch between mutable and immutable data types
+ // }
+ //
+ // @Override
+ // public void testCallMethod() throws Exception {
+ // // R does not have method calls
+ // }
+ //
+ // @Override
+ // public String multiplyCode(String firstName, String secondName) {
+ // return firstName + '*' + secondName;
+ // }
+ //
+ // @Override
+ // protected String[] metaObjects() {
+ // return new String[]{
+ // "intValue", "intType", "intVectorValue", "intType", "intSequenceValue", "intType",
+ // "doubleValue", "doubleType", "doubleVectorValue", "doubleType", "doubleSequenceValue",
+ // "doubleType",
+ // "functionValue", "functionType",
+ // "builtinFunctionValue", "builtinFunctionType"};
+ // }
+ //
+ // @Override
+ // protected String valueWithSource() {
+ // return "valueWithSource";
+ // }
+ //
+ // @Override
+ // protected String objectWithKeyInfoAttributes() {
+ // return "objectWithKeyInfoAttributes";
+ // }
}
--
GitLab