Skip to content
Snippets Groups Projects
Commit b53d53b1 authored by Tomas Stupka's avatar Tomas Stupka
Browse files

disabled FastrTckTest

parent a5f16732
No related branches found
No related tags found
No related merge requests found
Hide whitespace changes
Inline Side-by-side
com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/tck/FastRTckTest.java
+ 473
− 478
View file @ b53d53b1
......@@ -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";
// }
}
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment