From 0e63ceb05554a4ec98cf9cfaeab8611ed5c3c79f Mon Sep 17 00:00:00 2001
From: Mick Jordan <mick.jordan@oracle.com>
Date: Mon, 20 Feb 2017 18:02:35 -0800
Subject: [PATCH] [GR-378] Create an internal package repo for package tests

---
 .gitignore                                    |    6 +-
 ci.hocon                                      |    9 +
 .../r/engine/shell/RscriptCommand.java        |   12 +-
 .../src/com/oracle/truffle/r/runtime/DCF.java |    7 +-
 .../oracle/truffle/r/runtime/REnvVars.java    |   12 +-
 .../truffle/r/runtime/RStartParams.java       |   12 +-
 com.oracle.truffle.r.test.native/Makefile     |    6 +-
 .../packages/Makefile                         |    4 +-
 .../packages/PACKAGES                         |   17 +
 .../packages/Rutils/template.R                |   76 +
 .../packages/package.mk                       |   30 +-
 .../packages/pkg-filelist                     |    3 +
 .../packages/testrffi/testrffi/DESCRIPTION    |    7 +-
 .../testrffi/testrffi/man/testrffi-package.Rd |   13 +-
 .../testrffi/testrffi/man/testrffi.Rd         |   35 -
 .../packages/testrffi/testrffi/src/init.c     |    6 +
 .../testrffi/testrffi/tests/asTests.Rin       |    6 +
 .../testrffi/testrffi/tests/coerceTests.Rin   |   42 +
 .../testrffi/testrffi/tests/simpleTests.R     |   24 +
 .../packages/vanilla/vanilla/man/vanilla.Rd   |   35 -
 .../initial.package.blacklist                 |    0
 .../ok.packages                               |    0
 .../r/install.package.R                       |    5 +-
 .../r/install.packages.R                      |  108 +-
 .../r/test.package.R                          |    2 +-
 .../recommended                               |    0
 .../top100                                    |    0
 .../top100test                                |    0
 .../truffle/r/test/ExpectedTestOutput.test    | 1283 -----------------
 .../truffle/r/test/rffi/TestRFFIPackage.java  |  219 ---
 .../r/test/rffi/TestRFFIPackageCoercions.java |   90 --
 .../r/test/rpackages/TestRPackages.java       |  206 ---
 .../rpackages/TestRecommendedPackages.java    |   90 --
 .../r/test/rpackages/TestS4TestPackage.java   |   69 -
 .../r/test/rpackages/TestVanillaPackage.java  |   63 -
 documentation/dev/testing.md                  |   41 +-
 mx.fastr/mx_fastr.py                          |   12 +-
 mx.fastr/mx_fastr_dists.py                    |   15 +-
 mx.fastr/mx_fastr_pkgs.py                     |  119 +-
 mx.fastr/suite.py                             |    2 +-
 40 files changed, 445 insertions(+), 2241 deletions(-)
 create mode 100644 com.oracle.truffle.r.test.native/packages/PACKAGES
 create mode 100644 com.oracle.truffle.r.test.native/packages/Rutils/template.R
 create mode 100644 com.oracle.truffle.r.test.native/packages/pkg-filelist
 delete mode 100644 com.oracle.truffle.r.test.native/packages/testrffi/testrffi/man/testrffi.Rd
 create mode 100644 com.oracle.truffle.r.test.native/packages/testrffi/testrffi/tests/asTests.Rin
 create mode 100644 com.oracle.truffle.r.test.native/packages/testrffi/testrffi/tests/coerceTests.Rin
 create mode 100644 com.oracle.truffle.r.test.native/packages/testrffi/testrffi/tests/simpleTests.R
 delete mode 100644 com.oracle.truffle.r.test.native/packages/vanilla/vanilla/man/vanilla.Rd
 rename {com.oracle.truffle.r.test.cran => com.oracle.truffle.r.test.packages}/initial.package.blacklist (100%)
 rename {com.oracle.truffle.r.test.cran => com.oracle.truffle.r.test.packages}/ok.packages (100%)
 rename {com.oracle.truffle.r.test.cran => com.oracle.truffle.r.test.packages}/r/install.package.R (93%)
 rename com.oracle.truffle.r.test.cran/r/install.cran.packages.R => com.oracle.truffle.r.test.packages/r/install.packages.R (90%)
 rename {com.oracle.truffle.r.test.cran => com.oracle.truffle.r.test.packages}/r/test.package.R (95%)
 rename {com.oracle.truffle.r.test.cran => com.oracle.truffle.r.test.packages}/recommended (100%)
 rename {com.oracle.truffle.r.test.cran => com.oracle.truffle.r.test.packages}/top100 (100%)
 rename {com.oracle.truffle.r.test.cran => com.oracle.truffle.r.test.packages}/top100test (100%)
 delete mode 100644 com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/rffi/TestRFFIPackage.java
 delete mode 100644 com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/rffi/TestRFFIPackageCoercions.java
 delete mode 100644 com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/rpackages/TestRPackages.java
 delete mode 100644 com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/rpackages/TestRecommendedPackages.java
 delete mode 100644 com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/rpackages/TestS4TestPackage.java
 delete mode 100644 com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/rpackages/TestVanillaPackage.java

diff --git a/.gitignore b/.gitignore
index 9c8ffbab24..fa2967697f 100644
--- a/.gitignore
+++ b/.gitignore
@@ -32,6 +32,7 @@
 /com.oracle.truffle.r.native/fficall/jniboot.done
 /com.oracle.truffle.r.native.recommended/install.recommended
 /com.oracle.truffle.r.test.native/packages/copy_recommended
+/com.oracle.truffle.r.test.native/packages/repo/*
 /com.oracle.truffle.r.test.native/packages/recommended
 /com.oracle.truffle.r.test.native/packages/*/lib/*
 /com.oracle.truffle.r.test.native/urand/lib/liburand.so
@@ -127,10 +128,13 @@ R.tokens
 findbugs.html
 test_gnur
 test_fastr
-lib.install.cran*
+lib.install.packages*
 package.blacklist
 *.ll
 *.su
 *.bc
 com.oracle.truffle.r.test.native/embedded/lib
 bench-results.json
+com.oracle.truffle.r.test.native/packages/testrffi/testrffi/tests/asTests.R
+com.oracle.truffle.r.test.native/packages/testrffi/testrffi/tests/coerceTests.R
+com.oracle.truffle.r.native/version.built
diff --git a/ci.hocon b/ci.hocon
index 752f2f46a7..94646dd855 100644
--- a/ci.hocon
+++ b/ci.hocon
@@ -134,6 +134,14 @@ rbcheck : ${common} {
   ]
 }
 
+internalPkgtest: ${common} {
+  run : [
+    ["mx", "build"]
+    ["mx", "pkgtest", "--repos", "FASTR", "--pkg-filelist", "com.oracle.truffle.r.test.native/packages/pkg-filelist"]
+  ]
+  logs: ${common.logs}
+}
+
 # The standard set of gate builds. N.B. the style/builtin checks are only run on Linux as they are not OS-dependent.
 
 builds = [
@@ -142,4 +150,5 @@ builds = [
   ${gateTestDarwin}           {capabilities : [darwin, amd64], targets : [gate, post-merge], name: "gate-test-darwin-amd64"}
   ${gateStyle}                {capabilities : [linux, amd64],  targets : [gate, post-merge], name: "gate-style-linux-amd64"}
   ${rbcheck}                  {capabilities : [linux, amd64],  targets : [gate, post-merge], name: "gate-rbcheck-linux-amd64"}
+  ${internalPkgtest}          {capabilities : [linux, amd64],  targets : [gate, post-merge], name: "gate-internal-pkgtest-linux-amd64"}
 ]
diff --git a/com.oracle.truffle.r.engine/src/com/oracle/truffle/r/engine/shell/RscriptCommand.java b/com.oracle.truffle.r.engine/src/com/oracle/truffle/r/engine/shell/RscriptCommand.java
index 1af3eff3eb..03ffb7af58 100644
--- a/com.oracle.truffle.r.engine/src/com/oracle/truffle/r/engine/shell/RscriptCommand.java
+++ b/com.oracle.truffle.r.engine/src/com/oracle/truffle/r/engine/shell/RscriptCommand.java
@@ -1,5 +1,5 @@
 /*
- * Copyright (c) 2013, 2016, Oracle and/or its affiliates. All rights reserved.
+ * Copyright (c) 2013, 2017, Oracle and/or its affiliates. All rights reserved.
  * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
  *
  * This code is free software; you can redistribute it and/or modify it
@@ -22,6 +22,7 @@
  */
 package com.oracle.truffle.r.engine.shell;
 
+import static com.oracle.truffle.r.runtime.RCmdOptions.RCmdOption.DEFAULT_PACKAGES;
 import static com.oracle.truffle.r.runtime.RCmdOptions.RCmdOption.EXPR;
 import static com.oracle.truffle.r.runtime.RCmdOptions.RCmdOption.FILE;
 import static com.oracle.truffle.r.runtime.RCmdOptions.RCmdOption.HELP;
@@ -43,7 +44,6 @@ import com.oracle.truffle.r.runtime.RVersionNumber;
  * to R, as evidenced by the script {@code print(commandArgs())}. We don't implement it quite that
  * way but the effect is similar.
  *
- * TODO support {@code --default-packages} option.
  */
 public class RscriptCommand {
     // CheckStyle: stop system..print check
@@ -77,6 +77,14 @@ public class RscriptCommand {
                 options.setValue(FILE, arguments[firstNonOptionArgIndex]);
             }
         }
+        String defaultPackagesArg = options.getString(DEFAULT_PACKAGES);
+        String defaultPackagesEnv = System.getenv("R_DEFAULT_PACKAGES");
+        if (defaultPackagesArg == null && defaultPackagesEnv == null) {
+            defaultPackagesArg = "datasets,utils,grDevices,graphics,stats";
+        }
+        if (defaultPackagesEnv == null) {
+            options.setValue(DEFAULT_PACKAGES, defaultPackagesArg);
+        }
         // copy up to non-option args
         int rx = 1;
         while (rx < firstNonOptionArgIndex) {
diff --git a/com.oracle.truffle.r.runtime/src/com/oracle/truffle/r/runtime/DCF.java b/com.oracle.truffle.r.runtime/src/com/oracle/truffle/r/runtime/DCF.java
index 5f5fa9f83c..48069f9e2f 100644
--- a/com.oracle.truffle.r.runtime/src/com/oracle/truffle/r/runtime/DCF.java
+++ b/com.oracle.truffle.r.runtime/src/com/oracle/truffle/r/runtime/DCF.java
@@ -70,8 +70,11 @@ public class DCF {
                     fieldContent = new StringBuffer();
                 }
                 if (endOfParagraph(line)) {
-                    result.paragraphs.add(fields);
-                    fields = new Fields();
+                    fieldName = null;
+                    if (!fields.fieldMap.isEmpty()) {
+                        result.paragraphs.add(fields);
+                        fields = new Fields();
+                    }
                     continue;
                 }
                 int ix = line.indexOf(':');
diff --git a/com.oracle.truffle.r.runtime/src/com/oracle/truffle/r/runtime/REnvVars.java b/com.oracle.truffle.r.runtime/src/com/oracle/truffle/r/runtime/REnvVars.java
index 86e5fd3060..dac1239411 100644
--- a/com.oracle.truffle.r.runtime/src/com/oracle/truffle/r/runtime/REnvVars.java
+++ b/com.oracle.truffle.r.runtime/src/com/oracle/truffle/r/runtime/REnvVars.java
@@ -22,6 +22,8 @@
  */
 package com.oracle.truffle.r.runtime;
 
+import static com.oracle.truffle.r.runtime.RCmdOptions.RCmdOption.DEFAULT_PACKAGES;
+
 import java.io.BufferedReader;
 import java.io.File;
 import java.io.FileReader;
@@ -57,7 +59,13 @@ public final class REnvVars implements RContext.ContextState {
     @Override
     public RContext.ContextState initialize(RContext context) {
         // explicit environment settings in nested contexts must be installed first
-        checkExplciitEnvSettings(context);
+        checkExplicitEnvSettings(context);
+        RCmdOptions cmdOptions = context.getStartParams().getRCmdOptions();
+        // If running Rscript, R_DEFAULT_PACKAGES may need to be set
+        String defaultPackages = cmdOptions.getString(DEFAULT_PACKAGES);
+        if (defaultPackages != null) {
+            envVars.put("R_DEFAULT_PACKAGES", defaultPackages);
+        }
         // set the standard vars defined by R
         checkRHome();
         // Always read the system file
@@ -119,7 +127,7 @@ public final class REnvVars implements RContext.ContextState {
         return new REnvVars();
     }
 
-    private void checkExplciitEnvSettings(RContext context) {
+    private void checkExplicitEnvSettings(RContext context) {
         String[] envs = context.getEnvSettings();
         if (envs == null || envs.length == 0) {
             return;
diff --git a/com.oracle.truffle.r.runtime/src/com/oracle/truffle/r/runtime/RStartParams.java b/com.oracle.truffle.r.runtime/src/com/oracle/truffle/r/runtime/RStartParams.java
index 854b3c93b6..cdadca6a12 100644
--- a/com.oracle.truffle.r.runtime/src/com/oracle/truffle/r/runtime/RStartParams.java
+++ b/com.oracle.truffle.r.runtime/src/com/oracle/truffle/r/runtime/RStartParams.java
@@ -86,9 +86,9 @@ public class RStartParams {
     private boolean noReadline;
 
     /**
-     * The original command line arguments that were parsed by {@link RCmdOptions}.
+     * The result from parsing the command line options.
      */
-    private final String[] arguments;
+    private final RCmdOptions cmdOptions;
 
     /**
      * Indicates that FastR is running embedded.
@@ -96,7 +96,7 @@ public class RStartParams {
     private boolean embedded;
 
     public RStartParams(RCmdOptions options, boolean embedded) {
-        this.arguments = options.getArguments();
+        this.cmdOptions = options;
         this.embedded = embedded;
         if (options.getBoolean(VERBOSE)) {
             this.verbose = true;
@@ -246,8 +246,12 @@ public class RStartParams {
         return this.noReadline;
     }
 
+    public RCmdOptions getRCmdOptions() {
+        return cmdOptions;
+    }
+
     public String[] getArguments() {
-        return arguments;
+        return cmdOptions.getArguments();
     }
 
     public void setEmbedded() {
diff --git a/com.oracle.truffle.r.test.native/Makefile b/com.oracle.truffle.r.test.native/Makefile
index d996da3e45..9c3c1b9ffc 100644
--- a/com.oracle.truffle.r.test.native/Makefile
+++ b/com.oracle.truffle.r.test.native/Makefile
@@ -1,5 +1,5 @@
 #
-# Copyright (c) 2014, 2016, Oracle and/or its affiliates. All rights reserved.
+# Copyright (c) 2014, 2017, Oracle and/or its affiliates. All rights reserved.
 # DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
 #
 # This code is free software; you can redistribute it and/or modify it
@@ -26,9 +26,12 @@
 export TOPDIR = $(CURDIR)
 # all output goes into the com.oracle.truffle.r.test project for packaging into a single distribution
 export MX_OUTPUT_DIR = $(abspath $(TOPDIR)/../mxbuild/com.oracle.truffle.r.test/bin/com/oracle/truffle/r/test)
+export REPO_DIR := $(TOPDIR)/packages/repo/src/contrib
 OSNAME := $(shell uname)
 
 all:
+	mkdir -p $(REPO_DIR)
+	cp packages/PACKAGES $(REPO_DIR)
 	$(MAKE) -C urand
 	$(MAKE) -C packages
 ifneq ($(OSNAME), SunOS)
@@ -41,3 +44,4 @@ clean:
 ifneq ($(OSNAME), SunOS)
 	$(MAKE) -C embedded clean
 endif
+	rm -f $(REPO_DIR)/*
diff --git a/com.oracle.truffle.r.test.native/packages/Makefile b/com.oracle.truffle.r.test.native/packages/Makefile
index 1ddf9d6a2f..501b4d81f6 100644
--- a/com.oracle.truffle.r.test.native/packages/Makefile
+++ b/com.oracle.truffle.r.test.native/packages/Makefile
@@ -1,5 +1,5 @@
 #
-# Copyright (c) 2014, 2016, Oracle and/or its affiliates. All rights reserved.
+# Copyright (c) 2014, 2017, Oracle and/or its affiliates. All rights reserved.
 # DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
 #
 # This code is free software; you can redistribute it and/or modify it
@@ -26,7 +26,7 @@
 SUBDIRS = testrffi vanilla tests4
 NATIVE_PROJECT = $(subst test.native,native,$(TOPDIR))
 R_VERSION := $(notdir $(wildcard $(NATIVE_PROJECT)/gnur/R-*))
-GNUR_HOME := $(NATIVE_PROJECT)/gnur/$(R_VERSION)
+export GNUR_HOME := $(NATIVE_PROJECT)/gnur/$(R_VERSION)
 GNUR_RECOMMENDED := $(wildcard $(GNUR_HOME)/src/library/Recommended/*.tgz)
 
 # We have to copy the GNU R recommended packages into this project
diff --git a/com.oracle.truffle.r.test.native/packages/PACKAGES b/com.oracle.truffle.r.test.native/packages/PACKAGES
new file mode 100644
index 0000000000..aa815aabd4
--- /dev/null
+++ b/com.oracle.truffle.r.test.native/packages/PACKAGES
@@ -0,0 +1,17 @@
+Package: testrffi
+Version: 1.0
+Depends: R
+License: GPL-2
+NeedsCompilation: yes
+
+Package: tests4
+Version: 1.0
+Depends: R
+License: GPL-2
+NeedsCompilation: no
+
+Package: vanilla
+Version: 1.0
+Depends: R
+License: GPL-2
+NeedsCompilation: no
diff --git a/com.oracle.truffle.r.test.native/packages/Rutils/template.R b/com.oracle.truffle.r.test.native/packages/Rutils/template.R
new file mode 100644
index 0000000000..33c6e2b15b
--- /dev/null
+++ b/com.oracle.truffle.r.test.native/packages/Rutils/template.R
@@ -0,0 +1,76 @@
+#
+# Copyright (c) 2017, 2017, Oracle and/or its affiliates. All rights reserved.
+# DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
+#
+# This code is free software; you can redistribute it and/or modify it
+# under the terms of the GNU General Public License version 2 only, as
+# published by the Free Software Foundation.
+#
+# This code is distributed in the hope that it will be useful, but WITHOUT
+# ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
+# FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public License
+# version 2 for more details (a copy is included in the LICENSE file that
+# accompanied this code).
+#
+# You should have received a copy of the GNU General Public License version
+# 2 along with this work; if not, write to the Free Software Foundation,
+# Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA.
+#
+# Please contact Oracle, 500 Oracle Parkway, Redwood Shores, CA 94065 USA
+# or visit www.oracle.com if you need additional information or have any
+# questions.
+#
+
+expandTemplate <- function(template, ...) {
+	resultLength <- 1
+	params <- list(...)
+	for (i in seq_along(params)) {
+		resultLength <- resultLength * length(params[[i]])
+	}
+	index <- 1
+	result <- character(resultLength)
+	positions <- rep(1, length(params))
+	while (index <= resultLength) {
+		currentString <- template
+		for (i in seq_along(params)) {
+			currentPos <- positions[[i]]
+			currentString <- sub(paste0("%", i - 1), params[[i]][[currentPos]], currentString)
+		}
+		result[[index]] <- currentString
+		index <- index + 1
+
+		for (i in seq_along(params)) {
+			positions[[i]] <- positions[[i]] + 1
+			if (positions[[i]] >= length(params[[i]])) {
+				positions[[i]] <- 1
+			} else {
+				break
+			}
+		}
+	}
+	result
+}
+
+initialTest <- function(libname, template, ...) {
+	tests <- expandTemplate(template, ...)
+	Rfile <- sub("\\.Rin$", ".R", commandArgs(T))
+	sink(Rfile)
+	requireLibrary(libname)
+	outputTests(tests)
+}
+
+extraTest <- function(template, ...) {
+	tests <- expandTemplate(template, ...)
+	outputTests(tests)
+}
+
+outputTests <- function(tests) {
+	# errors must not cause halt, so wrap in try
+	for (i in seq_along(tests)) {
+		cat(paste0("try(", tests[[i]], ")\n"))
+	}
+}
+
+requireLibrary <- function(libname) {
+	cat(paste0("stopifnot(require(", libname, "))\n"))
+}
diff --git a/com.oracle.truffle.r.test.native/packages/package.mk b/com.oracle.truffle.r.test.native/packages/package.mk
index c7e7565abc..e98e4d3f6d 100644
--- a/com.oracle.truffle.r.test.native/packages/package.mk
+++ b/com.oracle.truffle.r.test.native/packages/package.mk
@@ -1,5 +1,5 @@
 #
-# Copyright (c) 2015, 2016, Oracle and/or its affiliates. All rights reserved.
+# Copyright (c) 2015, 2017, Oracle and/or its affiliates. All rights reserved.
 # DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
 #
 # This code is free software; you can redistribute it and/or modify it
@@ -23,19 +23,35 @@
 
 # This "builds" a test package, resulting in a tar file,
 # which is then loaded by the unit tests in TestRPackages.
+# It uses R CMD build ...
+# Currently we can't use FastR for this step as FastR isn't completely built
+# when this is built (it's part of the build)
+# The resulting package is stored in the "repo/src/contrib" folder
+
+# test packages may include .Rin files that are preprocessed to create an
+# actual test file. Unfortunately while R CND check will do this, tools::testInstalledPackage
+# does not (surely a bug). So we generate the files here.
 
 .PHONY: all
 
-PKG_FILES = $(shell find $(PACKAGE)/ -type f -name '*')
+PKG_FILES = $(shell find $(PACKAGE) -type f -name '*')
+
+PKG_TAR = $(REPO_DIR)/$(PACKAGE)_1.0.tar.gz
 
-PKG_TAR = lib/$(PACKAGE).tar
+RIN_FILES = $(shell find $(PACKAGE) -type f -name '*.Rin')
+RIN_R_FILES = $(subst .Rin,.R, $(RIN_FILES))
+TEMPLATE_FILE := ../Rutils/template.R
 
-all: $(PKG_TAR)
+all: $(RIN_R_FILES) $(PKG_TAR)
 
 $(PKG_TAR): $(PKG_FILES)
-	mkdir -p lib
-	tar cf $(PKG_TAR) $(PACKAGE)
+	(cd $(REPO_DIR); TZDIR=/usr/share/zoneinfo/ $(GNUR_HOME)/bin/R CMD build $(CURDIR)/$(PACKAGE))
+
+$(RIN_R_FILES): $(RIN_FILES)
+	for rf in $(RIN_FILES); do \
+		TEMPLATE_FILE=$(TEMPLATE_FILE) $(GNUR_HOME)/bin/Rscript $$rf $$rf || exit 1; \
+	done
 
 clean:
-	rm -f $(PKG_TAR)
+	rm -f $(PKG_TAR) $(RIN_R_FILES)
 
diff --git a/com.oracle.truffle.r.test.native/packages/pkg-filelist b/com.oracle.truffle.r.test.native/packages/pkg-filelist
new file mode 100644
index 0000000000..55e8fe1d11
--- /dev/null
+++ b/com.oracle.truffle.r.test.native/packages/pkg-filelist
@@ -0,0 +1,3 @@
+vanilla
+tests4
+testrffi
diff --git a/com.oracle.truffle.r.test.native/packages/testrffi/testrffi/DESCRIPTION b/com.oracle.truffle.r.test.native/packages/testrffi/testrffi/DESCRIPTION
index 6469b3112f..a21a01b707 100644
--- a/com.oracle.truffle.r.test.native/packages/testrffi/testrffi/DESCRIPTION
+++ b/com.oracle.truffle.r.test.native/packages/testrffi/testrffi/DESCRIPTION
@@ -1,9 +1,10 @@
 Package: testrffi
 Type: Package
-Title: Tests a package with native code
+Title: Tests The R FFI interface
 Version: 1.0
-Date: 2014-08-21
+Date: 2017-02-2
 Author: FastR Tester
 Maintainer: FastR Tester <fastr@yahoogroups.com>
-Description: Tests a package with native code
+Description: Tests The R FFI interface
 License: GPL-2
+NeedsCompilation: yes
diff --git a/com.oracle.truffle.r.test.native/packages/testrffi/testrffi/man/testrffi-package.Rd b/com.oracle.truffle.r.test.native/packages/testrffi/testrffi/man/testrffi-package.Rd
index f73ed8ca85..2ea30d34d2 100644
--- a/com.oracle.truffle.r.test.native/packages/testrffi/testrffi/man/testrffi-package.Rd
+++ b/com.oracle.truffle.r.test.native/packages/testrffi/testrffi/man/testrffi-package.Rd
@@ -2,14 +2,20 @@
 \alias{testrffi-package}
 \alias{testrffi}
 \docType{package}
-\title{Tests a package with native code}
-\description{Tests a package with native code}
+\title{Tests the R FFI interface}
+\description{Tests the R FFI interface via a collection of R functions that
+call down to native code using .Call which then typically make R FFI upcalls to
+test the individual functions. The set of tests is not comprehensive.
+
+The individual functions are not documented here as there are far too many
+and they are not intended for user-level usage.
+}
 \details{
 \tabular{ll}{
 Package: \tab testrffi\cr
 Type: \tab Package\cr
 Version: \tab 1.0\cr
-Date: \tab 2014-08-21\cr
+Date: \tab 2017-02-20\cr
 License: \tab GPL-2\cr
 }
 
@@ -27,5 +33,4 @@ Maintainer: fastr@yahoogroups.com
 
 }
 \examples{
-
 }
diff --git a/com.oracle.truffle.r.test.native/packages/testrffi/testrffi/man/testrffi.Rd b/com.oracle.truffle.r.test.native/packages/testrffi/testrffi/man/testrffi.Rd
deleted file mode 100644
index edb39851ba..0000000000
--- a/com.oracle.truffle.r.test.native/packages/testrffi/testrffi/man/testrffi.Rd
+++ /dev/null
@@ -1,35 +0,0 @@
-\name{testrffi}
-\alias{testrffi}
-%- Also NEED an '\alias' for EACH other topic documented here.
-\title{
-testrffi
-}
-\description{
-Tests the R FFI interface
-}
-\usage{
-addint(2,3)
-}
-
-\details{
-
-}
-\value{
-invisble NULL
-}
-\references{
-
-}
-\author{
-FastR Team
-}
-\note{
-
-}
-
-\seealso{
-%
-}
-\examples{
-addint(2,3)
-}
diff --git a/com.oracle.truffle.r.test.native/packages/testrffi/testrffi/src/init.c b/com.oracle.truffle.r.test.native/packages/testrffi/testrffi/src/init.c
index cf78dd91c9..cfddf3c96f 100644
--- a/com.oracle.truffle.r.test.native/packages/testrffi/testrffi/src/init.c
+++ b/com.oracle.truffle.r.test.native/packages/testrffi/testrffi/src/init.c
@@ -32,6 +32,12 @@ static const R_CMethodDef CEntries[]  = {
 
 #define CALLDEF(name, n)  {#name, (DL_FUNC) &name, n}
 
+/* It is not strictly necessary to include every C function in this table, as
+ * it simply enables a call to be made with the "C_name" variable style of .Call,
+ * as opposed to simply using the string "name". The latter is the default mechanism
+ * used in testrffi.c.
+*/
+
 static const R_CallMethodDef CallEntries[] = {
         CALLDEF(addInt, 2),
         CALLDEF(addDouble, 2),
diff --git a/com.oracle.truffle.r.test.native/packages/testrffi/testrffi/tests/asTests.Rin b/com.oracle.truffle.r.test.native/packages/testrffi/testrffi/tests/asTests.Rin
new file mode 100644
index 0000000000..13e6e52b1d
--- /dev/null
+++ b/com.oracle.truffle.r.test.native/packages/testrffi/testrffi/tests/asTests.Rin
@@ -0,0 +1,6 @@
+source(Sys.getenv("TEMPLATE_FILE"))
+
+as_values <- c("1L", "2", "2.2", "T", "integer()", "numeric()", "logical()", "character()", "c(5,6)", "c(2.3, 3.4)", "c(T, F)", "as.symbol(\"sym\")", "list()")
+as_funs <- c("Char", "Integer", "Real", "Logical")
+
+initialTest("testrffi", "rffi.as%0(%1)",  as_funs, as_values)
diff --git a/com.oracle.truffle.r.test.native/packages/testrffi/testrffi/tests/coerceTests.Rin b/com.oracle.truffle.r.test.native/packages/testrffi/testrffi/tests/coerceTests.Rin
new file mode 100644
index 0000000000..17d7899930
--- /dev/null
+++ b/com.oracle.truffle.r.test.native/packages/testrffi/testrffi/tests/coerceTests.Rin
@@ -0,0 +1,42 @@
+source(Sys.getenv("TEMPLATE_FILE"))
+
+NILSXP <- as.character(0)
+SYMSXP <- as.character(1)
+LISTSXP <- as.character(2)
+CLOSXP <- as.character(3)
+ENVSXP <- as.character(4)
+PROMSXP <- as.character(5)
+LANGSXP <- as.character(6)
+SPECIALSXP <- as.character(7)
+BUILTINSXP <- as.character(8)
+CHARSXP <- as.character(9)
+LGLSXP <- as.character(10)
+INTSXP <- as.character(13)
+REALSXP <- as.character(14)
+CPLXSXP <- as.character(15)
+STRSXP <- as.character(16)
+DOTSXP <- as.character(17)
+ANYSXP <- as.character(18)
+VECSXP <- as.character(19)
+EXPRSXP <- as.character(20)
+BCODESXP <- as.character(21)
+EXTPTRSXP <- as.character(22)
+WEAKREFSXP <- as.character(23)
+RAWSXP <- as.character(24)
+S4SXP <- as.character(25)
+
+coercion_values_for_expr <- c("2", "2.2", "T", "integer()", "numeric()", "logical()", "character()", "c(5,6)", "c(2.3, 3.4)", "c(T, F)",
+                    "list()", "structure(2.2, names='b',dim=c(1,1),myattr='q')", "structure(T, names='c',dim=c(1,1),myattr='q'")
+
+coercion_values <- c("1L", "2", "2.2", "T", "integer()", "numeric()", "logical()", "character()", "c(5,6)", "c(2.3, 3.4)",
+                    "c(T, F)", "list()", "structure(1L,names='a',dim=c(1,1),myattr='q')", "structure(2.2, names='b',dim=c(1,1),myattr='q')",
+                    "structure(T, names='c',dim=c(1,1),myattr='q')", "structure(list(1,'42'), names=c('q','w'),dim=c(2,1),myattr='q'")
+
+coercion_modes <- c(SYMSXP, NILSXP, VECSXP, INTSXP, REALSXP, LGLSXP, STRSXP, CPLXSXP, RAWSXP)
+
+initialTest("testrffi", "rffi.coerceVector(%0, %1)", coercion_values, coercion_modes)
+
+extraTest("rffi.coerceVector(%0, %1)", coercion_values_for_expr, EXPRSXP)
+
+# Ignored.Unimplemented
+# extraTest(paste0("rffi.coerceVector(structure(list(1,'x'), names=c('q','w'),dim=c(2,1),myattr='q'), ", EXPRSXP, ")"))
diff --git a/com.oracle.truffle.r.test.native/packages/testrffi/testrffi/tests/simpleTests.R b/com.oracle.truffle.r.test.native/packages/testrffi/testrffi/tests/simpleTests.R
new file mode 100644
index 0000000000..92cf03a236
--- /dev/null
+++ b/com.oracle.truffle.r.test.native/packages/testrffi/testrffi/tests/simpleTests.R
@@ -0,0 +1,24 @@
+stopifnot(require(testrffi))
+
+rffi.addInt(2L, 3L)
+rffi.addDouble(2, 3)
+rffi.populateIntVector(5)
+rffi.populateLogicalVector(5)
+rffi.mkStringFromChar()
+rffi.mkStringFromBytes()
+rffi.null()
+try(rffi.null.E())
+rffi.null.C()
+rffi.isRString(character(0))
+a <- c(1L,2L,3L); rffi.iterate_iarray(a)
+a <- c(1L,2L,3L); rffi.iterate_iptr(a)
+rffi.dotCModifiedArguments(c(0,1,2,3))
+rffi.dotExternalAccessArgs(1L, 3, c(1,2,3), c('a', 'b'), 'b', TRUE, as.raw(12))
+rffi.dotExternalAccessArgs(x=1L, 3, c(1,2,3), y=c('a', 'b'), 'b', TRUE, as.raw(12))
+rffi.invoke12()
+rffi.TYPEOF(3L)
+rffi.isRString("hello")
+rffi.isRString(NULL)
+rffi.interactive()
+x <- 1; rffi.findvar("x", globalenv())
+x <- "12345"; rffi.char_length(x)
\ No newline at end of file
diff --git a/com.oracle.truffle.r.test.native/packages/vanilla/vanilla/man/vanilla.Rd b/com.oracle.truffle.r.test.native/packages/vanilla/vanilla/man/vanilla.Rd
deleted file mode 100644
index 21eb5aea52..0000000000
--- a/com.oracle.truffle.r.test.native/packages/vanilla/vanilla/man/vanilla.Rd
+++ /dev/null
@@ -1,35 +0,0 @@
-\name{vanilla}
-\alias{vanilla}
-%- Also NEED an '\alias' for EACH other topic documented here.
-\title{
-vanilla
-}
-\description{
-prints A vaniila R package
-}
-\usage{
-vanilla()
-}
-
-\details{
-
-}
-\value{
-invisble NULL
-}
-\references{
-
-}
-\author{
-FastR Team
-}
-\note{
-
-}
-
-\seealso{
-%
-}
-\examples{
-vanilla()
-}
diff --git a/com.oracle.truffle.r.test.cran/initial.package.blacklist b/com.oracle.truffle.r.test.packages/initial.package.blacklist
similarity index 100%
rename from com.oracle.truffle.r.test.cran/initial.package.blacklist
rename to com.oracle.truffle.r.test.packages/initial.package.blacklist
diff --git a/com.oracle.truffle.r.test.cran/ok.packages b/com.oracle.truffle.r.test.packages/ok.packages
similarity index 100%
rename from com.oracle.truffle.r.test.cran/ok.packages
rename to com.oracle.truffle.r.test.packages/ok.packages
diff --git a/com.oracle.truffle.r.test.cran/r/install.package.R b/com.oracle.truffle.r.test.packages/r/install.package.R
similarity index 93%
rename from com.oracle.truffle.r.test.cran/r/install.package.R
rename to com.oracle.truffle.r.test.packages/r/install.package.R
index e3a4f99e85..70e6958084 100644
--- a/com.oracle.truffle.r.test.cran/r/install.package.R
+++ b/com.oracle.truffle.r.test.packages/r/install.package.R
@@ -21,7 +21,7 @@
 # questions.
 #
 
-# A script to do a single package installation (+dependents), called from install.cran.packages.R.
+# A script to do a single package installation (+dependents), called from install.packages.R.
 # It exists as a separate script only to avoid internal FastR errors from killing the
 # entire installation process for multiple package installation tests.
 
@@ -33,14 +33,13 @@ args <- commandArgs(TRUE)
 parse.args <- function() {
 	if (length(args)) {
 		pkgname <<- args[[1]]
-		contriburl<<- args[[2]]
+		contriburl <<- strsplit(args[[2]], ",")[[1]]
 		lib.install <<- args[[3]]
 	}
 }
 
 run <- function() {
 	parse.args()
-	# TODO install Suggests for vingette testing
 	install.packages(pkgname, contriburl=contriburl, type="source", lib=lib.install, INSTALL_opts="--install-tests")
 }
 
diff --git a/com.oracle.truffle.r.test.cran/r/install.cran.packages.R b/com.oracle.truffle.r.test.packages/r/install.packages.R
similarity index 90%
rename from com.oracle.truffle.r.test.cran/r/install.cran.packages.R
rename to com.oracle.truffle.r.test.packages/r/install.packages.R
index a9e905e9a5..397c82bec3 100644
--- a/com.oracle.truffle.r.test.cran/r/install.cran.packages.R
+++ b/com.oracle.truffle.r.test.packages/r/install.packages.R
@@ -21,7 +21,7 @@
 # questions.
 #
 
-# A script to install and optionally test CRAN packages, with a blacklist mechanism starting
+# A script to install and optionally test packages (typically from CRAN), with a blacklist mechanism starting
 # from a known set of packages that we cannot handle, e.g. Rcpp (due to C++)
 # By default all packages are candidates for installation, but this
 # can be limited in the following ways:
@@ -31,21 +31,32 @@
 # 3. from the set of installed packages found in the lib install directory (option --pkg-list-installed)
 #    (useful primarily for testing a set of pre-installed packages
 
+# This script can install packages from a variety of sources PROVIDED that they follow the
+# structure used by CRAN, which is the main source of packages in the R world. (I.e. they support
+# utils::available.packages and utils::install.packages).
+# Other sources include:
+#
+# BioConductor
+# GitHub
+# FastR internal packages
+
+# BioConductor has it's own install mechanism but it is layered on the CRAN model.
+
 # By default, we use the CRAN mirror specified by --cran-mirror or env var CRAN_MIRROR.
-# If unset, defaults to "http://cran.cnr.berkeley.edu/"
-# However, a local copy of the CRAN repo can be used either by setting the LOCAL_CRAN_REPO env variable or setting --contrib-url
+# If unset, it defaults to "http://cran.cnr.berkeley.edu/"
 
 # Packages are installed into the directory specified by the --lib arg (or R_LIBS_USER env var)
 
-# Blacklisted packages nor their dependents will not be installed. By default the list of blacklisted
-# packages will be read from the file in the --blacklist-file arg or the PACKAGE_BLACKLIST env var.
-# If unset, defaults to "package.blacklist", and will be created if necessary. The initial set of
-# blacklisted packages are read from the file specified by --initial-blacklist-file (defaults to
-# value of env var INITIAL_PACKAGE_BLACKLIST or initial.package.blacklist if unset). This is
-# DCF file with entries of the form:
+# By default, blacklisted packages nor their dependents will not be installed. The list of blacklisted
+# packages will be read from the file in the --blacklist-file arg (defaults to "package.blacklist"),
+# and will be created if necessary. The initial set of blacklisted packages are read from the file specified by
+# --initial-blacklist-file (defaults to "com.oracle.truffle.r.test.packages/initial.package.blacklist").
+# This is a DCF file with entries of the form:
 # Package: name
 # Reason: reason
 
+# The --ignore-blacklist option can be used to suppress the use of the blacklist.
+
 # The env var R_LIBS_USER or the option --lib must be set to the directory where the install should take place.
 # N.B. --lib works for installation. However, when running tests ( --run-tests), it does not and
 # R_LIBS_USER must be set instead (as well) since some of the test code has explicit "library(foo)" calls
@@ -91,7 +102,7 @@
 args <- commandArgs(TRUE)
 
 usage <- function() {
-	cat(paste("usage: Rscript [--contriburl url] [--cran-mirror url] ",
+	cat(paste("usage: Rscript [--cran-mirror url] ",
                       "[--verbose | -v] [-V] [--dryrun]",
                       "[--no-install | -n] ",
 				      "[--create-blacklist] [--blacklist-file file] [--ignore-blacklist]",
@@ -243,34 +254,34 @@ abort <- function(msg) {
 	quit("no", status=100)
 }
 
-set.contriburl <- function() {
-	# if contriburl is set explicitly that's all we need
-	if (!is.na(contriburl)) {
-		return(contriburl)
-	}
-
-	# check for env var setting
-	contriburl <<- Sys.getenv("LOCAL_CRAN_REPO", unset=NA)
-	if (!is.na(contriburl)) {
-		return(contriburl)
+set.repos <- function() {
+	# Based on the value of repos.list we set the "repos" option
+	# which is used by available.packages etc.
+	repos <- character()
+	needCran <- F
+	if ("BIOC" %in% repo.list) {
+		repos["BIOC"] <- "https://bioconductor.org/packages/3.4/bioc"
+		needCran <- T
+	}
+	if (needCran || "CRAN" %in% repo.list) {
+		# set from the cran-mirror value
+		if (is.na(cran.mirror)) {
+			# not set on command line
+			cran.mirror <<- Sys.getenv("CRAN_MIRROR", unset = "http://cran.cnr.berkeley.edu/")
+		}
+		repos["CRAN"] <- cran.mirror
 	}
-
-	# set from the cran-mirror value
-	if (is.na(cran.mirror)) {
-		# not set on command line
-		cran.mirror <<- Sys.getenv("CRAN_MIRROR", unset = "http://cran.cnr.berkeley.edu/")
+	if ("FASTR" %in% repo.list) {
+		# set the FastR internal repo
+		repos["FASTR"] <- paste0("file://", normalizePath("com.oracle.truffle.r.test.native/packages/repo"))
 	}
-	r <- getOption("repos")
-	r["CRAN"] <- cran.mirror
-	options(repos = r)
-	contriburl <<- contrib.url(r, "source")
-	contriburl
+	options(repos = repos)
 }
 
 set.package.blacklist <- function() {
 	if (is.na(blacklist.file)) {
 	    # not set on command line
-		blacklist.file <<- Sys.getenv("PACKAGE_BLACKLIST", unset="package.blacklist")
+		blacklist.file <<- "package.blacklist"
 	}
 	if (!create.blacklist.file && !ignore.blacklist) {
 		if (!file.exists(blacklist.file)) {
@@ -280,12 +291,12 @@ set.package.blacklist <- function() {
 	}
 }
 
-this.package <- "com.oracle.truffle.r.test.cran"
+this.package <- "com.oracle.truffle.r.test.packages"
 
 set.initial.package.blacklist <- function() {
 	if (is.na(initial.blacklist.file)) {
 		# not set on command line
-		initial.blacklist.file <<- Sys.getenv("INITIAL_PACKAGE_BLACKLIST", unset=file.path(this.package, "initial.package.blacklist"))
+		initial.blacklist.file <<- file.path(this.package, "initial.package.blacklist")
 	}
 
 }
@@ -357,7 +368,7 @@ check.installed.pkgs <- function() {
 	pkgs.ok
 }
 
-# find the available packages from contriburl and match those against the
+# find the available packages and match those against the
 # requested set of candidate packages
 # sets global variables avail.pkgs and toinstall.pkgs, the latter being
 # of the same type as avail.pkgs but containing only those packages to install
@@ -370,14 +381,14 @@ get.pkgs <- function() {
 		quit(save="no", status=100)
 	}
 	tryCatch({
-	    avail.pkgs <<- available.packages(contriburl=contriburl, type="source")
+	    avail.pkgs <<- available.packages(type="source")
     }, warning=my.warning)
 
     # Owing to a FastR bug, we may not invoke the handler above, but
 	# if length(avail.pkgs) == 0, that also means it failed
 	if (length(avail.pkgs) == 0) {
 		if (!quiet) {
-		  print("Fatal error: no packages found in repo")
+		  print("Fatal error: no packages found in repo(s)")
     	}
 		quit(save="no", status=100)
 	}
@@ -420,6 +431,11 @@ get.pkgs <- function() {
 	}
 	matched.avail.pkgs <- apply(avail.pkgs, 1, match.fun)
 	toinstall.pkgs <<-avail.pkgs[matched.avail.pkgs, , drop=F]
+	if (length(toinstall.pkgs) == 0) {
+		print("Fatal error: requested package(s) found in repo(s)")
+		quit(save="no", status=100)
+
+	}
 
 	if (!is.na(random.count)) {
 		# install random.count packages taken at random from toinstall.pkgs
@@ -654,7 +670,7 @@ do.it <- function() {
 }
 
 # Should package "x" be included in the install?
-# No, if it is inthe blacklist set (what about --ignore-blacklist?)
+# No, if it is in the blacklist set (what about --ignore-blacklist?)
 # Nor if it is in ok.pkg.filelist (what does this achieve)
 include.package <- function(x, blacklist) {
 	return (!(x["Package"] %in% blacklist || x["Package"] %in% ok.pkg.filelist))
@@ -674,7 +690,7 @@ install.pkg <- function(pkgname) {
 	if (run.mode == "system") {
 		system.install(pkgname)
 	} else if (run.mode == "internal") {
-		install.packages(pkgname, contriburl=contriburl, type="source", lib=lib.install, INSTALL_opts="--install-tests")
+		install.packages(pkgname, type="source", lib=lib.install, INSTALL_opts="--install-tests")
 	} else if (run.mode == "context") {
 		stop("context run-mode not implemented\n")
 	}
@@ -705,13 +721,13 @@ gnu_rscript <- function() {
 }
 
 system.install <- function(pkgname) {
-	script <- normalizePath("com.oracle.truffle.r.test.cran/r/install.package.R")
+	script <- normalizePath("com.oracle.truffle.r.test.packages/r/install.package.R")
 	if (is.fastr()) {
 		rscript = file.path(R.home(), "bin", "Rscript")
 	} else {
 		rscript = gnu_rscript()
 	}
-	args <- c(script, pkgname, contriburl, lib.install)
+	args <- c(script, pkgname, paste0(contrib.url(getOption("repos"), "source"), collapse=","), lib.install)
 	rc <- system2(rscript, args)
 	rc
 }
@@ -749,7 +765,7 @@ is.fastr <- function() {
 }
 
 system.test <- function(pkgname) {
-	script <- normalizePath("com.oracle.truffle.r.test.cran/r/test.package.R")
+	script <- normalizePath("com.oracle.truffle.r.test.packages/r/test.package.R")
 	if (is.fastr()) {
 		rscript = file.path(R.home(), "bin", "Rscript")
 	} else {
@@ -779,8 +795,6 @@ parse.args <- function() {
 		a <- args[1L]
 		if (a %in% c("-h", "--help")) {
 			usage()
-		} else if (a == "--contriburl") {
-			contriburl <<- get.argvalue()
 		} else if (a == "--verbose" || a == "-v") {
 			verbose <<- T
 		} else if (a == "-V") {
@@ -800,6 +814,8 @@ parse.args <- function() {
 			blacklist.file <<- get.argvalue()
 		} else if (a == "--initial-blacklist-file") {
 			initial.blacklist.file <<- get.argvalue()
+		} else if (a == "--repos") {
+			repo.list <<- strsplit(get.argvalue(), ",")[[1]]
 		} else if (a == "--cran-mirror") {
 			cran.mirror <<- get.argvalue()
 		} else if (a == "--random") {
@@ -870,7 +886,6 @@ parse.args <- function() {
 cat.args <- function() {
 	if (verbose) {
 		cat("cran.mirror:", cran.mirror, "\n")
-		cat("contriburl:", contriburl, "\n")
 		cat("initial.blacklist.file:", initial.blacklist.file, "\n")
 		cat("blacklist.file:", blacklist.file, "\n")
 		cat("lib.install:", lib.install, "\n")
@@ -880,7 +895,6 @@ cat.args <- function() {
 		cat("create.blacklist.file:", create.blacklist.file, "\n")
 		cat("ignore.blacklist:", ignore.blacklist, "\n")
 		cat("pkg.pattern:", pkg.pattern, "\n")
-		cat("contriburl:", contriburl, "\n")
 		cat("random.count:", random.count, "\n")
 		cat("count.daily:", count.daily, "\n")
 		cat("run.mode:", run.mode, "\n")
@@ -925,7 +939,7 @@ run.setup <- function() {
 	parse.args()
 	check.libs()
 	check.pkgfilelist()
-	set.contriburl()
+	set.repos()
 	set.initial.package.blacklist()
 	set.package.blacklist()
 	lib.install <<- normalizePath(lib.install)
@@ -938,8 +952,8 @@ run <- function() {
 }
 
 quiet <- F
+repo.list <- c("CRAN")
 cran.mirror <- NA
-contriburl <- NA
 blacklist.file <- NA
 initial.blacklist.file <- NA
 lib.install <- NA
diff --git a/com.oracle.truffle.r.test.cran/r/test.package.R b/com.oracle.truffle.r.test.packages/r/test.package.R
similarity index 95%
rename from com.oracle.truffle.r.test.cran/r/test.package.R
rename to com.oracle.truffle.r.test.packages/r/test.package.R
index 9c24412015..40ceb1276e 100644
--- a/com.oracle.truffle.r.test.cran/r/test.package.R
+++ b/com.oracle.truffle.r.test.packages/r/test.package.R
@@ -21,7 +21,7 @@
 # questions.
 #
 
-# A script to do a single package test, called from install.cran.packages.R.
+# A script to do a single package test, called from install.packages.R.
 # It exists as a separate script only to avoid internal FastR errors from killing the
 # entire test process for multiple package tests.
 
diff --git a/com.oracle.truffle.r.test.cran/recommended b/com.oracle.truffle.r.test.packages/recommended
similarity index 100%
rename from com.oracle.truffle.r.test.cran/recommended
rename to com.oracle.truffle.r.test.packages/recommended
diff --git a/com.oracle.truffle.r.test.cran/top100 b/com.oracle.truffle.r.test.packages/top100
similarity index 100%
rename from com.oracle.truffle.r.test.cran/top100
rename to com.oracle.truffle.r.test.packages/top100
diff --git a/com.oracle.truffle.r.test.cran/top100test b/com.oracle.truffle.r.test.packages/top100test
similarity index 100%
rename from com.oracle.truffle.r.test.cran/top100test
rename to com.oracle.truffle.r.test.packages/top100test
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 735f194785..f918bad3c3 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
@@ -139275,1200 +139275,6 @@ non-integer value 12345678909876543212L qualified with L; using numeric value
 #'\ ' == ' '
 [1] TRUE
 
-##com.oracle.truffle.r.test.rffi.TestRFFIPackage.TestLENGTH#Output.MayIgnoreErrorContext#
-#{ library("testrffi", lib.loc = "tmptest/com.oracle.truffle.r.test.rpackages"); x <- list(); x <- x <- append(x, rffi.LENGTH(1)); x <- append(x, rffi.LENGTH(c(1,2,3))); x <- append(x, rffi.LENGTH(list(1,2,3))); x <- append(x, rffi.LENGTH(expression(1,2))); ; detach("package:testrffi", unload=T); x }
-[[1]]
-[1] 1
-
-[[2]]
-[1] 3
-
-[[3]]
-[1] 3
-
-[[4]]
-[1] 2
-
-
-##com.oracle.truffle.r.test.rffi.TestRFFIPackage.testAsFunctions#Output.MayIgnoreWarningContext#
-#{ library("testrffi", lib.loc = "tmptest/com.oracle.truffle.r.test.rpackages"); x <- list(); x <- x <- append(x, rffi.asChar(1L)); x <- append(x, rffi.asInteger(1L)); x <- append(x, rffi.asReal(1L)); x <- append(x, rffi.asLogical(1L)); x <- append(x, rffi.asChar(2)); x <- append(x, rffi.asInteger(2)); x <- append(x, rffi.asReal(2)); x <- append(x, rffi.asLogical(2)); x <- append(x, rffi.asChar(2.2)); x <- append(x, rffi.asInteger(2.2)); x <- append(x, rffi.asReal(2.2)); x <- append(x, rffi.asLogical(2.2)); x <- append(x, rffi.asChar(T)); x <- append(x, rffi.asInteger(T)); x <- append(x, rffi.asReal(T)); x <- append(x, rffi.asLogical(T)); x <- append(x, rffi.asChar(integer())); x <- append(x, rffi.asInteger(integer())); x <- append(x, rffi.asReal(integer())); x <- append(x, rffi.asLogical(integer())); x <- append(x, rffi.asChar(numeric())); x <- append(x, rffi.asInteger(numeric())); x <- append(x, rffi.asReal(numeric())); x <- append(x, rffi.asLogical(numeric())); x <- append(x, rffi.asChar(logical())); x <- append(x, rffi.asInteger(logical())); x <- append(x, rffi.asReal(logical())); x <- append(x, rffi.asLogical(logical())); x <- append(x, rffi.asChar(character())); x <- append(x, rffi.asInteger(character())); x <- append(x, rffi.asReal(character())); x <- append(x, rffi.asLogical(character())); x <- append(x, rffi.asChar(c(5,6))); x <- append(x, rffi.asInteger(c(5,6))); x <- append(x, rffi.asReal(c(5,6))); x <- append(x, rffi.asLogical(c(5,6))); x <- append(x, rffi.asChar(c(2.3, 3.4))); x <- append(x, rffi.asInteger(c(2.3, 3.4))); x <- append(x, rffi.asReal(c(2.3, 3.4))); x <- append(x, rffi.asLogical(c(2.3, 3.4))); x <- append(x, rffi.asChar(c(T, F))); x <- append(x, rffi.asInteger(c(T, F))); x <- append(x, rffi.asReal(c(T, F))); x <- append(x, rffi.asLogical(c(T, F))); x <- append(x, rffi.asChar(as.symbol("sym"))); x <- append(x, rffi.asInteger(as.symbol("sym"))); x <- append(x, rffi.asReal(as.symbol("sym"))); x <- append(x, rffi.asLogical(as.symbol("sym"))); x <- append(x, rffi.asChar(list())); x <- append(x, rffi.asInteger(list())); x <- append(x, rffi.asReal(list())); x <- append(x, rffi.asLogical(list())); ; detach("package:testrffi", unload=T); x }
-[[1]]
-[1] "1"
-
-[[2]]
-[1] 1
-
-[[3]]
-[1] 1
-
-[[4]]
-[1] TRUE
-
-[[5]]
-[1] "2"
-
-[[6]]
-[1] 2
-
-[[7]]
-[1] 2
-
-[[8]]
-[1] TRUE
-
-[[9]]
-[1] "2.2"
-
-[[10]]
-[1] 2
-
-[[11]]
-[1] 2.2
-
-[[12]]
-[1] TRUE
-
-[[13]]
-[1] "TRUE"
-
-[[14]]
-[1] 1
-
-[[15]]
-[1] 1
-
-[[16]]
-[1] TRUE
-
-[[17]]
-[1] NA
-
-[[18]]
-[1] NA
-
-[[19]]
-[1] NA
-
-[[20]]
-[1] NA
-
-[[21]]
-[1] NA
-
-[[22]]
-[1] NA
-
-[[23]]
-[1] NA
-
-[[24]]
-[1] NA
-
-[[25]]
-[1] NA
-
-[[26]]
-[1] NA
-
-[[27]]
-[1] NA
-
-[[28]]
-[1] NA
-
-[[29]]
-[1] NA
-
-[[30]]
-[1] NA
-
-[[31]]
-[1] NA
-
-[[32]]
-[1] NA
-
-[[33]]
-[1] "5"
-
-[[34]]
-[1] 5
-
-[[35]]
-[1] 5
-
-[[36]]
-[1] TRUE
-
-[[37]]
-[1] "2.3"
-
-[[38]]
-[1] 2
-
-[[39]]
-[1] 2.3
-
-[[40]]
-[1] TRUE
-
-[[41]]
-[1] "TRUE"
-
-[[42]]
-[1] 1
-
-[[43]]
-[1] 1
-
-[[44]]
-[1] TRUE
-
-[[45]]
-[1] "sym"
-
-[[46]]
-[1] NA
-
-[[47]]
-[1] NA
-
-[[48]]
-[1] NA
-
-[[49]]
-[1] NA
-
-[[50]]
-[1] NA
-
-[[51]]
-[1] NA
-
-[[52]]
-[1] NA
-
-
-##com.oracle.truffle.r.test.rffi.TestRFFIPackage.testListFunctions#Output.MayIgnoreErrorContext#
-#{ library("testrffi", lib.loc = "tmptest/com.oracle.truffle.r.test.rpackages"); x <- list(); x <- x <- append(x, rffi.CAR(pairlist(1,2))); x <- append(x, rffi.CDR(pairlist(1,2))); x <- append(x, rffi.CAR(pairlist(x=1L, y=2L))); x <- append(x, rffi.CDR(pairlist(x=1L, y=2L))); ; detach("package:testrffi", unload=T); x }
-[[1]]
-[1] 1
-
-[[2]]
-[1] 2
-
-[[3]]
-[1] 1
-
-$y
-[1] 2
-
-
-##com.oracle.truffle.r.test.rffi.TestRFFIPackage.testRFFI1#
-#{ library("testrffi", lib.loc = "tmptest/com.oracle.truffle.r.test.rpackages"); x <- rffi.addInt(2L, 3L); detach("package:testrffi", unload=T); x }
-[1] 5
-
-##com.oracle.truffle.r.test.rffi.TestRFFIPackage.testRFFI10#
-#{ library("testrffi", lib.loc = "tmptest/com.oracle.truffle.r.test.rpackages"); a <- c(1L,2L,3L); x <- rffi.iterate_iptr(a); detach("package:testrffi", unload=T); x }
-[1] 1 2 3
-
-##com.oracle.truffle.r.test.rffi.TestRFFIPackage.testRFFI11#
-#{ library("testrffi", lib.loc = "tmptest/com.oracle.truffle.r.test.rpackages"); x <- rffi.dotCModifiedArguments(c(0,1,2,3)); detach("package:testrffi", unload=T); x }
-[[1]]
-[1] 4
-
-[[2]]
-[1] 1 2 3 4
-
-[[3]]
-[1] 0.0 0.2 0.4 0.6
-
-[[4]]
-[1]  TRUE FALSE FALSE FALSE
-
-
-##com.oracle.truffle.r.test.rffi.TestRFFIPackage.testRFFI12#
-#{ library("testrffi", lib.loc = "tmptest/com.oracle.truffle.r.test.rpackages"); x <- rffi.dotExternalAccessArgs(1L, 3, c(1,2,3), c('a', 'b'), 'b', TRUE, as.raw(12)); detach("package:testrffi", unload=T); x }
-[[1]]
-[[1]][[1]]
-NULL
-
-[[1]][[2]]
-[1] 1
-
-
-[[2]]
-[[2]][[1]]
-NULL
-
-[[2]][[2]]
-[1] 3
-
-
-[[3]]
-[[3]][[1]]
-NULL
-
-[[3]][[2]]
-[1] 1
-
-
-[[4]]
-[[4]][[1]]
-NULL
-
-[[4]][[2]]
-[1] "a"
-
-
-[[5]]
-[[5]][[1]]
-NULL
-
-[[5]][[2]]
-[1] "b"
-
-
-[[6]]
-[[6]][[1]]
-NULL
-
-[[6]][[2]]
-[1] 1
-
-
-[[7]]
-[[7]][[1]]
-NULL
-
-[[7]][[2]]
-[1] 0c
-
-
-
-##com.oracle.truffle.r.test.rffi.TestRFFIPackage.testRFFI13#
-#{ library("testrffi", lib.loc = "tmptest/com.oracle.truffle.r.test.rpackages"); x <- rffi.dotExternalAccessArgs(x=1L, 3, c(1,2,3), y=c('a', 'b'), 'b', TRUE, as.raw(12)); detach("package:testrffi", unload=T); x }
-[[1]]
-[[1]][[1]]
-x
-
-[[1]][[2]]
-[1] 1
-
-
-[[2]]
-[[2]][[1]]
-NULL
-
-[[2]][[2]]
-[1] 3
-
-
-[[3]]
-[[3]][[1]]
-NULL
-
-[[3]][[2]]
-[1] 1
-
-
-[[4]]
-[[4]][[1]]
-y
-
-[[4]][[2]]
-[1] "a"
-
-
-[[5]]
-[[5]][[1]]
-NULL
-
-[[5]][[2]]
-[1] "b"
-
-
-[[6]]
-[[6]][[1]]
-NULL
-
-[[6]][[2]]
-[1] 1
-
-
-[[7]]
-[[7]][[1]]
-NULL
-
-[[7]][[2]]
-[1] 0c
-
-
-
-##com.oracle.truffle.r.test.rffi.TestRFFIPackage.testRFFI14#
-#{ library("testrffi", lib.loc = "tmptest/com.oracle.truffle.r.test.rpackages"); x <- rffi.invoke12(); detach("package:testrffi", unload=T); x }
-[1] 12
-
-##com.oracle.truffle.r.test.rffi.TestRFFIPackage.testRFFI15#
-#{ library("testrffi", lib.loc = "tmptest/com.oracle.truffle.r.test.rpackages"); x <- rffi.TYPEOF(3L); detach("package:testrffi", unload=T); x }
-[1] 13
-
-##com.oracle.truffle.r.test.rffi.TestRFFIPackage.testRFFI16#
-#{ library("testrffi", lib.loc = "tmptest/com.oracle.truffle.r.test.rpackages"); x <- rffi.isRString("hello"); detach("package:testrffi", unload=T); x }
-[1] TRUE
-
-##com.oracle.truffle.r.test.rffi.TestRFFIPackage.testRFFI17#
-#{ library("testrffi", lib.loc = "tmptest/com.oracle.truffle.r.test.rpackages"); x <- rffi.isRString(NULL); detach("package:testrffi", unload=T); x }
-[1] FALSE
-
-##com.oracle.truffle.r.test.rffi.TestRFFIPackage.testRFFI18#
-#{ library("testrffi", lib.loc = "tmptest/com.oracle.truffle.r.test.rpackages"); x <- rffi.interactive(); detach("package:testrffi", unload=T); x }
-[1] FALSE
-
-##com.oracle.truffle.r.test.rffi.TestRFFIPackage.testRFFI19#
-#{ library("testrffi", lib.loc = "tmptest/com.oracle.truffle.r.test.rpackages"); x <- 1; x <- rffi.findvar("x", globalenv()); detach("package:testrffi", unload=T); x }
-[1] 1
-
-##com.oracle.truffle.r.test.rffi.TestRFFIPackage.testRFFI2#
-#{ library("testrffi", lib.loc = "tmptest/com.oracle.truffle.r.test.rpackages"); x <- rffi.addDouble(2, 3); detach("package:testrffi", unload=T); x }
-[1] 5
-
-##com.oracle.truffle.r.test.rffi.TestRFFIPackage.testRFFI20#
-#{ library("testrffi", lib.loc = "tmptest/com.oracle.truffle.r.test.rpackages"); x <- "12345"; x <- rffi.char_length(x); detach("package:testrffi", unload=T); x }
-[1] 5
-
-##com.oracle.truffle.r.test.rffi.TestRFFIPackage.testRFFI3#
-#{ library("testrffi", lib.loc = "tmptest/com.oracle.truffle.r.test.rpackages"); x <- rffi.populateIntVector(5); detach("package:testrffi", unload=T); x }
-[1] 0 1 2 3 4
-
-##com.oracle.truffle.r.test.rffi.TestRFFIPackage.testRFFI4#
-#{ library("testrffi", lib.loc = "tmptest/com.oracle.truffle.r.test.rpackages"); x <- rffi.populateLogicalVector(5); detach("package:testrffi", unload=T); x }
-[1]  TRUE    NA FALSE FALSE FALSE
-
-##com.oracle.truffle.r.test.rffi.TestRFFIPackage.testRFFI5#
-#{ library("testrffi", lib.loc = "tmptest/com.oracle.truffle.r.test.rpackages"); x <- rffi.mkStringFromChar(); detach("package:testrffi", unload=T); x }
-[1] "hello"
-
-##com.oracle.truffle.r.test.rffi.TestRFFIPackage.testRFFI6#
-#{ library("testrffi", lib.loc = "tmptest/com.oracle.truffle.r.test.rpackages"); x <- rffi.mkStringFromBytes(); detach("package:testrffi", unload=T); x }
-[1] "hello"
-
-##com.oracle.truffle.r.test.rffi.TestRFFIPackage.testRFFI7#
-#{ library("testrffi", lib.loc = "tmptest/com.oracle.truffle.r.test.rpackages"); x <- rffi.null(); detach("package:testrffi", unload=T); x }
-NULL
-
-##com.oracle.truffle.r.test.rffi.TestRFFIPackage.testRFFI7C#
-#{ library("testrffi", lib.loc = "tmptest/com.oracle.truffle.r.test.rpackages"); x <- rffi.null.C(); detach("package:testrffi", unload=T); x }
-NULL
-
-##com.oracle.truffle.r.test.rffi.TestRFFIPackage.testRFFI7E#
-#{ library("testrffi", lib.loc = "tmptest/com.oracle.truffle.r.test.rpackages"); x <- rffi.null.E(); detach("package:testrffi", unload=T); x }
-Error in .Call("null", PACKAGE = "foo") :
-  "null" not available for .Call() for package "foo"
-
-##com.oracle.truffle.r.test.rffi.TestRFFIPackage.testRFFI8#
-#{ library("testrffi", lib.loc = "tmptest/com.oracle.truffle.r.test.rpackages"); x <- rffi.isRString(character(0)); detach("package:testrffi", unload=T); x }
-[1] TRUE
-
-##com.oracle.truffle.r.test.rffi.TestRFFIPackage.testRFFI9#
-#{ library("testrffi", lib.loc = "tmptest/com.oracle.truffle.r.test.rpackages"); a <- c(1L,2L,3L); x <- rffi.iterate_iarray(a); detach("package:testrffi", unload=T); x }
-[1] 1 2 3
-
-##com.oracle.truffle.r.test.rffi.TestRFFIPackageCoercions.testCoerceVector#Output.MayIgnoreWarningContext#Output.MayIgnoreErrorContext#
-#{ library('testrffi', lib.loc = 'tmptest/com.oracle.truffle.r.test.rpackages'); x <- rffi.coerceVector(1L, 0); detach('package:testrffi', unload=T); x }
-Error in rffi.coerceVector(1L, 0) :
-  cannot coerce type 'integer' to vector of type 'NULL'
-
-##com.oracle.truffle.r.test.rffi.TestRFFIPackageCoercions.testCoerceVector#Output.MayIgnoreWarningContext#Output.MayIgnoreErrorContext#
-#{ library('testrffi', lib.loc = 'tmptest/com.oracle.truffle.r.test.rpackages'); x <- rffi.coerceVector(1L, 1); detach('package:testrffi', unload=T); x }
-`1`
-
-##com.oracle.truffle.r.test.rffi.TestRFFIPackageCoercions.testCoerceVector#Output.MayIgnoreWarningContext#Output.MayIgnoreErrorContext#
-#{ library('testrffi', lib.loc = 'tmptest/com.oracle.truffle.r.test.rpackages'); x <- rffi.coerceVector(1L, 10); detach('package:testrffi', unload=T); x }
-[1] TRUE
-
-##com.oracle.truffle.r.test.rffi.TestRFFIPackageCoercions.testCoerceVector#Output.MayIgnoreWarningContext#Output.MayIgnoreErrorContext#
-#{ library('testrffi', lib.loc = 'tmptest/com.oracle.truffle.r.test.rpackages'); x <- rffi.coerceVector(1L, 13); detach('package:testrffi', unload=T); x }
-[1] 1
-
-##com.oracle.truffle.r.test.rffi.TestRFFIPackageCoercions.testCoerceVector#Output.MayIgnoreWarningContext#Output.MayIgnoreErrorContext#
-#{ library('testrffi', lib.loc = 'tmptest/com.oracle.truffle.r.test.rpackages'); x <- rffi.coerceVector(1L, 14); detach('package:testrffi', unload=T); x }
-[1] 1
-
-##com.oracle.truffle.r.test.rffi.TestRFFIPackageCoercions.testCoerceVector#Output.MayIgnoreWarningContext#Output.MayIgnoreErrorContext#
-#{ library('testrffi', lib.loc = 'tmptest/com.oracle.truffle.r.test.rpackages'); x <- rffi.coerceVector(1L, 15); detach('package:testrffi', unload=T); x }
-[1] 1+0i
-
-##com.oracle.truffle.r.test.rffi.TestRFFIPackageCoercions.testCoerceVector#Output.MayIgnoreWarningContext#Output.MayIgnoreErrorContext#
-#{ library('testrffi', lib.loc = 'tmptest/com.oracle.truffle.r.test.rpackages'); x <- rffi.coerceVector(1L, 16); detach('package:testrffi', unload=T); x }
-[1] "1"
-
-##com.oracle.truffle.r.test.rffi.TestRFFIPackageCoercions.testCoerceVector#Output.MayIgnoreWarningContext#Output.MayIgnoreErrorContext#
-#{ library('testrffi', lib.loc = 'tmptest/com.oracle.truffle.r.test.rpackages'); x <- rffi.coerceVector(1L, 19); detach('package:testrffi', unload=T); x }
-[[1]]
-[1] 1
-
-
-##com.oracle.truffle.r.test.rffi.TestRFFIPackageCoercions.testCoerceVector#Output.MayIgnoreWarningContext#Output.MayIgnoreErrorContext#
-#{ library('testrffi', lib.loc = 'tmptest/com.oracle.truffle.r.test.rpackages'); x <- rffi.coerceVector(1L, 24); detach('package:testrffi', unload=T); x }
-[1] 01
-
-##com.oracle.truffle.r.test.rffi.TestRFFIPackageCoercions.testCoerceVector#Output.MayIgnoreWarningContext#Output.MayIgnoreErrorContext#
-#{ library('testrffi', lib.loc = 'tmptest/com.oracle.truffle.r.test.rpackages'); x <- rffi.coerceVector(2, 0); detach('package:testrffi', unload=T); x }
-Error in rffi.coerceVector(2, 0) :
-  cannot coerce type 'double' to vector of type 'NULL'
-
-##com.oracle.truffle.r.test.rffi.TestRFFIPackageCoercions.testCoerceVector#Output.MayIgnoreWarningContext#Output.MayIgnoreErrorContext#
-#{ library('testrffi', lib.loc = 'tmptest/com.oracle.truffle.r.test.rpackages'); x <- rffi.coerceVector(2, 1); detach('package:testrffi', unload=T); x }
-`2`
-
-##com.oracle.truffle.r.test.rffi.TestRFFIPackageCoercions.testCoerceVector#Output.MayIgnoreWarningContext#Output.MayIgnoreErrorContext#
-#{ library('testrffi', lib.loc = 'tmptest/com.oracle.truffle.r.test.rpackages'); x <- rffi.coerceVector(2, 10); detach('package:testrffi', unload=T); x }
-[1] TRUE
-
-##com.oracle.truffle.r.test.rffi.TestRFFIPackageCoercions.testCoerceVector#Output.MayIgnoreWarningContext#Output.MayIgnoreErrorContext#
-#{ library('testrffi', lib.loc = 'tmptest/com.oracle.truffle.r.test.rpackages'); x <- rffi.coerceVector(2, 13); detach('package:testrffi', unload=T); x }
-[1] 2
-
-##com.oracle.truffle.r.test.rffi.TestRFFIPackageCoercions.testCoerceVector#Output.MayIgnoreWarningContext#Output.MayIgnoreErrorContext#
-#{ library('testrffi', lib.loc = 'tmptest/com.oracle.truffle.r.test.rpackages'); x <- rffi.coerceVector(2, 14); detach('package:testrffi', unload=T); x }
-[1] 2
-
-##com.oracle.truffle.r.test.rffi.TestRFFIPackageCoercions.testCoerceVector#Output.MayIgnoreWarningContext#Output.MayIgnoreErrorContext#
-#{ library('testrffi', lib.loc = 'tmptest/com.oracle.truffle.r.test.rpackages'); x <- rffi.coerceVector(2, 15); detach('package:testrffi', unload=T); x }
-[1] 2+0i
-
-##com.oracle.truffle.r.test.rffi.TestRFFIPackageCoercions.testCoerceVector#Output.MayIgnoreWarningContext#Output.MayIgnoreErrorContext#
-#{ library('testrffi', lib.loc = 'tmptest/com.oracle.truffle.r.test.rpackages'); x <- rffi.coerceVector(2, 16); detach('package:testrffi', unload=T); x }
-[1] "2"
-
-##com.oracle.truffle.r.test.rffi.TestRFFIPackageCoercions.testCoerceVector#Output.MayIgnoreWarningContext#Output.MayIgnoreErrorContext#
-#{ library('testrffi', lib.loc = 'tmptest/com.oracle.truffle.r.test.rpackages'); x <- rffi.coerceVector(2, 19); detach('package:testrffi', unload=T); x }
-[[1]]
-[1] 2
-
-
-##com.oracle.truffle.r.test.rffi.TestRFFIPackageCoercions.testCoerceVector#Output.MayIgnoreWarningContext#Output.MayIgnoreErrorContext#
-#{ library('testrffi', lib.loc = 'tmptest/com.oracle.truffle.r.test.rpackages'); x <- rffi.coerceVector(2, 24); detach('package:testrffi', unload=T); x }
-[1] 02
-
-##com.oracle.truffle.r.test.rffi.TestRFFIPackageCoercions.testCoerceVector#Output.MayIgnoreWarningContext#Output.MayIgnoreErrorContext#
-#{ library('testrffi', lib.loc = 'tmptest/com.oracle.truffle.r.test.rpackages'); x <- rffi.coerceVector(2.2, 0); detach('package:testrffi', unload=T); x }
-Error in rffi.coerceVector(2.2, 0) :
-  cannot coerce type 'double' to vector of type 'NULL'
-
-##com.oracle.truffle.r.test.rffi.TestRFFIPackageCoercions.testCoerceVector#Output.MayIgnoreWarningContext#Output.MayIgnoreErrorContext#
-#{ library('testrffi', lib.loc = 'tmptest/com.oracle.truffle.r.test.rpackages'); x <- rffi.coerceVector(2.2, 1); detach('package:testrffi', unload=T); x }
-`2.2`
-
-##com.oracle.truffle.r.test.rffi.TestRFFIPackageCoercions.testCoerceVector#Output.MayIgnoreWarningContext#Output.MayIgnoreErrorContext#
-#{ library('testrffi', lib.loc = 'tmptest/com.oracle.truffle.r.test.rpackages'); x <- rffi.coerceVector(2.2, 10); detach('package:testrffi', unload=T); x }
-[1] TRUE
-
-##com.oracle.truffle.r.test.rffi.TestRFFIPackageCoercions.testCoerceVector#Output.MayIgnoreWarningContext#Output.MayIgnoreErrorContext#
-#{ library('testrffi', lib.loc = 'tmptest/com.oracle.truffle.r.test.rpackages'); x <- rffi.coerceVector(2.2, 13); detach('package:testrffi', unload=T); x }
-[1] 2
-
-##com.oracle.truffle.r.test.rffi.TestRFFIPackageCoercions.testCoerceVector#Output.MayIgnoreWarningContext#Output.MayIgnoreErrorContext#
-#{ library('testrffi', lib.loc = 'tmptest/com.oracle.truffle.r.test.rpackages'); x <- rffi.coerceVector(2.2, 14); detach('package:testrffi', unload=T); x }
-[1] 2.2
-
-##com.oracle.truffle.r.test.rffi.TestRFFIPackageCoercions.testCoerceVector#Output.MayIgnoreWarningContext#Output.MayIgnoreErrorContext#
-#{ library('testrffi', lib.loc = 'tmptest/com.oracle.truffle.r.test.rpackages'); x <- rffi.coerceVector(2.2, 15); detach('package:testrffi', unload=T); x }
-[1] 2.2+0i
-
-##com.oracle.truffle.r.test.rffi.TestRFFIPackageCoercions.testCoerceVector#Output.MayIgnoreWarningContext#Output.MayIgnoreErrorContext#
-#{ library('testrffi', lib.loc = 'tmptest/com.oracle.truffle.r.test.rpackages'); x <- rffi.coerceVector(2.2, 16); detach('package:testrffi', unload=T); x }
-[1] "2.2"
-
-##com.oracle.truffle.r.test.rffi.TestRFFIPackageCoercions.testCoerceVector#Output.MayIgnoreWarningContext#Output.MayIgnoreErrorContext#
-#{ library('testrffi', lib.loc = 'tmptest/com.oracle.truffle.r.test.rpackages'); x <- rffi.coerceVector(2.2, 19); detach('package:testrffi', unload=T); x }
-[[1]]
-[1] 2.2
-
-
-##com.oracle.truffle.r.test.rffi.TestRFFIPackageCoercions.testCoerceVector#Output.MayIgnoreWarningContext#Output.MayIgnoreErrorContext#
-#{ library('testrffi', lib.loc = 'tmptest/com.oracle.truffle.r.test.rpackages'); x <- rffi.coerceVector(2.2, 24); detach('package:testrffi', unload=T); x }
-[1] 02
-
-##com.oracle.truffle.r.test.rffi.TestRFFIPackageCoercions.testCoerceVector#Output.MayIgnoreWarningContext#Output.MayIgnoreErrorContext#
-#{ library('testrffi', lib.loc = 'tmptest/com.oracle.truffle.r.test.rpackages'); x <- rffi.coerceVector(T, 0); detach('package:testrffi', unload=T); x }
-Error in rffi.coerceVector(T, 0) :
-  cannot coerce type 'logical' to vector of type 'NULL'
-
-##com.oracle.truffle.r.test.rffi.TestRFFIPackageCoercions.testCoerceVector#Output.MayIgnoreWarningContext#Output.MayIgnoreErrorContext#
-#{ library('testrffi', lib.loc = 'tmptest/com.oracle.truffle.r.test.rpackages'); x <- rffi.coerceVector(T, 1); detach('package:testrffi', unload=T); x }
-`TRUE`
-
-##com.oracle.truffle.r.test.rffi.TestRFFIPackageCoercions.testCoerceVector#Output.MayIgnoreWarningContext#Output.MayIgnoreErrorContext#
-#{ library('testrffi', lib.loc = 'tmptest/com.oracle.truffle.r.test.rpackages'); x <- rffi.coerceVector(T, 10); detach('package:testrffi', unload=T); x }
-[1] TRUE
-
-##com.oracle.truffle.r.test.rffi.TestRFFIPackageCoercions.testCoerceVector#Output.MayIgnoreWarningContext#Output.MayIgnoreErrorContext#
-#{ library('testrffi', lib.loc = 'tmptest/com.oracle.truffle.r.test.rpackages'); x <- rffi.coerceVector(T, 13); detach('package:testrffi', unload=T); x }
-[1] 1
-
-##com.oracle.truffle.r.test.rffi.TestRFFIPackageCoercions.testCoerceVector#Output.MayIgnoreWarningContext#Output.MayIgnoreErrorContext#
-#{ library('testrffi', lib.loc = 'tmptest/com.oracle.truffle.r.test.rpackages'); x <- rffi.coerceVector(T, 14); detach('package:testrffi', unload=T); x }
-[1] 1
-
-##com.oracle.truffle.r.test.rffi.TestRFFIPackageCoercions.testCoerceVector#Output.MayIgnoreWarningContext#Output.MayIgnoreErrorContext#
-#{ library('testrffi', lib.loc = 'tmptest/com.oracle.truffle.r.test.rpackages'); x <- rffi.coerceVector(T, 15); detach('package:testrffi', unload=T); x }
-[1] 1+0i
-
-##com.oracle.truffle.r.test.rffi.TestRFFIPackageCoercions.testCoerceVector#Output.MayIgnoreWarningContext#Output.MayIgnoreErrorContext#
-#{ library('testrffi', lib.loc = 'tmptest/com.oracle.truffle.r.test.rpackages'); x <- rffi.coerceVector(T, 16); detach('package:testrffi', unload=T); x }
-[1] "TRUE"
-
-##com.oracle.truffle.r.test.rffi.TestRFFIPackageCoercions.testCoerceVector#Output.MayIgnoreWarningContext#Output.MayIgnoreErrorContext#
-#{ library('testrffi', lib.loc = 'tmptest/com.oracle.truffle.r.test.rpackages'); x <- rffi.coerceVector(T, 19); detach('package:testrffi', unload=T); x }
-[[1]]
-[1] TRUE
-
-
-##com.oracle.truffle.r.test.rffi.TestRFFIPackageCoercions.testCoerceVector#Output.MayIgnoreWarningContext#Output.MayIgnoreErrorContext#
-#{ library('testrffi', lib.loc = 'tmptest/com.oracle.truffle.r.test.rpackages'); x <- rffi.coerceVector(T, 24); detach('package:testrffi', unload=T); x }
-[1] 01
-
-##com.oracle.truffle.r.test.rffi.TestRFFIPackageCoercions.testCoerceVector#Output.MayIgnoreWarningContext#Output.MayIgnoreErrorContext#
-#{ library('testrffi', lib.loc = 'tmptest/com.oracle.truffle.r.test.rpackages'); x <- rffi.coerceVector(c(2.3, 3.4), 0); detach('package:testrffi', unload=T); x }
-Error in rffi.coerceVector(c(2.3, 3.4), 0) :
-  cannot coerce type 'double' to vector of type 'NULL'
-
-##com.oracle.truffle.r.test.rffi.TestRFFIPackageCoercions.testCoerceVector#Output.MayIgnoreWarningContext#Output.MayIgnoreErrorContext#
-#{ library('testrffi', lib.loc = 'tmptest/com.oracle.truffle.r.test.rpackages'); x <- rffi.coerceVector(c(2.3, 3.4), 1); detach('package:testrffi', unload=T); x }
-`2.3`
-
-##com.oracle.truffle.r.test.rffi.TestRFFIPackageCoercions.testCoerceVector#Output.MayIgnoreWarningContext#Output.MayIgnoreErrorContext#
-#{ library('testrffi', lib.loc = 'tmptest/com.oracle.truffle.r.test.rpackages'); x <- rffi.coerceVector(c(2.3, 3.4), 10); detach('package:testrffi', unload=T); x }
-[1] TRUE TRUE
-
-##com.oracle.truffle.r.test.rffi.TestRFFIPackageCoercions.testCoerceVector#Output.MayIgnoreWarningContext#Output.MayIgnoreErrorContext#
-#{ library('testrffi', lib.loc = 'tmptest/com.oracle.truffle.r.test.rpackages'); x <- rffi.coerceVector(c(2.3, 3.4), 13); detach('package:testrffi', unload=T); x }
-[1] 2 3
-
-##com.oracle.truffle.r.test.rffi.TestRFFIPackageCoercions.testCoerceVector#Output.MayIgnoreWarningContext#Output.MayIgnoreErrorContext#
-#{ library('testrffi', lib.loc = 'tmptest/com.oracle.truffle.r.test.rpackages'); x <- rffi.coerceVector(c(2.3, 3.4), 14); detach('package:testrffi', unload=T); x }
-[1] 2.3 3.4
-
-##com.oracle.truffle.r.test.rffi.TestRFFIPackageCoercions.testCoerceVector#Output.MayIgnoreWarningContext#Output.MayIgnoreErrorContext#
-#{ library('testrffi', lib.loc = 'tmptest/com.oracle.truffle.r.test.rpackages'); x <- rffi.coerceVector(c(2.3, 3.4), 15); detach('package:testrffi', unload=T); x }
-[1] 2.3+0i 3.4+0i
-
-##com.oracle.truffle.r.test.rffi.TestRFFIPackageCoercions.testCoerceVector#Output.MayIgnoreWarningContext#Output.MayIgnoreErrorContext#
-#{ library('testrffi', lib.loc = 'tmptest/com.oracle.truffle.r.test.rpackages'); x <- rffi.coerceVector(c(2.3, 3.4), 16); detach('package:testrffi', unload=T); x }
-[1] "2.3" "3.4"
-
-##com.oracle.truffle.r.test.rffi.TestRFFIPackageCoercions.testCoerceVector#Output.MayIgnoreWarningContext#Output.MayIgnoreErrorContext#
-#{ library('testrffi', lib.loc = 'tmptest/com.oracle.truffle.r.test.rpackages'); x <- rffi.coerceVector(c(2.3, 3.4), 19); detach('package:testrffi', unload=T); x }
-[[1]]
-[1] 2.3
-
-[[2]]
-[1] 3.4
-
-
-##com.oracle.truffle.r.test.rffi.TestRFFIPackageCoercions.testCoerceVector#Output.MayIgnoreWarningContext#Output.MayIgnoreErrorContext#
-#{ library('testrffi', lib.loc = 'tmptest/com.oracle.truffle.r.test.rpackages'); x <- rffi.coerceVector(c(2.3, 3.4), 24); detach('package:testrffi', unload=T); x }
-[1] 02 03
-
-##com.oracle.truffle.r.test.rffi.TestRFFIPackageCoercions.testCoerceVector#Output.MayIgnoreWarningContext#Output.MayIgnoreErrorContext#
-#{ library('testrffi', lib.loc = 'tmptest/com.oracle.truffle.r.test.rpackages'); x <- rffi.coerceVector(c(5,6), 0); detach('package:testrffi', unload=T); x }
-Error in rffi.coerceVector(c(5, 6), 0) :
-  cannot coerce type 'double' to vector of type 'NULL'
-
-##com.oracle.truffle.r.test.rffi.TestRFFIPackageCoercions.testCoerceVector#Output.MayIgnoreWarningContext#Output.MayIgnoreErrorContext#
-#{ library('testrffi', lib.loc = 'tmptest/com.oracle.truffle.r.test.rpackages'); x <- rffi.coerceVector(c(5,6), 1); detach('package:testrffi', unload=T); x }
-`5`
-
-##com.oracle.truffle.r.test.rffi.TestRFFIPackageCoercions.testCoerceVector#Output.MayIgnoreWarningContext#Output.MayIgnoreErrorContext#
-#{ library('testrffi', lib.loc = 'tmptest/com.oracle.truffle.r.test.rpackages'); x <- rffi.coerceVector(c(5,6), 10); detach('package:testrffi', unload=T); x }
-[1] TRUE TRUE
-
-##com.oracle.truffle.r.test.rffi.TestRFFIPackageCoercions.testCoerceVector#Output.MayIgnoreWarningContext#Output.MayIgnoreErrorContext#
-#{ library('testrffi', lib.loc = 'tmptest/com.oracle.truffle.r.test.rpackages'); x <- rffi.coerceVector(c(5,6), 13); detach('package:testrffi', unload=T); x }
-[1] 5 6
-
-##com.oracle.truffle.r.test.rffi.TestRFFIPackageCoercions.testCoerceVector#Output.MayIgnoreWarningContext#Output.MayIgnoreErrorContext#
-#{ library('testrffi', lib.loc = 'tmptest/com.oracle.truffle.r.test.rpackages'); x <- rffi.coerceVector(c(5,6), 14); detach('package:testrffi', unload=T); x }
-[1] 5 6
-
-##com.oracle.truffle.r.test.rffi.TestRFFIPackageCoercions.testCoerceVector#Output.MayIgnoreWarningContext#Output.MayIgnoreErrorContext#
-#{ library('testrffi', lib.loc = 'tmptest/com.oracle.truffle.r.test.rpackages'); x <- rffi.coerceVector(c(5,6), 15); detach('package:testrffi', unload=T); x }
-[1] 5+0i 6+0i
-
-##com.oracle.truffle.r.test.rffi.TestRFFIPackageCoercions.testCoerceVector#Output.MayIgnoreWarningContext#Output.MayIgnoreErrorContext#
-#{ library('testrffi', lib.loc = 'tmptest/com.oracle.truffle.r.test.rpackages'); x <- rffi.coerceVector(c(5,6), 16); detach('package:testrffi', unload=T); x }
-[1] "5" "6"
-
-##com.oracle.truffle.r.test.rffi.TestRFFIPackageCoercions.testCoerceVector#Output.MayIgnoreWarningContext#Output.MayIgnoreErrorContext#
-#{ library('testrffi', lib.loc = 'tmptest/com.oracle.truffle.r.test.rpackages'); x <- rffi.coerceVector(c(5,6), 19); detach('package:testrffi', unload=T); x }
-[[1]]
-[1] 5
-
-[[2]]
-[1] 6
-
-
-##com.oracle.truffle.r.test.rffi.TestRFFIPackageCoercions.testCoerceVector#Output.MayIgnoreWarningContext#Output.MayIgnoreErrorContext#
-#{ library('testrffi', lib.loc = 'tmptest/com.oracle.truffle.r.test.rpackages'); x <- rffi.coerceVector(c(5,6), 24); detach('package:testrffi', unload=T); x }
-[1] 05 06
-
-##com.oracle.truffle.r.test.rffi.TestRFFIPackageCoercions.testCoerceVector#Output.MayIgnoreWarningContext#Output.MayIgnoreErrorContext#
-#{ library('testrffi', lib.loc = 'tmptest/com.oracle.truffle.r.test.rpackages'); x <- rffi.coerceVector(c(T, F), 0); detach('package:testrffi', unload=T); x }
-Error in rffi.coerceVector(c(T, F), 0) :
-  cannot coerce type 'logical' to vector of type 'NULL'
-
-##com.oracle.truffle.r.test.rffi.TestRFFIPackageCoercions.testCoerceVector#Output.MayIgnoreWarningContext#Output.MayIgnoreErrorContext#
-#{ library('testrffi', lib.loc = 'tmptest/com.oracle.truffle.r.test.rpackages'); x <- rffi.coerceVector(c(T, F), 1); detach('package:testrffi', unload=T); x }
-`TRUE`
-
-##com.oracle.truffle.r.test.rffi.TestRFFIPackageCoercions.testCoerceVector#Output.MayIgnoreWarningContext#Output.MayIgnoreErrorContext#
-#{ library('testrffi', lib.loc = 'tmptest/com.oracle.truffle.r.test.rpackages'); x <- rffi.coerceVector(c(T, F), 10); detach('package:testrffi', unload=T); x }
-[1]  TRUE FALSE
-
-##com.oracle.truffle.r.test.rffi.TestRFFIPackageCoercions.testCoerceVector#Output.MayIgnoreWarningContext#Output.MayIgnoreErrorContext#
-#{ library('testrffi', lib.loc = 'tmptest/com.oracle.truffle.r.test.rpackages'); x <- rffi.coerceVector(c(T, F), 13); detach('package:testrffi', unload=T); x }
-[1] 1 0
-
-##com.oracle.truffle.r.test.rffi.TestRFFIPackageCoercions.testCoerceVector#Output.MayIgnoreWarningContext#Output.MayIgnoreErrorContext#
-#{ library('testrffi', lib.loc = 'tmptest/com.oracle.truffle.r.test.rpackages'); x <- rffi.coerceVector(c(T, F), 14); detach('package:testrffi', unload=T); x }
-[1] 1 0
-
-##com.oracle.truffle.r.test.rffi.TestRFFIPackageCoercions.testCoerceVector#Output.MayIgnoreWarningContext#Output.MayIgnoreErrorContext#
-#{ library('testrffi', lib.loc = 'tmptest/com.oracle.truffle.r.test.rpackages'); x <- rffi.coerceVector(c(T, F), 15); detach('package:testrffi', unload=T); x }
-[1] 1+0i 0+0i
-
-##com.oracle.truffle.r.test.rffi.TestRFFIPackageCoercions.testCoerceVector#Output.MayIgnoreWarningContext#Output.MayIgnoreErrorContext#
-#{ library('testrffi', lib.loc = 'tmptest/com.oracle.truffle.r.test.rpackages'); x <- rffi.coerceVector(c(T, F), 16); detach('package:testrffi', unload=T); x }
-[1] "TRUE"  "FALSE"
-
-##com.oracle.truffle.r.test.rffi.TestRFFIPackageCoercions.testCoerceVector#Output.MayIgnoreWarningContext#Output.MayIgnoreErrorContext#
-#{ library('testrffi', lib.loc = 'tmptest/com.oracle.truffle.r.test.rpackages'); x <- rffi.coerceVector(c(T, F), 19); detach('package:testrffi', unload=T); x }
-[[1]]
-[1] TRUE
-
-[[2]]
-[1] FALSE
-
-
-##com.oracle.truffle.r.test.rffi.TestRFFIPackageCoercions.testCoerceVector#Output.MayIgnoreWarningContext#Output.MayIgnoreErrorContext#
-#{ library('testrffi', lib.loc = 'tmptest/com.oracle.truffle.r.test.rpackages'); x <- rffi.coerceVector(c(T, F), 24); detach('package:testrffi', unload=T); x }
-[1] 01 00
-
-##com.oracle.truffle.r.test.rffi.TestRFFIPackageCoercions.testCoerceVector#Output.MayIgnoreWarningContext#Output.MayIgnoreErrorContext#
-#{ library('testrffi', lib.loc = 'tmptest/com.oracle.truffle.r.test.rpackages'); x <- rffi.coerceVector(character(), 0); detach('package:testrffi', unload=T); x }
-Error in rffi.coerceVector(character(), 0) :
-  cannot coerce type 'character' to vector of type 'NULL'
-
-##com.oracle.truffle.r.test.rffi.TestRFFIPackageCoercions.testCoerceVector#Output.MayIgnoreWarningContext#Output.MayIgnoreErrorContext#
-#{ library('testrffi', lib.loc = 'tmptest/com.oracle.truffle.r.test.rpackages'); x <- rffi.coerceVector(character(), 1); detach('package:testrffi', unload=T); x }
-Error in rffi.coerceVector(character(), 1) :
-  invalid data of mode 'character' (too short)
-
-##com.oracle.truffle.r.test.rffi.TestRFFIPackageCoercions.testCoerceVector#Output.MayIgnoreWarningContext#Output.MayIgnoreErrorContext#
-#{ library('testrffi', lib.loc = 'tmptest/com.oracle.truffle.r.test.rpackages'); x <- rffi.coerceVector(character(), 10); detach('package:testrffi', unload=T); x }
-logical(0)
-
-##com.oracle.truffle.r.test.rffi.TestRFFIPackageCoercions.testCoerceVector#Output.MayIgnoreWarningContext#Output.MayIgnoreErrorContext#
-#{ library('testrffi', lib.loc = 'tmptest/com.oracle.truffle.r.test.rpackages'); x <- rffi.coerceVector(character(), 13); detach('package:testrffi', unload=T); x }
-integer(0)
-
-##com.oracle.truffle.r.test.rffi.TestRFFIPackageCoercions.testCoerceVector#Output.MayIgnoreWarningContext#Output.MayIgnoreErrorContext#
-#{ library('testrffi', lib.loc = 'tmptest/com.oracle.truffle.r.test.rpackages'); x <- rffi.coerceVector(character(), 14); detach('package:testrffi', unload=T); x }
-numeric(0)
-
-##com.oracle.truffle.r.test.rffi.TestRFFIPackageCoercions.testCoerceVector#Output.MayIgnoreWarningContext#Output.MayIgnoreErrorContext#
-#{ library('testrffi', lib.loc = 'tmptest/com.oracle.truffle.r.test.rpackages'); x <- rffi.coerceVector(character(), 15); detach('package:testrffi', unload=T); x }
-complex(0)
-
-##com.oracle.truffle.r.test.rffi.TestRFFIPackageCoercions.testCoerceVector#Output.MayIgnoreWarningContext#Output.MayIgnoreErrorContext#
-#{ library('testrffi', lib.loc = 'tmptest/com.oracle.truffle.r.test.rpackages'); x <- rffi.coerceVector(character(), 16); detach('package:testrffi', unload=T); x }
-character(0)
-
-##com.oracle.truffle.r.test.rffi.TestRFFIPackageCoercions.testCoerceVector#Output.MayIgnoreWarningContext#Output.MayIgnoreErrorContext#
-#{ library('testrffi', lib.loc = 'tmptest/com.oracle.truffle.r.test.rpackages'); x <- rffi.coerceVector(character(), 19); detach('package:testrffi', unload=T); x }
-list()
-
-##com.oracle.truffle.r.test.rffi.TestRFFIPackageCoercions.testCoerceVector#Output.MayIgnoreWarningContext#Output.MayIgnoreErrorContext#
-#{ library('testrffi', lib.loc = 'tmptest/com.oracle.truffle.r.test.rpackages'); x <- rffi.coerceVector(character(), 24); detach('package:testrffi', unload=T); x }
-raw(0)
-
-##com.oracle.truffle.r.test.rffi.TestRFFIPackageCoercions.testCoerceVector#Output.MayIgnoreWarningContext#Output.MayIgnoreErrorContext#
-#{ library('testrffi', lib.loc = 'tmptest/com.oracle.truffle.r.test.rpackages'); x <- rffi.coerceVector(integer(), 0); detach('package:testrffi', unload=T); x }
-Error in rffi.coerceVector(integer(), 0) :
-  cannot coerce type 'integer' to vector of type 'NULL'
-
-##com.oracle.truffle.r.test.rffi.TestRFFIPackageCoercions.testCoerceVector#Output.MayIgnoreWarningContext#Output.MayIgnoreErrorContext#
-#{ library('testrffi', lib.loc = 'tmptest/com.oracle.truffle.r.test.rpackages'); x <- rffi.coerceVector(integer(), 1); detach('package:testrffi', unload=T); x }
-Error in rffi.coerceVector(integer(), 1) :
-  invalid data of mode 'integer' (too short)
-
-##com.oracle.truffle.r.test.rffi.TestRFFIPackageCoercions.testCoerceVector#Output.MayIgnoreWarningContext#Output.MayIgnoreErrorContext#
-#{ library('testrffi', lib.loc = 'tmptest/com.oracle.truffle.r.test.rpackages'); x <- rffi.coerceVector(integer(), 10); detach('package:testrffi', unload=T); x }
-logical(0)
-
-##com.oracle.truffle.r.test.rffi.TestRFFIPackageCoercions.testCoerceVector#Output.MayIgnoreWarningContext#Output.MayIgnoreErrorContext#
-#{ library('testrffi', lib.loc = 'tmptest/com.oracle.truffle.r.test.rpackages'); x <- rffi.coerceVector(integer(), 13); detach('package:testrffi', unload=T); x }
-integer(0)
-
-##com.oracle.truffle.r.test.rffi.TestRFFIPackageCoercions.testCoerceVector#Output.MayIgnoreWarningContext#Output.MayIgnoreErrorContext#
-#{ library('testrffi', lib.loc = 'tmptest/com.oracle.truffle.r.test.rpackages'); x <- rffi.coerceVector(integer(), 14); detach('package:testrffi', unload=T); x }
-numeric(0)
-
-##com.oracle.truffle.r.test.rffi.TestRFFIPackageCoercions.testCoerceVector#Output.MayIgnoreWarningContext#Output.MayIgnoreErrorContext#
-#{ library('testrffi', lib.loc = 'tmptest/com.oracle.truffle.r.test.rpackages'); x <- rffi.coerceVector(integer(), 15); detach('package:testrffi', unload=T); x }
-complex(0)
-
-##com.oracle.truffle.r.test.rffi.TestRFFIPackageCoercions.testCoerceVector#Output.MayIgnoreWarningContext#Output.MayIgnoreErrorContext#
-#{ library('testrffi', lib.loc = 'tmptest/com.oracle.truffle.r.test.rpackages'); x <- rffi.coerceVector(integer(), 16); detach('package:testrffi', unload=T); x }
-character(0)
-
-##com.oracle.truffle.r.test.rffi.TestRFFIPackageCoercions.testCoerceVector#Output.MayIgnoreWarningContext#Output.MayIgnoreErrorContext#
-#{ library('testrffi', lib.loc = 'tmptest/com.oracle.truffle.r.test.rpackages'); x <- rffi.coerceVector(integer(), 19); detach('package:testrffi', unload=T); x }
-list()
-
-##com.oracle.truffle.r.test.rffi.TestRFFIPackageCoercions.testCoerceVector#Output.MayIgnoreWarningContext#Output.MayIgnoreErrorContext#
-#{ library('testrffi', lib.loc = 'tmptest/com.oracle.truffle.r.test.rpackages'); x <- rffi.coerceVector(integer(), 24); detach('package:testrffi', unload=T); x }
-raw(0)
-
-##com.oracle.truffle.r.test.rffi.TestRFFIPackageCoercions.testCoerceVector#Output.MayIgnoreWarningContext#Output.MayIgnoreErrorContext#
-#{ library('testrffi', lib.loc = 'tmptest/com.oracle.truffle.r.test.rpackages'); x <- rffi.coerceVector(list(), 0); detach('package:testrffi', unload=T); x }
-Error in rffi.coerceVector(list(), 0) :
-  unimplemented type 'list' in 'coerceVectorList'
-
-##com.oracle.truffle.r.test.rffi.TestRFFIPackageCoercions.testCoerceVector#Output.MayIgnoreWarningContext#Output.MayIgnoreErrorContext#
-#{ library('testrffi', lib.loc = 'tmptest/com.oracle.truffle.r.test.rpackages'); x <- rffi.coerceVector(list(), 1); detach('package:testrffi', unload=T); x }
-Error in rffi.coerceVector(list(), 1) :
-  invalid type/length (symbol/0) in vector allocation
-
-##com.oracle.truffle.r.test.rffi.TestRFFIPackageCoercions.testCoerceVector#Output.MayIgnoreWarningContext#Output.MayIgnoreErrorContext#
-#{ library('testrffi', lib.loc = 'tmptest/com.oracle.truffle.r.test.rpackages'); x <- rffi.coerceVector(list(), 10); detach('package:testrffi', unload=T); x }
-logical(0)
-
-##com.oracle.truffle.r.test.rffi.TestRFFIPackageCoercions.testCoerceVector#Output.MayIgnoreWarningContext#Output.MayIgnoreErrorContext#
-#{ library('testrffi', lib.loc = 'tmptest/com.oracle.truffle.r.test.rpackages'); x <- rffi.coerceVector(list(), 13); detach('package:testrffi', unload=T); x }
-integer(0)
-
-##com.oracle.truffle.r.test.rffi.TestRFFIPackageCoercions.testCoerceVector#Output.MayIgnoreWarningContext#Output.MayIgnoreErrorContext#
-#{ library('testrffi', lib.loc = 'tmptest/com.oracle.truffle.r.test.rpackages'); x <- rffi.coerceVector(list(), 14); detach('package:testrffi', unload=T); x }
-numeric(0)
-
-##com.oracle.truffle.r.test.rffi.TestRFFIPackageCoercions.testCoerceVector#Output.MayIgnoreWarningContext#Output.MayIgnoreErrorContext#
-#{ library('testrffi', lib.loc = 'tmptest/com.oracle.truffle.r.test.rpackages'); x <- rffi.coerceVector(list(), 15); detach('package:testrffi', unload=T); x }
-complex(0)
-
-##com.oracle.truffle.r.test.rffi.TestRFFIPackageCoercions.testCoerceVector#Output.MayIgnoreWarningContext#Output.MayIgnoreErrorContext#
-#{ library('testrffi', lib.loc = 'tmptest/com.oracle.truffle.r.test.rpackages'); x <- rffi.coerceVector(list(), 16); detach('package:testrffi', unload=T); x }
-character(0)
-
-##com.oracle.truffle.r.test.rffi.TestRFFIPackageCoercions.testCoerceVector#Output.MayIgnoreWarningContext#Output.MayIgnoreErrorContext#
-#{ library('testrffi', lib.loc = 'tmptest/com.oracle.truffle.r.test.rpackages'); x <- rffi.coerceVector(list(), 19); detach('package:testrffi', unload=T); x }
-list()
-
-##com.oracle.truffle.r.test.rffi.TestRFFIPackageCoercions.testCoerceVector#Output.MayIgnoreWarningContext#Output.MayIgnoreErrorContext#
-#{ library('testrffi', lib.loc = 'tmptest/com.oracle.truffle.r.test.rpackages'); x <- rffi.coerceVector(list(), 24); detach('package:testrffi', unload=T); x }
-raw(0)
-
-##com.oracle.truffle.r.test.rffi.TestRFFIPackageCoercions.testCoerceVector#Output.MayIgnoreWarningContext#Output.MayIgnoreErrorContext#
-#{ library('testrffi', lib.loc = 'tmptest/com.oracle.truffle.r.test.rpackages'); x <- rffi.coerceVector(logical(), 0); detach('package:testrffi', unload=T); x }
-Error in rffi.coerceVector(logical(), 0) :
-  cannot coerce type 'logical' to vector of type 'NULL'
-
-##com.oracle.truffle.r.test.rffi.TestRFFIPackageCoercions.testCoerceVector#Output.MayIgnoreWarningContext#Output.MayIgnoreErrorContext#
-#{ library('testrffi', lib.loc = 'tmptest/com.oracle.truffle.r.test.rpackages'); x <- rffi.coerceVector(logical(), 1); detach('package:testrffi', unload=T); x }
-Error in rffi.coerceVector(logical(), 1) :
-  invalid data of mode 'logical' (too short)
-
-##com.oracle.truffle.r.test.rffi.TestRFFIPackageCoercions.testCoerceVector#Output.MayIgnoreWarningContext#Output.MayIgnoreErrorContext#
-#{ library('testrffi', lib.loc = 'tmptest/com.oracle.truffle.r.test.rpackages'); x <- rffi.coerceVector(logical(), 10); detach('package:testrffi', unload=T); x }
-logical(0)
-
-##com.oracle.truffle.r.test.rffi.TestRFFIPackageCoercions.testCoerceVector#Output.MayIgnoreWarningContext#Output.MayIgnoreErrorContext#
-#{ library('testrffi', lib.loc = 'tmptest/com.oracle.truffle.r.test.rpackages'); x <- rffi.coerceVector(logical(), 13); detach('package:testrffi', unload=T); x }
-integer(0)
-
-##com.oracle.truffle.r.test.rffi.TestRFFIPackageCoercions.testCoerceVector#Output.MayIgnoreWarningContext#Output.MayIgnoreErrorContext#
-#{ library('testrffi', lib.loc = 'tmptest/com.oracle.truffle.r.test.rpackages'); x <- rffi.coerceVector(logical(), 14); detach('package:testrffi', unload=T); x }
-numeric(0)
-
-##com.oracle.truffle.r.test.rffi.TestRFFIPackageCoercions.testCoerceVector#Output.MayIgnoreWarningContext#Output.MayIgnoreErrorContext#
-#{ library('testrffi', lib.loc = 'tmptest/com.oracle.truffle.r.test.rpackages'); x <- rffi.coerceVector(logical(), 15); detach('package:testrffi', unload=T); x }
-complex(0)
-
-##com.oracle.truffle.r.test.rffi.TestRFFIPackageCoercions.testCoerceVector#Output.MayIgnoreWarningContext#Output.MayIgnoreErrorContext#
-#{ library('testrffi', lib.loc = 'tmptest/com.oracle.truffle.r.test.rpackages'); x <- rffi.coerceVector(logical(), 16); detach('package:testrffi', unload=T); x }
-character(0)
-
-##com.oracle.truffle.r.test.rffi.TestRFFIPackageCoercions.testCoerceVector#Output.MayIgnoreWarningContext#Output.MayIgnoreErrorContext#
-#{ library('testrffi', lib.loc = 'tmptest/com.oracle.truffle.r.test.rpackages'); x <- rffi.coerceVector(logical(), 19); detach('package:testrffi', unload=T); x }
-list()
-
-##com.oracle.truffle.r.test.rffi.TestRFFIPackageCoercions.testCoerceVector#Output.MayIgnoreWarningContext#Output.MayIgnoreErrorContext#
-#{ library('testrffi', lib.loc = 'tmptest/com.oracle.truffle.r.test.rpackages'); x <- rffi.coerceVector(logical(), 24); detach('package:testrffi', unload=T); x }
-raw(0)
-
-##com.oracle.truffle.r.test.rffi.TestRFFIPackageCoercions.testCoerceVector#Output.MayIgnoreWarningContext#Output.MayIgnoreErrorContext#
-#{ library('testrffi', lib.loc = 'tmptest/com.oracle.truffle.r.test.rpackages'); x <- rffi.coerceVector(numeric(), 0); detach('package:testrffi', unload=T); x }
-Error in rffi.coerceVector(numeric(), 0) :
-  cannot coerce type 'double' to vector of type 'NULL'
-
-##com.oracle.truffle.r.test.rffi.TestRFFIPackageCoercions.testCoerceVector#Output.MayIgnoreWarningContext#Output.MayIgnoreErrorContext#
-#{ library('testrffi', lib.loc = 'tmptest/com.oracle.truffle.r.test.rpackages'); x <- rffi.coerceVector(numeric(), 1); detach('package:testrffi', unload=T); x }
-Error in rffi.coerceVector(numeric(), 1) :
-  invalid data of mode 'double' (too short)
-
-##com.oracle.truffle.r.test.rffi.TestRFFIPackageCoercions.testCoerceVector#Output.MayIgnoreWarningContext#Output.MayIgnoreErrorContext#
-#{ library('testrffi', lib.loc = 'tmptest/com.oracle.truffle.r.test.rpackages'); x <- rffi.coerceVector(numeric(), 10); detach('package:testrffi', unload=T); x }
-logical(0)
-
-##com.oracle.truffle.r.test.rffi.TestRFFIPackageCoercions.testCoerceVector#Output.MayIgnoreWarningContext#Output.MayIgnoreErrorContext#
-#{ library('testrffi', lib.loc = 'tmptest/com.oracle.truffle.r.test.rpackages'); x <- rffi.coerceVector(numeric(), 13); detach('package:testrffi', unload=T); x }
-integer(0)
-
-##com.oracle.truffle.r.test.rffi.TestRFFIPackageCoercions.testCoerceVector#Output.MayIgnoreWarningContext#Output.MayIgnoreErrorContext#
-#{ library('testrffi', lib.loc = 'tmptest/com.oracle.truffle.r.test.rpackages'); x <- rffi.coerceVector(numeric(), 14); detach('package:testrffi', unload=T); x }
-numeric(0)
-
-##com.oracle.truffle.r.test.rffi.TestRFFIPackageCoercions.testCoerceVector#Output.MayIgnoreWarningContext#Output.MayIgnoreErrorContext#
-#{ library('testrffi', lib.loc = 'tmptest/com.oracle.truffle.r.test.rpackages'); x <- rffi.coerceVector(numeric(), 15); detach('package:testrffi', unload=T); x }
-complex(0)
-
-##com.oracle.truffle.r.test.rffi.TestRFFIPackageCoercions.testCoerceVector#Output.MayIgnoreWarningContext#Output.MayIgnoreErrorContext#
-#{ library('testrffi', lib.loc = 'tmptest/com.oracle.truffle.r.test.rpackages'); x <- rffi.coerceVector(numeric(), 16); detach('package:testrffi', unload=T); x }
-character(0)
-
-##com.oracle.truffle.r.test.rffi.TestRFFIPackageCoercions.testCoerceVector#Output.MayIgnoreWarningContext#Output.MayIgnoreErrorContext#
-#{ library('testrffi', lib.loc = 'tmptest/com.oracle.truffle.r.test.rpackages'); x <- rffi.coerceVector(numeric(), 19); detach('package:testrffi', unload=T); x }
-list()
-
-##com.oracle.truffle.r.test.rffi.TestRFFIPackageCoercions.testCoerceVector#Output.MayIgnoreWarningContext#Output.MayIgnoreErrorContext#
-#{ library('testrffi', lib.loc = 'tmptest/com.oracle.truffle.r.test.rpackages'); x <- rffi.coerceVector(numeric(), 24); detach('package:testrffi', unload=T); x }
-raw(0)
-
-##com.oracle.truffle.r.test.rffi.TestRFFIPackageCoercions.testCoerceVector#Output.MayIgnoreWarningContext#Output.MayIgnoreErrorContext#
-#{ library('testrffi', lib.loc = 'tmptest/com.oracle.truffle.r.test.rpackages'); x <- rffi.coerceVector(structure(1L,names='a',dim=c(1,1),myattr='q'), 0); detach('package:testrffi', unload=T); x }
-Error in rffi.coerceVector(structure(1L, names = "a", dim = c(1, 1), myattr = "q"),  :
-  cannot coerce type 'integer' to vector of type 'NULL'
-
-##com.oracle.truffle.r.test.rffi.TestRFFIPackageCoercions.testCoerceVector#Output.MayIgnoreWarningContext#Output.MayIgnoreErrorContext#
-#{ library('testrffi', lib.loc = 'tmptest/com.oracle.truffle.r.test.rpackages'); x <- rffi.coerceVector(structure(1L,names='a',dim=c(1,1),myattr='q'), 1); detach('package:testrffi', unload=T); x }
-`1`
-
-##com.oracle.truffle.r.test.rffi.TestRFFIPackageCoercions.testCoerceVector#Output.MayIgnoreWarningContext#Output.MayIgnoreErrorContext#
-#{ library('testrffi', lib.loc = 'tmptest/com.oracle.truffle.r.test.rpackages'); x <- rffi.coerceVector(structure(1L,names='a',dim=c(1,1),myattr='q'), 10); detach('package:testrffi', unload=T); x }
-     [,1]
-[1,] TRUE
-attr(,"names")
-[1] "a"
-attr(,"myattr")
-[1] "q"
-
-##com.oracle.truffle.r.test.rffi.TestRFFIPackageCoercions.testCoerceVector#Output.MayIgnoreWarningContext#Output.MayIgnoreErrorContext#
-#{ library('testrffi', lib.loc = 'tmptest/com.oracle.truffle.r.test.rpackages'); x <- rffi.coerceVector(structure(1L,names='a',dim=c(1,1),myattr='q'), 13); detach('package:testrffi', unload=T); x }
-     [,1]
-[1,]    1
-attr(,"names")
-[1] "a"
-attr(,"myattr")
-[1] "q"
-
-##com.oracle.truffle.r.test.rffi.TestRFFIPackageCoercions.testCoerceVector#Output.MayIgnoreWarningContext#Output.MayIgnoreErrorContext#
-#{ library('testrffi', lib.loc = 'tmptest/com.oracle.truffle.r.test.rpackages'); x <- rffi.coerceVector(structure(1L,names='a',dim=c(1,1),myattr='q'), 14); detach('package:testrffi', unload=T); x }
-     [,1]
-[1,]    1
-attr(,"names")
-[1] "a"
-attr(,"myattr")
-[1] "q"
-
-##com.oracle.truffle.r.test.rffi.TestRFFIPackageCoercions.testCoerceVector#Output.MayIgnoreWarningContext#Output.MayIgnoreErrorContext#
-#{ library('testrffi', lib.loc = 'tmptest/com.oracle.truffle.r.test.rpackages'); x <- rffi.coerceVector(structure(1L,names='a',dim=c(1,1),myattr='q'), 15); detach('package:testrffi', unload=T); x }
-     [,1]
-[1,] 1+0i
-attr(,"names")
-[1] "a"
-attr(,"myattr")
-[1] "q"
-
-##com.oracle.truffle.r.test.rffi.TestRFFIPackageCoercions.testCoerceVector#Output.MayIgnoreWarningContext#Output.MayIgnoreErrorContext#
-#{ library('testrffi', lib.loc = 'tmptest/com.oracle.truffle.r.test.rpackages'); x <- rffi.coerceVector(structure(1L,names='a',dim=c(1,1),myattr='q'), 16); detach('package:testrffi', unload=T); x }
-     [,1]
-[1,] "1"
-attr(,"names")
-[1] "a"
-attr(,"myattr")
-[1] "q"
-
-##com.oracle.truffle.r.test.rffi.TestRFFIPackageCoercions.testCoerceVector#Output.MayIgnoreWarningContext#Output.MayIgnoreErrorContext#
-#{ library('testrffi', lib.loc = 'tmptest/com.oracle.truffle.r.test.rpackages'); x <- rffi.coerceVector(structure(1L,names='a',dim=c(1,1),myattr='q'), 19); detach('package:testrffi', unload=T); x }
-$a
-[1] 1
-
-
-##com.oracle.truffle.r.test.rffi.TestRFFIPackageCoercions.testCoerceVector#Output.MayIgnoreWarningContext#Output.MayIgnoreErrorContext#
-#{ library('testrffi', lib.loc = 'tmptest/com.oracle.truffle.r.test.rpackages'); x <- rffi.coerceVector(structure(1L,names='a',dim=c(1,1),myattr='q'), 24); detach('package:testrffi', unload=T); x }
-     [,1]
-[1,]   01
-attr(,"names")
-[1] "a"
-attr(,"myattr")
-[1] "q"
-
-##com.oracle.truffle.r.test.rffi.TestRFFIPackageCoercions.testCoerceVector#Output.MayIgnoreWarningContext#Output.MayIgnoreErrorContext#
-#{ library('testrffi', lib.loc = 'tmptest/com.oracle.truffle.r.test.rpackages'); x <- rffi.coerceVector(structure(2.2, names='b',dim=c(1,1),myattr='q'), 0); detach('package:testrffi', unload=T); x }
-Error in rffi.coerceVector(structure(2.2, names = "b", dim = c(1, 1),  :
-  cannot coerce type 'double' to vector of type 'NULL'
-
-##com.oracle.truffle.r.test.rffi.TestRFFIPackageCoercions.testCoerceVector#Output.MayIgnoreWarningContext#Output.MayIgnoreErrorContext#
-#{ library('testrffi', lib.loc = 'tmptest/com.oracle.truffle.r.test.rpackages'); x <- rffi.coerceVector(structure(2.2, names='b',dim=c(1,1),myattr='q'), 1); detach('package:testrffi', unload=T); x }
-`2.2`
-
-##com.oracle.truffle.r.test.rffi.TestRFFIPackageCoercions.testCoerceVector#Output.MayIgnoreWarningContext#Output.MayIgnoreErrorContext#
-#{ library('testrffi', lib.loc = 'tmptest/com.oracle.truffle.r.test.rpackages'); x <- rffi.coerceVector(structure(2.2, names='b',dim=c(1,1),myattr='q'), 10); detach('package:testrffi', unload=T); x }
-     [,1]
-[1,] TRUE
-attr(,"names")
-[1] "b"
-attr(,"myattr")
-[1] "q"
-
-##com.oracle.truffle.r.test.rffi.TestRFFIPackageCoercions.testCoerceVector#Output.MayIgnoreWarningContext#Output.MayIgnoreErrorContext#
-#{ library('testrffi', lib.loc = 'tmptest/com.oracle.truffle.r.test.rpackages'); x <- rffi.coerceVector(structure(2.2, names='b',dim=c(1,1),myattr='q'), 13); detach('package:testrffi', unload=T); x }
-     [,1]
-[1,]    2
-attr(,"names")
-[1] "b"
-attr(,"myattr")
-[1] "q"
-
-##com.oracle.truffle.r.test.rffi.TestRFFIPackageCoercions.testCoerceVector#Output.MayIgnoreWarningContext#Output.MayIgnoreErrorContext#
-#{ library('testrffi', lib.loc = 'tmptest/com.oracle.truffle.r.test.rpackages'); x <- rffi.coerceVector(structure(2.2, names='b',dim=c(1,1),myattr='q'), 14); detach('package:testrffi', unload=T); x }
-     [,1]
-[1,]  2.2
-attr(,"names")
-[1] "b"
-attr(,"myattr")
-[1] "q"
-
-##com.oracle.truffle.r.test.rffi.TestRFFIPackageCoercions.testCoerceVector#Output.MayIgnoreWarningContext#Output.MayIgnoreErrorContext#
-#{ library('testrffi', lib.loc = 'tmptest/com.oracle.truffle.r.test.rpackages'); x <- rffi.coerceVector(structure(2.2, names='b',dim=c(1,1),myattr='q'), 15); detach('package:testrffi', unload=T); x }
-       [,1]
-[1,] 2.2+0i
-attr(,"names")
-[1] "b"
-attr(,"myattr")
-[1] "q"
-
-##com.oracle.truffle.r.test.rffi.TestRFFIPackageCoercions.testCoerceVector#Output.MayIgnoreWarningContext#Output.MayIgnoreErrorContext#
-#{ library('testrffi', lib.loc = 'tmptest/com.oracle.truffle.r.test.rpackages'); x <- rffi.coerceVector(structure(2.2, names='b',dim=c(1,1),myattr='q'), 16); detach('package:testrffi', unload=T); x }
-     [,1]
-[1,] "2.2"
-attr(,"names")
-[1] "b"
-attr(,"myattr")
-[1] "q"
-
-##com.oracle.truffle.r.test.rffi.TestRFFIPackageCoercions.testCoerceVector#Output.MayIgnoreWarningContext#Output.MayIgnoreErrorContext#
-#{ library('testrffi', lib.loc = 'tmptest/com.oracle.truffle.r.test.rpackages'); x <- rffi.coerceVector(structure(2.2, names='b',dim=c(1,1),myattr='q'), 19); detach('package:testrffi', unload=T); x }
-$b
-[1] 2.2
-
-
-##com.oracle.truffle.r.test.rffi.TestRFFIPackageCoercions.testCoerceVector#Output.MayIgnoreWarningContext#Output.MayIgnoreErrorContext#
-#{ library('testrffi', lib.loc = 'tmptest/com.oracle.truffle.r.test.rpackages'); x <- rffi.coerceVector(structure(2.2, names='b',dim=c(1,1),myattr='q'), 24); detach('package:testrffi', unload=T); x }
-     [,1]
-[1,]   02
-attr(,"names")
-[1] "b"
-attr(,"myattr")
-[1] "q"
-
-##com.oracle.truffle.r.test.rffi.TestRFFIPackageCoercions.testCoerceVector#Output.MayIgnoreWarningContext#Output.MayIgnoreErrorContext#
-#{ library('testrffi', lib.loc = 'tmptest/com.oracle.truffle.r.test.rpackages'); x <- rffi.coerceVector(structure(T, names='c',dim=c(1,1),myattr='q'), 0); detach('package:testrffi', unload=T); x }
-Error in rffi.coerceVector(structure(T, names = "c", dim = c(1, 1), myattr = "q"),  :
-  cannot coerce type 'logical' to vector of type 'NULL'
-
-##com.oracle.truffle.r.test.rffi.TestRFFIPackageCoercions.testCoerceVector#Output.MayIgnoreWarningContext#Output.MayIgnoreErrorContext#
-#{ library('testrffi', lib.loc = 'tmptest/com.oracle.truffle.r.test.rpackages'); x <- rffi.coerceVector(structure(T, names='c',dim=c(1,1),myattr='q'), 1); detach('package:testrffi', unload=T); x }
-`TRUE`
-
-##com.oracle.truffle.r.test.rffi.TestRFFIPackageCoercions.testCoerceVector#Output.MayIgnoreWarningContext#Output.MayIgnoreErrorContext#
-#{ library('testrffi', lib.loc = 'tmptest/com.oracle.truffle.r.test.rpackages'); x <- rffi.coerceVector(structure(T, names='c',dim=c(1,1),myattr='q'), 10); detach('package:testrffi', unload=T); x }
-     [,1]
-[1,] TRUE
-attr(,"names")
-[1] "c"
-attr(,"myattr")
-[1] "q"
-
-##com.oracle.truffle.r.test.rffi.TestRFFIPackageCoercions.testCoerceVector#Output.MayIgnoreWarningContext#Output.MayIgnoreErrorContext#
-#{ library('testrffi', lib.loc = 'tmptest/com.oracle.truffle.r.test.rpackages'); x <- rffi.coerceVector(structure(T, names='c',dim=c(1,1),myattr='q'), 13); detach('package:testrffi', unload=T); x }
-     [,1]
-[1,]    1
-attr(,"names")
-[1] "c"
-attr(,"myattr")
-[1] "q"
-
-##com.oracle.truffle.r.test.rffi.TestRFFIPackageCoercions.testCoerceVector#Output.MayIgnoreWarningContext#Output.MayIgnoreErrorContext#
-#{ library('testrffi', lib.loc = 'tmptest/com.oracle.truffle.r.test.rpackages'); x <- rffi.coerceVector(structure(T, names='c',dim=c(1,1),myattr='q'), 14); detach('package:testrffi', unload=T); x }
-     [,1]
-[1,]    1
-attr(,"names")
-[1] "c"
-attr(,"myattr")
-[1] "q"
-
-##com.oracle.truffle.r.test.rffi.TestRFFIPackageCoercions.testCoerceVector#Output.MayIgnoreWarningContext#Output.MayIgnoreErrorContext#
-#{ library('testrffi', lib.loc = 'tmptest/com.oracle.truffle.r.test.rpackages'); x <- rffi.coerceVector(structure(T, names='c',dim=c(1,1),myattr='q'), 15); detach('package:testrffi', unload=T); x }
-     [,1]
-[1,] 1+0i
-attr(,"names")
-[1] "c"
-attr(,"myattr")
-[1] "q"
-
-##com.oracle.truffle.r.test.rffi.TestRFFIPackageCoercions.testCoerceVector#Output.MayIgnoreWarningContext#Output.MayIgnoreErrorContext#
-#{ library('testrffi', lib.loc = 'tmptest/com.oracle.truffle.r.test.rpackages'); x <- rffi.coerceVector(structure(T, names='c',dim=c(1,1),myattr='q'), 16); detach('package:testrffi', unload=T); x }
-     [,1]
-[1,] "TRUE"
-attr(,"names")
-[1] "c"
-attr(,"myattr")
-[1] "q"
-
-##com.oracle.truffle.r.test.rffi.TestRFFIPackageCoercions.testCoerceVector#Output.MayIgnoreWarningContext#Output.MayIgnoreErrorContext#
-#{ library('testrffi', lib.loc = 'tmptest/com.oracle.truffle.r.test.rpackages'); x <- rffi.coerceVector(structure(T, names='c',dim=c(1,1),myattr='q'), 19); detach('package:testrffi', unload=T); x }
-$c
-[1] TRUE
-
-
-##com.oracle.truffle.r.test.rffi.TestRFFIPackageCoercions.testCoerceVector#Output.MayIgnoreWarningContext#Output.MayIgnoreErrorContext#
-#{ library('testrffi', lib.loc = 'tmptest/com.oracle.truffle.r.test.rpackages'); x <- rffi.coerceVector(structure(T, names='c',dim=c(1,1),myattr='q'), 24); detach('package:testrffi', unload=T); x }
-     [,1]
-[1,]   01
-attr(,"names")
-[1] "c"
-attr(,"myattr")
-[1] "q"
-
-##com.oracle.truffle.r.test.rffi.TestRFFIPackageCoercions.testCoerceVector#Output.MayIgnoreWarningContext#Output.MayIgnoreErrorContext#
-#{ library('testrffi', lib.loc = 'tmptest/com.oracle.truffle.r.test.rpackages'); x <- rffi.coerceVector(structure(list(1,'42'), names=c('q','w'),dim=c(2,1),myattr='q'), 0); detach('package:testrffi', unload=T); x }
-Error in rffi.coerceVector(structure(list(1, "42"), names = c("q", "w"),  :
-  unimplemented type 'list' in 'coerceVectorList'
-
-##com.oracle.truffle.r.test.rffi.TestRFFIPackageCoercions.testCoerceVector#Output.MayIgnoreWarningContext#Output.MayIgnoreErrorContext#
-#{ library('testrffi', lib.loc = 'tmptest/com.oracle.truffle.r.test.rpackages'); x <- rffi.coerceVector(structure(list(1,'42'), names=c('q','w'),dim=c(2,1),myattr='q'), 1); detach('package:testrffi', unload=T); x }
-Error in rffi.coerceVector(structure(list(1, "42"), names = c("q", "w"),  :
-  invalid type/length (symbol/2) in vector allocation
-
-##com.oracle.truffle.r.test.rffi.TestRFFIPackageCoercions.testCoerceVector#Output.MayIgnoreWarningContext#Output.MayIgnoreErrorContext#
-#{ library('testrffi', lib.loc = 'tmptest/com.oracle.truffle.r.test.rpackages'); x <- rffi.coerceVector(structure(list(1,'42'), names=c('q','w'),dim=c(2,1),myattr='q'), 10); detach('package:testrffi', unload=T); x }
-   q    w
-TRUE   NA
-
-##com.oracle.truffle.r.test.rffi.TestRFFIPackageCoercions.testCoerceVector#Output.MayIgnoreWarningContext#Output.MayIgnoreErrorContext#
-#{ library('testrffi', lib.loc = 'tmptest/com.oracle.truffle.r.test.rpackages'); x <- rffi.coerceVector(structure(list(1,'42'), names=c('q','w'),dim=c(2,1),myattr='q'), 13); detach('package:testrffi', unload=T); x }
- q  w
- 1 42
-
-##com.oracle.truffle.r.test.rffi.TestRFFIPackageCoercions.testCoerceVector#Output.MayIgnoreWarningContext#Output.MayIgnoreErrorContext#
-#{ library('testrffi', lib.loc = 'tmptest/com.oracle.truffle.r.test.rpackages'); x <- rffi.coerceVector(structure(list(1,'42'), names=c('q','w'),dim=c(2,1),myattr='q'), 14); detach('package:testrffi', unload=T); x }
- q  w
- 1 42
-
-##com.oracle.truffle.r.test.rffi.TestRFFIPackageCoercions.testCoerceVector#Output.MayIgnoreWarningContext#Output.MayIgnoreErrorContext#
-#{ library('testrffi', lib.loc = 'tmptest/com.oracle.truffle.r.test.rpackages'); x <- rffi.coerceVector(structure(list(1,'42'), names=c('q','w'),dim=c(2,1),myattr='q'), 15); detach('package:testrffi', unload=T); x }
-    q     w
- 1+0i 42+0i
-
-##com.oracle.truffle.r.test.rffi.TestRFFIPackageCoercions.testCoerceVector#Output.MayIgnoreWarningContext#Output.MayIgnoreErrorContext#
-#{ library('testrffi', lib.loc = 'tmptest/com.oracle.truffle.r.test.rpackages'); x <- rffi.coerceVector(structure(list(1,'42'), names=c('q','w'),dim=c(2,1),myattr='q'), 16); detach('package:testrffi', unload=T); x }
-   q    w
- "1" "42"
-
-##com.oracle.truffle.r.test.rffi.TestRFFIPackageCoercions.testCoerceVector#Output.MayIgnoreWarningContext#Output.MayIgnoreErrorContext#
-#{ library('testrffi', lib.loc = 'tmptest/com.oracle.truffle.r.test.rpackages'); x <- rffi.coerceVector(structure(list(1,'42'), names=c('q','w'),dim=c(2,1),myattr='q'), 19); detach('package:testrffi', unload=T); x }
-     [,1]
-[1,] 1
-[2,] "42"
-attr(,"names")
-[1] "q" "w"
-attr(,"myattr")
-[1] "q"
-
-##com.oracle.truffle.r.test.rffi.TestRFFIPackageCoercions.testCoerceVector#Output.MayIgnoreWarningContext#Output.MayIgnoreErrorContext#
-#{ library('testrffi', lib.loc = 'tmptest/com.oracle.truffle.r.test.rpackages'); x <- rffi.coerceVector(structure(list(1,'42'), names=c('q','w'),dim=c(2,1),myattr='q'), 24); detach('package:testrffi', unload=T); x }
- q  w
-01 2a
-
-##com.oracle.truffle.r.test.rffi.TestRFFIPackageCoercions.testCoerceVectorToExpression#Output.IgnoreErrorMessage#Output.MayIgnoreWarningContext#Output.MayIgnoreErrorContext#
-#{ library('testrffi', lib.loc = 'tmptest/com.oracle.truffle.r.test.rpackages'); x <- rffi.coerceVector(2, 20); detach('package:testrffi', unload=T); x }
-expression(2)
-
-##com.oracle.truffle.r.test.rffi.TestRFFIPackageCoercions.testCoerceVectorToExpression#Output.IgnoreErrorMessage#Output.MayIgnoreWarningContext#Output.MayIgnoreErrorContext#
-#{ library('testrffi', lib.loc = 'tmptest/com.oracle.truffle.r.test.rpackages'); x <- rffi.coerceVector(2.2, 20); detach('package:testrffi', unload=T); x }
-expression(2.2)
-
-##com.oracle.truffle.r.test.rffi.TestRFFIPackageCoercions.testCoerceVectorToExpression#Output.IgnoreErrorMessage#Output.MayIgnoreWarningContext#Output.MayIgnoreErrorContext#
-#{ library('testrffi', lib.loc = 'tmptest/com.oracle.truffle.r.test.rpackages'); x <- rffi.coerceVector(T, 20); detach('package:testrffi', unload=T); x }
-expression(TRUE)
-
-##com.oracle.truffle.r.test.rffi.TestRFFIPackageCoercions.testCoerceVectorToExpression#Output.IgnoreErrorMessage#Output.MayIgnoreWarningContext#Output.MayIgnoreErrorContext#
-#{ library('testrffi', lib.loc = 'tmptest/com.oracle.truffle.r.test.rpackages'); x <- rffi.coerceVector(c(2.3, 3.4), 20); detach('package:testrffi', unload=T); x }
-expression(2.3, 3.4)
-
-##com.oracle.truffle.r.test.rffi.TestRFFIPackageCoercions.testCoerceVectorToExpression#Output.IgnoreErrorMessage#Output.MayIgnoreWarningContext#Output.MayIgnoreErrorContext#
-#{ library('testrffi', lib.loc = 'tmptest/com.oracle.truffle.r.test.rpackages'); x <- rffi.coerceVector(c(5,6), 20); detach('package:testrffi', unload=T); x }
-expression(5, 6)
-
-##com.oracle.truffle.r.test.rffi.TestRFFIPackageCoercions.testCoerceVectorToExpression#Output.IgnoreErrorMessage#Output.MayIgnoreWarningContext#Output.MayIgnoreErrorContext#
-#{ library('testrffi', lib.loc = 'tmptest/com.oracle.truffle.r.test.rpackages'); x <- rffi.coerceVector(c(T, F), 20); detach('package:testrffi', unload=T); x }
-expression(TRUE, FALSE)
-
-##com.oracle.truffle.r.test.rffi.TestRFFIPackageCoercions.testCoerceVectorToExpression#Output.IgnoreErrorMessage#Output.MayIgnoreWarningContext#Output.MayIgnoreErrorContext#
-#{ library('testrffi', lib.loc = 'tmptest/com.oracle.truffle.r.test.rpackages'); x <- rffi.coerceVector(character(), 20); detach('package:testrffi', unload=T); x }
-expression()
-
-##com.oracle.truffle.r.test.rffi.TestRFFIPackageCoercions.testCoerceVectorToExpression#Output.IgnoreErrorMessage#Output.MayIgnoreWarningContext#Output.MayIgnoreErrorContext#
-#{ library('testrffi', lib.loc = 'tmptest/com.oracle.truffle.r.test.rpackages'); x <- rffi.coerceVector(integer(), 20); detach('package:testrffi', unload=T); x }
-expression()
-
-##com.oracle.truffle.r.test.rffi.TestRFFIPackageCoercions.testCoerceVectorToExpression#Output.IgnoreErrorMessage#Output.MayIgnoreWarningContext#Output.MayIgnoreErrorContext#
-#{ library('testrffi', lib.loc = 'tmptest/com.oracle.truffle.r.test.rpackages'); x <- rffi.coerceVector(list(), 20); detach('package:testrffi', unload=T); x }
-expression()
-
-##com.oracle.truffle.r.test.rffi.TestRFFIPackageCoercions.testCoerceVectorToExpression#Output.IgnoreErrorMessage#Output.MayIgnoreWarningContext#Output.MayIgnoreErrorContext#
-#{ library('testrffi', lib.loc = 'tmptest/com.oracle.truffle.r.test.rpackages'); x <- rffi.coerceVector(logical(), 20); detach('package:testrffi', unload=T); x }
-expression()
-
-##com.oracle.truffle.r.test.rffi.TestRFFIPackageCoercions.testCoerceVectorToExpression#Output.IgnoreErrorMessage#Output.MayIgnoreWarningContext#Output.MayIgnoreErrorContext#
-#{ library('testrffi', lib.loc = 'tmptest/com.oracle.truffle.r.test.rpackages'); x <- rffi.coerceVector(numeric(), 20); detach('package:testrffi', unload=T); x }
-expression()
-
-##com.oracle.truffle.r.test.rffi.TestRFFIPackageCoercions.testCoerceVectorToExpression#Output.IgnoreErrorMessage#Output.MayIgnoreWarningContext#Output.MayIgnoreErrorContext#
-#{ library('testrffi', lib.loc = 'tmptest/com.oracle.truffle.r.test.rpackages'); x <- rffi.coerceVector(structure(2.2, names='b',dim=c(1,1),myattr='q'), 20); detach('package:testrffi', unload=T); x }
-expression(2.2)
-
-##com.oracle.truffle.r.test.rffi.TestRFFIPackageCoercions.testCoerceVectorToExpression#Output.IgnoreErrorMessage#Output.MayIgnoreWarningContext#Output.MayIgnoreErrorContext#
-#{ library('testrffi', lib.loc = 'tmptest/com.oracle.truffle.r.test.rpackages'); x <- rffi.coerceVector(structure(T, names='c',dim=c(1,1),myattr='q'), 20); detach('package:testrffi', unload=T); x }
-expression(TRUE)
-
-##com.oracle.truffle.r.test.rffi.TestRFFIPackageCoercions.testCoerceVectorToExpression#Ignored.Unimplemented#
-#{ library('testrffi', lib.loc = 'tmptest/com.oracle.truffle.r.test.rpackages'); x <- rffi.coerceVector(structure(list(1,'x'), names=c('q','w'),dim=c(2,1),myattr='q'), 20); detach('package:testrffi', unload=T); x }
-expression(q = 1, w = "x")
-attr(,"names")
-[1] "q" "w"
-attr(,"myattr")
-[1] "q"
-
-##com.oracle.truffle.r.test.rffi.TestUserRNG.testUserRNG#
-#{ dyn.load("com.oracle.truffle.r.test.native/urand/lib/liburand.so"); RNGkind("user"); print(RNGkind()); set.seed(4567); runif(10) }
-[1] "user-supplied" "Inversion"
- [1] 0.45336386 0.38848030 0.94576608 0.11726267 0.21542351 0.08672997
- [7] 0.35201276 0.16919220 0.93579263 0.26084486
-
 ##com.oracle.truffle.r.test.rng.TestRRNG.testDirectReadingSeed#
 #invisible(runif(1)); length(.Random.seed)
 [1] 626
@@ -140605,92 +139411,3 @@ In runif(3) :
 #invisible(runif(5)); RNGkind('Marsaglia-Multicarry'); set.seed(2); runif(5);
 [1] 0.8431527 0.5749091 0.1531976 0.3460321 0.2313936
 
-##com.oracle.truffle.r.test.rpackages.TestRecommendedPackages.testLoad#Ignored.OutputFormatting#Context.NonShared#Context.LongTimeout#
-#{ library(KernSmooth, lib.loc = "tmptest/com.oracle.truffle.r.test.rpackages"); detach("package:KernSmooth"); }
-KernSmooth 2.23 loaded
-Copyright M. P. Wand 1997-2009
-
-##com.oracle.truffle.r.test.rpackages.TestRecommendedPackages.testLoad#Ignored.OutputFormatting#Context.NonShared#Context.LongTimeout#
-#{ library(MASS, lib.loc = "tmptest/com.oracle.truffle.r.test.rpackages"); detach("package:MASS"); }
-
-##com.oracle.truffle.r.test.rpackages.TestRecommendedPackages.testLoad#Ignored.OutputFormatting#Context.NonShared#Context.LongTimeout#
-#{ library(Matrix, lib.loc = "tmptest/com.oracle.truffle.r.test.rpackages"); detach("package:Matrix"); }
-
-##com.oracle.truffle.r.test.rpackages.TestRecommendedPackages.testLoad#Ignored.OutputFormatting#Context.NonShared#Context.LongTimeout#
-#{ library(boot, lib.loc = "tmptest/com.oracle.truffle.r.test.rpackages"); detach("package:boot"); }
-
-##com.oracle.truffle.r.test.rpackages.TestRecommendedPackages.testLoad#Ignored.OutputFormatting#Context.NonShared#Context.LongTimeout#
-#{ library(class, lib.loc = "tmptest/com.oracle.truffle.r.test.rpackages"); detach("package:class"); }
-
-##com.oracle.truffle.r.test.rpackages.TestRecommendedPackages.testLoad#Ignored.OutputFormatting#Context.NonShared#Context.LongTimeout#
-#{ library(cluster, lib.loc = "tmptest/com.oracle.truffle.r.test.rpackages"); detach("package:cluster"); }
-
-##com.oracle.truffle.r.test.rpackages.TestRecommendedPackages.testLoad#Ignored.OutputFormatting#Context.NonShared#Context.LongTimeout#
-#{ library(codetools, lib.loc = "tmptest/com.oracle.truffle.r.test.rpackages"); detach("package:codetools"); }
-
-##com.oracle.truffle.r.test.rpackages.TestRecommendedPackages.testLoad#Ignored.OutputFormatting#Context.NonShared#Context.LongTimeout#
-#{ library(foreign, lib.loc = "tmptest/com.oracle.truffle.r.test.rpackages"); detach("package:foreign"); }
-
-##com.oracle.truffle.r.test.rpackages.TestRecommendedPackages.testLoad#Ignored.OutputFormatting#Context.NonShared#Context.LongTimeout#
-#{ library(lattice, lib.loc = "tmptest/com.oracle.truffle.r.test.rpackages"); detach("package:lattice"); }
-
-##com.oracle.truffle.r.test.rpackages.TestRecommendedPackages.testLoad#Ignored.OutputFormatting#Context.NonShared#Context.LongTimeout#
-#{ library(nlme, lib.loc = "tmptest/com.oracle.truffle.r.test.rpackages"); detach("package:nlme"); }
-
-##com.oracle.truffle.r.test.rpackages.TestRecommendedPackages.testLoad#Ignored.OutputFormatting#Context.NonShared#Context.LongTimeout#
-#{ library(nnet, lib.loc = "tmptest/com.oracle.truffle.r.test.rpackages"); detach("package:nnet"); }
-
-##com.oracle.truffle.r.test.rpackages.TestRecommendedPackages.testLoad#Ignored.OutputFormatting#Context.NonShared#Context.LongTimeout#
-#{ library(rpart, lib.loc = "tmptest/com.oracle.truffle.r.test.rpackages"); detach("package:rpart"); }
-
-##com.oracle.truffle.r.test.rpackages.TestRecommendedPackages.testLoad#Ignored.OutputFormatting#Context.NonShared#Context.LongTimeout#
-#{ library(spatial, lib.loc = "tmptest/com.oracle.truffle.r.test.rpackages"); detach("package:spatial"); }
-
-##com.oracle.truffle.r.test.rpackages.TestRecommendedPackages.testLoad#Ignored.OutputFormatting#Context.NonShared#Context.LongTimeout#
-#{ library(survival, lib.loc = "tmptest/com.oracle.truffle.r.test.rpackages"); detach("package:survival"); }
-
-##com.oracle.truffle.r.test.rpackages.TestS4TestPackage.testS4Execute#
-#{ library("tests4", lib.loc = "tmptest/com.oracle.truffle.r.test.rpackages"); r<-print(tests4:::inspect.vehicle(new("Car"), new("Inspector"))); detach("package:tests4"); unloadNamespace("tests4"); r }
-Looking for rust
-Checking seat belts
-NULL
-NULL
-
-##com.oracle.truffle.r.test.rpackages.TestS4TestPackage.testS4Execute#
-#{ library("tests4", lib.loc = "tmptest/com.oracle.truffle.r.test.rpackages"); r<-print(tests4:::inspect.vehicle(new("Car"), new("StateInspector"))); detach("package:tests4"); unloadNamespace("tests4"); r }
-Looking for rust
-Checking seat belts
-Checking insurance
-NULL
-NULL
-
-##com.oracle.truffle.r.test.rpackages.TestS4TestPackage.testS4Execute#
-#{ library("tests4", lib.loc = "tmptest/com.oracle.truffle.r.test.rpackages"); r<-print(tests4:::inspect.vehicle(new("Truck"), new("Inspector"))); detach("package:tests4"); unloadNamespace("tests4"); r }
-Looking for rust
-Checking cargo attachments
-NULL
-NULL
-
-##com.oracle.truffle.r.test.rpackages.TestS4TestPackage.testS4Execute#
-#{ library("tests4", lib.loc = "tmptest/com.oracle.truffle.r.test.rpackages"); r<-print(tests4:::inspect.vehicle(new("Truck"), new("StateInspector"))); detach("package:tests4"); unloadNamespace("tests4"); r }
-Looking for rust
-Checking cargo attachments
-NULL
-NULL
-
-##com.oracle.truffle.r.test.rpackages.TestS4TestPackage.testS4Load#
-#{ library("tests4", lib.loc = "tmptest/com.oracle.truffle.r.test.rpackages"); detach("package:tests4"); unloadNamespace("tests4") }
-
-##com.oracle.truffle.r.test.rpackages.TestVanillaPackage.testLoadVanilla#
-#{ library("vanilla", lib.loc = "tmptest/com.oracle.truffle.r.test.rpackages"); r <- vanilla(); detach("package:vanilla"); r }
-[1] "A vanilla R package"
-[1] "A vanilla R package"
-
-##com.oracle.truffle.r.test.rpackages.TestVanillaPackage.testQualifiedReplacement#
-#{ library("vanilla", lib.loc = "tmptest/com.oracle.truffle.r.test.rpackages"); r<-42; vanilla::foo(r)<-7; detach("package:vanilla"); r }
-[1] 7
-
-##com.oracle.truffle.r.test.rpackages.TestVanillaPackage.testSimpleFunction#
-#{ library("vanilla", lib.loc = "tmptest/com.oracle.truffle.r.test.rpackages"); r <- functionTest(c(1,2,3,4,5,6),8:10); detach("package:vanilla"); r }
-[1]  2  3  4  5  6  7  8  9 10
-
diff --git a/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/rffi/TestRFFIPackage.java b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/rffi/TestRFFIPackage.java
deleted file mode 100644
index 58fc5690fd..0000000000
--- a/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/rffi/TestRFFIPackage.java
+++ /dev/null
@@ -1,219 +0,0 @@
-/*
- * Copyright (c) 2014, 2017, Oracle and/or its affiliates. All rights reserved.
- * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
- *
- * This code is free software; you can redistribute it and/or modify it
- * under the terms of the GNU General Public License version 2 only, as
- * published by the Free Software Foundation.
- *
- * This code is distributed in the hope that it will be useful, but WITHOUT
- * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
- * FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public License
- * version 2 for more details (a copy is included in the LICENSE file that
- * accompanied this code).
- *
- * You should have received a copy of the GNU General Public License version
- * 2 along with this work; if not, write to the Free Software Foundation,
- * Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA.
- *
- * Please contact Oracle, 500 Oracle Parkway, Redwood Shores, CA 94065 USA
- * or visit www.oracle.com if you need additional information or have any
- * questions.
- */
-package com.oracle.truffle.r.test.rffi;
-
-import org.junit.AfterClass;
-import org.junit.BeforeClass;
-import org.junit.Test;
-
-import com.oracle.truffle.r.test.TestBase;
-import com.oracle.truffle.r.test.TestTrait;
-import com.oracle.truffle.r.test.rpackages.TestRPackages;
-
-public class TestRFFIPackage extends TestRPackages {
-
-    private static final String[] TEST_PACKAGES = new String[]{"testrffi"};
-
-    @BeforeClass
-    public static void setupInstallMyTestPackages() {
-        setupInstallTestPackages(TEST_PACKAGES);
-    }
-
-    @AfterClass
-    public static void tearDownUninstallMyTestPackages() {
-        tearDownUninstallTestPackages();
-    }
-
-    /**
-     * This is somewhat expensive to do per test, but the only alternative is to put all the
-     * micro-tests in one big test. It might be that this should be switched to an R file-based
-     * approach as the number of tests increase.
-     */
-    private void assertEvalWithLibWithSetupAndTrait(TestTrait trait, String setup, String test) {
-        String[] tests = TestBase.template("{ library(\"testrffi\", lib.loc = \"%0\"); " + setup + "x <- " + test + "; detach(\"package:testrffi\", unload=T); x }",
-                        new String[]{TestRPackages.libLoc()});
-        if (trait == null) {
-            assertEval(tests);
-        } else {
-            assertEval(trait, tests);
-        }
-    }
-
-    private void assertEvalWithLib(String test) {
-        assertEvalWithLibWithSetupAndTrait(null, "", test);
-    }
-
-    private void assertEvalWithLibWithSetup(String setup, String test) {
-        assertEvalWithLibWithSetupAndTrait(null, setup, test);
-    }
-
-    @Test
-    public void testRFFI1() {
-        assertEvalWithLib("rffi.addInt(2L, 3L)");
-    }
-
-    @Test
-    public void testRFFI2() {
-        assertEvalWithLib("rffi.addDouble(2, 3)");
-    }
-
-    @Test
-    public void testRFFI3() {
-        assertEvalWithLib("rffi.populateIntVector(5)");
-    }
-
-    @Test
-    public void testRFFI4() {
-        assertEvalWithLib("rffi.populateLogicalVector(5)");
-    }
-
-    @Test
-    public void testRFFI5() {
-        assertEvalWithLib("rffi.mkStringFromChar()");
-    }
-
-    @Test
-    public void testRFFI6() {
-        assertEvalWithLib("rffi.mkStringFromBytes()");
-    }
-
-    @Test
-    public void testRFFI7() {
-        assertEvalWithLib("rffi.null()");
-    }
-
-    @Test
-    public void testRFFI7E() {
-        assertEvalWithLib("rffi.null.E()");
-    }
-
-    @Test
-    public void testRFFI7C() {
-        assertEvalWithLib("rffi.null.C()");
-    }
-
-    @Test
-    public void testRFFI8() {
-        assertEvalWithLib("rffi.isRString(character(0))");
-    }
-
-    @Test
-    public void testRFFI9() {
-        assertEvalWithLibWithSetup("a <- c(1L,2L,3L); ", "rffi.iterate_iarray(a)");
-    }
-
-    @Test
-    public void testRFFI10() {
-        assertEvalWithLibWithSetup("a <- c(1L,2L,3L); ", "rffi.iterate_iptr(a)");
-    }
-
-    @Test
-    public void testRFFI11() {
-        assertEvalWithLib("rffi.dotCModifiedArguments(c(0,1,2,3))");
-    }
-
-    @Test
-    public void testRFFI12() {
-        assertEvalWithLib("rffi.dotExternalAccessArgs(1L, 3, c(1,2,3), c('a', 'b'), 'b', TRUE, as.raw(12))");
-    }
-
-    @Test
-    public void testRFFI13() {
-        assertEvalWithLib("rffi.dotExternalAccessArgs(x=1L, 3, c(1,2,3), y=c('a', 'b'), 'b', TRUE, as.raw(12))");
-    }
-
-    @Test
-    public void testRFFI14() {
-        assertEvalWithLib("rffi.invoke12()");
-    }
-
-    @Test
-    public void testRFFI15() {
-        assertEvalWithLib("rffi.TYPEOF(3L)");
-    }
-
-    @Test
-    public void testRFFI16() {
-        assertEvalWithLib("rffi.isRString(\"hello\")");
-    }
-
-    @Test
-    public void testRFFI17() {
-        assertEvalWithLib("rffi.isRString(NULL)");
-    }
-
-    @Test
-    public void testRFFI18() {
-        assertEvalWithLib("rffi.interactive()");
-    }
-
-    @Test
-    public void testRFFI19() {
-        assertEvalWithLibWithSetup("x <- 1; ", "rffi.findvar(\"x\", globalenv())");
-    }
-
-    @Test
-    public void testRFFI20() {
-        assertEvalWithLibWithSetup("x <- \"12345\"; ", "rffi.char_length(x)");
-    }
-
-    private static final String[] AS_VALUES = new String[]{"1L", "2", "2.2", "T", "integer()", "numeric()", "logical()", "character()", "c(5,6)", "c(2.3, 3.4)", "c(T, F)",
-                    "as.symbol(\"sym\")", "list()"};
-
-    private static final String[] AS_FUNS = new String[]{"Char", "Integer", "Real", "Logical"};
-
-    @Test
-    public void testAsFunctions() {
-        String[] asCalls = template("x <- append(x, rffi.as%0(%1)); ", AS_FUNS, AS_VALUES);
-        assertEvalWithLibWithSetupAndTrait(Output.MayIgnoreWarningContext, "x <- list(); ", flatten(asCalls));
-    }
-
-    private static final String[] LIST_FUNS = new String[]{"CAR", "CDR"};
-
-    private static final String[] LIST_VALUES = new String[]{"pairlist(1,2)", "pairlist(x=1L, y=2L)"};
-
-    @Test
-    public void testListFunctions() {
-        String[] calls = template("x <- append(x, rffi.%0(%1)); ", LIST_FUNS, LIST_VALUES);
-        assertEvalWithLibWithSetupAndTrait(Output.MayIgnoreErrorContext, "x <- list(); ", flatten(calls));
-
-    }
-
-    private static String flatten(String[] tests) {
-        StringBuilder sb = new StringBuilder();
-        for (String test : tests) {
-            sb.append(test);
-        }
-        return sb.toString();
-    }
-
-    private static final String[] LENGTH_VALUES = new String[]{"1", "c(1,2,3)", "list(1,2,3)", "expression(1,2)"};
-
-    // Checkstyle: stop method name check
-    @Test
-    public void TestLENGTH() {
-        String[] calls = template("x <- append(x, rffi.LENGTH(%0)); ", LENGTH_VALUES);
-        assertEvalWithLibWithSetupAndTrait(Output.MayIgnoreErrorContext, "x <- list(); ", flatten(calls));
-    }
-
-}
diff --git a/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/rffi/TestRFFIPackageCoercions.java b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/rffi/TestRFFIPackageCoercions.java
deleted file mode 100644
index 12c06a7162..0000000000
--- a/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/rffi/TestRFFIPackageCoercions.java
+++ /dev/null
@@ -1,90 +0,0 @@
-/*
- * Copyright (c) 2014, 2017, Oracle and/or its affiliates. All rights reserved.
- * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
- *
- * This code is free software; you can redistribute it and/or modify it
- * under the terms of the GNU General Public License version 2 only, as
- * published by the Free Software Foundation.
- *
- * This code is distributed in the hope that it will be useful, but WITHOUT
- * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
- * FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public License
- * version 2 for more details (a copy is included in the LICENSE file that
- * accompanied this code).
- *
- * You should have received a copy of the GNU General Public License version
- * 2 along with this work; if not, write to the Free Software Foundation,
- * Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA.
- *
- * Please contact Oracle, 500 Oracle Parkway, Redwood Shores, CA 94065 USA
- * or visit www.oracle.com if you need additional information or have any
- * questions.
- */
-package com.oracle.truffle.r.test.rffi;
-
-import static com.oracle.truffle.r.runtime.gnur.SEXPTYPE.CPLXSXP;
-import static com.oracle.truffle.r.runtime.gnur.SEXPTYPE.EXPRSXP;
-import static com.oracle.truffle.r.runtime.gnur.SEXPTYPE.INTSXP;
-import static com.oracle.truffle.r.runtime.gnur.SEXPTYPE.LGLSXP;
-import static com.oracle.truffle.r.runtime.gnur.SEXPTYPE.NILSXP;
-import static com.oracle.truffle.r.runtime.gnur.SEXPTYPE.RAWSXP;
-import static com.oracle.truffle.r.runtime.gnur.SEXPTYPE.REALSXP;
-import static com.oracle.truffle.r.runtime.gnur.SEXPTYPE.STRSXP;
-import static com.oracle.truffle.r.runtime.gnur.SEXPTYPE.SYMSXP;
-import static com.oracle.truffle.r.runtime.gnur.SEXPTYPE.VECSXP;
-
-import java.util.Arrays;
-
-import org.junit.AfterClass;
-import org.junit.BeforeClass;
-import org.junit.Test;
-
-import com.oracle.truffle.r.runtime.gnur.SEXPTYPE;
-import com.oracle.truffle.r.test.rpackages.TestRPackages;
-
-public class TestRFFIPackageCoercions extends TestRPackages {
-
-    private static final String[] TEST_PACKAGES = new String[]{"testrffi"};
-
-    @BeforeClass
-    public static void setupInstallMyTestPackages() {
-        setupInstallTestPackages(TEST_PACKAGES);
-    }
-
-    @AfterClass
-    public static void tearDownUninstallMyTestPackages() {
-        tearDownUninstallTestPackages();
-    }
-
-    private static String addLib(String test) {
-        return "{ library('testrffi', lib.loc = '" + TestRPackages.libLoc() + "'); x <- " + test + "; detach('package:testrffi', unload=T); x }";
-    }
-
-    private static final String[] COERCION_VALUES_FOR_EXPR = new String[]{
-                    "2", "2.2", "T", "integer()", "numeric()", "logical()", "character()", "c(5,6)", "c(2.3, 3.4)", "c(T, F)",
-                    "list()", "structure(2.2, names='b',dim=c(1,1),myattr='q')", "structure(T, names='c',dim=c(1,1),myattr='q')"};
-
-    private static final String[] COERCION_VALUES = new String[]{
-                    "1L", "2", "2.2", "T", "integer()", "numeric()", "logical()", "character()", "c(5,6)", "c(2.3, 3.4)",
-                    "c(T, F)", "list()", "structure(1L,names='a',dim=c(1,1),myattr='q')", "structure(2.2, names='b',dim=c(1,1),myattr='q')",
-                    "structure(T, names='c',dim=c(1,1),myattr='q')", "structure(list(1,'42'), names=c('q','w'),dim=c(2,1),myattr='q')"};
-
-    private static final SEXPTYPE[] COERCION_TYPES = new SEXPTYPE[]{SYMSXP, NILSXP, VECSXP, INTSXP, REALSXP, LGLSXP, STRSXP, CPLXSXP, RAWSXP};
-
-    private static final String[] COERCION_MODES = Arrays.stream(COERCION_TYPES).map(x -> Integer.toString(x.code)).toArray(n -> new String[n]);
-
-    @Test
-    public void testCoerceVector() {
-        String[] tests = template(addLib("rffi.coerceVector(%0, %1)"), COERCION_VALUES, COERCION_MODES);
-        assertEval(Output.MayIgnoreWarningContext, Output.MayIgnoreErrorContext, tests);
-    }
-
-    @Test
-    public void testCoerceVectorToExpression() {
-        // Note: inconsistency when printing expression(1L) FastR prints just "expression(1)"
-        String[] tests = template(addLib("rffi.coerceVector(%0, %1)"), COERCION_VALUES_FOR_EXPR, new String[]{Integer.toString(EXPRSXP.code)});
-        assertEval(Output.IgnoreErrorMessage, Output.MayIgnoreWarningContext, Output.MayIgnoreErrorContext, tests);
-        // removes the attributes when its single value, but keeps them when it's a list
-        assertEval(Ignored.Unimplemented, addLib("rffi.coerceVector(structure(list(1,'x'), names=c('q','w'),dim=c(2,1),myattr='q'), " + EXPRSXP.code + ")"));
-    }
-}
diff --git a/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/rpackages/TestRPackages.java b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/rpackages/TestRPackages.java
deleted file mode 100644
index 40e4f8d269..0000000000
--- a/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/rpackages/TestRPackages.java
+++ /dev/null
@@ -1,206 +0,0 @@
-/*
- * Copyright (c) 2014, 2017, Oracle and/or its affiliates. All rights reserved.
- * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
- *
- * This code is free software; you can redistribute it and/or modify it
- * under the terms of the GNU General Public License version 2 only, as
- * published by the Free Software Foundation.
- *
- * This code is distributed in the hope that it will be useful, but WITHOUT
- * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
- * FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public License
- * version 2 for more details (a copy is included in the LICENSE file that
- * accompanied this code).
- *
- * You should have received a copy of the GNU General Public License version
- * 2 along with this work; if not, write to the Free Software Foundation,
- * Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA.
- *
- * Please contact Oracle, 500 Oracle Parkway, Redwood Shores, CA 94065 USA
- * or visit www.oracle.com if you need additional information or have any
- * questions.
- */
-package com.oracle.truffle.r.test.rpackages;
-
-import java.nio.file.Path;
-import java.nio.file.Paths;
-import java.util.HashMap;
-import java.util.Map;
-
-import org.junit.Assert;
-
-import com.oracle.truffle.r.runtime.REnvVars;
-import com.oracle.truffle.r.runtime.RVersionNumber;
-import com.oracle.truffle.r.test.TestBase;
-
-/**
- * Tests related to the loading, etc. of R packages.
- *
- * THis class should be subclassed by a test that wishes to install one or more packages and
- * possibly run additional tests after installation using a pattern of the form
- * {@code library(pkg, lib.loc="%0"); sometest()}. Note the use of the {@code %0}, which must be
- * satisfied by passing the value of {@code libLoc()}. This is required because the test VM is not
- * aware of the test install location so it must be explicitly specified. The use of the {@code %0}
- * parameter mechanism also requires the use of {@link TestBase#template} in the test itself.
- *
- * A subclass must provide {@code @BeforeClass} and {@code @AfterClass}methods that call
- * {@link #setupInstallTestPackages} and {@link #tearDownUninstallTestPackages}, respectively, to
- * install/remove the specific set of packages relevant to the test.
- *
- * N.B. The same directory is used when generating expected output with GnuR, and running FastR, to
- * keep the {@code lib_loc} argument the same in the test string. So the install is destructive, but
- * ok as there is never a clash.
- *
- * The install directory is cleaned on every call to {@link #setupInstallTestPackages} in case a
- * previous install failed to complete {@link #tearDownUninstallTestPackages} successfully.
- */
-public abstract class TestRPackages extends TestBase {
-
-    private static final String SYSTEM2_COMMAND = "system2('%s', c('CMD', 'INSTALL', '%s'), env='R_LIBS=%s', stdout=T, stderr=T)";
-
-    private static String[] installedPackages;
-    private static Resolver resolver;
-    private static boolean needsInstall;
-
-    private static final class PackagePath {
-        /**
-         * The path containing the package distributions as tar files.
-         */
-        private final Path path;
-
-        private PackagePath(Path path) {
-            this.path = path;
-        }
-    }
-
-    /**
-     * The path to the install directory. This is fixed across all tests.
-     */
-    private static Path installDir;
-
-    /**
-     * Map from package name to info on its location.
-     */
-    private static final Map<String, PackagePath> packageMap = new HashMap<>();
-
-    private static Path installDir() {
-        if (installDir == null) {
-            installDir = TestBase.createTestDir("com.oracle.truffle.r.test.rpackages");
-        }
-        return installDir;
-    }
-
-    protected static String libLoc() {
-        return installDir().toString();
-    }
-
-    private static boolean uninstallPackage(String packageName) {
-        Path packageDir = installDir().resolve(packageName);
-        try {
-            deleteDir(packageDir);
-        } catch (Throwable e) {
-            return false;
-        }
-        return true;
-    }
-
-    /**
-     * Pass a custom subclass of this class to override the actual location of the package tar file.
-     */
-    protected static class Resolver {
-        Path getPath(String p) {
-            return testNativePath().resolve(p).resolve("lib").resolve(p + ".tar");
-        }
-    }
-
-    private static Path testNativePath() {
-        Path p = TestBase.getNativeProjectFile(Paths.get("packages"));
-        return p;
-    }
-
-    private static PackagePath getPackagePaths(String pkg, Path path) {
-        PackagePath result = packageMap.get(pkg);
-        if (result == null) {
-            result = new PackagePath(path);
-            packageMap.put(pkg, result);
-        }
-        return result;
-    }
-
-    private static boolean installPackage(PackagePath packagePath) {
-        String cmd;
-        Path binBase;
-        if (generatingExpected()) {
-            // use GnuR (internal)
-            binBase = Paths.get(REnvVars.rHome(), "com.oracle.truffle.r.native", "gnur", RVersionNumber.R_HYPHEN_FULL);
-        } else {
-            // use FastR
-            binBase = Paths.get(REnvVars.rHome());
-        }
-        cmd = binBase.resolve("bin").resolve("R").toString();
-        try {
-            String result = evalInstallPackage(String.format(SYSTEM2_COMMAND, cmd, packagePath.path.toString(), installDir().toString()));
-            boolean success = result.contains("* DONE (");
-            if (!success) {
-                System.out.println(result);
-            }
-            return success;
-        } catch (Throwable t) {
-            t.printStackTrace();
-            return false;
-        }
-    }
-
-    protected static void setupInstallTestPackages(String[] testPackages) {
-        setupInstallTestPackages(testPackages, new Resolver());
-    }
-
-    protected static void setupInstallTestPackages(String[] testPackages, Resolver resolver) {
-        if (!checkOnly()) {
-            assert installedPackages == null && TestRPackages.resolver == null : "inconsistent calls to setupInstallTestPackages / tearDownUninstallTestPackages " + installedPackages + " " + resolver;
-            TestRPackages.installedPackages = testPackages;
-            TestRPackages.resolver = resolver;
-            TestRPackages.needsInstall = true;
-        }
-    }
-
-    private boolean packagesInstallSuccess = true;
-
-    @Override
-    public void beforeEval() {
-        if (needsInstall) {
-            needsInstall = false;
-
-            TestBase.deleteDir(installDir());
-            installDir().toFile().mkdirs();
-            System.out.printf(".begin install.");
-            for (String p : installedPackages) {
-                // Takes time, provide user feedback
-                System.out.printf(".pkg: %s.", p);
-                PackagePath packagePath = getPackagePaths(p, resolver.getPath(p));
-                if (!installPackage(packagePath)) {
-                    packagesInstallSuccess = false;
-                    Assert.fail(String.format("package %s failed to install", p));
-                }
-            }
-            System.out.printf(".end install.");
-        }
-        // This makes sure that any consequent tests fail with informative error
-        Assert.assertTrue("Error during package installation process.", packagesInstallSuccess);
-    }
-
-    protected static void tearDownUninstallTestPackages() {
-        if (!checkOnly()) {
-            assert installedPackages != null && resolver != null : "inconsistent calls to setupInstallTestPackages / tearDownUninstallTestPackages";
-            if (!needsInstall) {
-                for (String p : installedPackages) {
-                    if (!uninstallPackage(p)) {
-                        System.err.println("WARNING: error deleting package: " + p);
-                    }
-                }
-            }
-            installedPackages = null;
-            resolver = null;
-        }
-    }
-}
diff --git a/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/rpackages/TestRecommendedPackages.java b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/rpackages/TestRecommendedPackages.java
deleted file mode 100644
index 04ab1ce911..0000000000
--- a/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/rpackages/TestRecommendedPackages.java
+++ /dev/null
@@ -1,90 +0,0 @@
-/*
- * Copyright (c) 2016, 2017, Oracle and/or its affiliates. All rights reserved.
- * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
- *
- * This code is free software; you can redistribute it and/or modify it
- * under the terms of the GNU General Public License version 2 only, as
- * published by the Free Software Foundation.
- *
- * This code is distributed in the hope that it will be useful, but WITHOUT
- * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
- * FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public License
- * version 2 for more details (a copy is included in the LICENSE file that
- * accompanied this code).
- *
- * You should have received a copy of the GNU General Public License version
- * 2 along with this work; if not, write to the Free Software Foundation,
- * Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA.
- *
- * Please contact Oracle, 500 Oracle Parkway, Redwood Shores, CA 94065 USA
- * or visit www.oracle.com if you need additional information or have any
- * questions.
- */
-package com.oracle.truffle.r.test.rpackages;
-
-import java.nio.file.Path;
-import java.nio.file.Paths;
-
-import org.junit.AfterClass;
-import org.junit.BeforeClass;
-import org.junit.Test;
-
-import com.oracle.truffle.r.test.TestBase;
-
-/**
- * Test the installation of the "recommended" packages that come with GnuR. N.B. There are no
- * specific tests beyond install/load as that is handled separately in the package testing
- * framework. We are primarily concerned with detecting installation regressions.
- *
- * N.B. The package 'tgz' files have been copied to the com.oracle.truffle.r.test project output
- * directory by the com.oracle.truffle.r.test.native Makefile. to allow them to be packaged into a
- * distribution and avoid any dependency on source paths.
- *
- */
-public class TestRecommendedPackages extends TestRPackages {
-    // order matters due to dependencies
-    private static final String[] DEFAULT_PACKAGES = new String[]{"codetools", "MASS", "boot", "class", "cluster",
-                    "lattice", "nnet", "spatial", "Matrix", "survival", "KernSmooth", "foreign", "nlme",
-                    "rpart"};
-    private static String[] packages = DEFAULT_PACKAGES;
-
-    /**
-     * Allows an external agent to ignore certain packages that are known to fail.
-     */
-    public static void ignorePackages(String[] ignoredPackages) {
-        String[] testPackages = new String[DEFAULT_PACKAGES.length - ignoredPackages.length];
-        int k = 0;
-        outer: for (int i = 0; i < DEFAULT_PACKAGES.length; i++) {
-            for (int j = 0; j < ignoredPackages.length; j++) {
-                if (DEFAULT_PACKAGES[i].equals(ignoredPackages[j])) {
-                    continue outer;
-                }
-            }
-            testPackages[k] = DEFAULT_PACKAGES[i];
-            k++;
-        }
-        packages = testPackages;
-    }
-
-    @BeforeClass
-    public static void setupInstallMyTestPackages() {
-        setupInstallTestPackages(packages, new Resolver() {
-            @Override
-            Path getPath(String p) {
-                return TestBase.getNativeProjectFile(Paths.get("packages")).resolve("recommended").resolve(p + ".tgz");
-            }
-        });
-    }
-
-    @AfterClass
-    public static void tearDownUninstallMyTestPackages() {
-        tearDownUninstallTestPackages();
-    }
-
-    @Test
-    public void testLoad() {
-        // This is perhaps redundant as package installation tests whether the package will load.
-        assertEval(Ignored.OutputFormatting, Context.NonShared, Context.LongTimeout,
-                        TestBase.template("{ library(%1, lib.loc = \"%0\"); detach(\"package:%1\"); }", new String[]{TestRPackages.libLoc()}, packages));
-    }
-}
diff --git a/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/rpackages/TestS4TestPackage.java b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/rpackages/TestS4TestPackage.java
deleted file mode 100644
index 5843ad45da..0000000000
--- a/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/rpackages/TestS4TestPackage.java
+++ /dev/null
@@ -1,69 +0,0 @@
-/*
- * Copyright (c) 2016, 2017, Oracle and/or its affiliates. All rights reserved.
- * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
- *
- * This code is free software; you can redistribute it and/or modify it
- * under the terms of the GNU General Public License version 2 only, as
- * published by the Free Software Foundation.
- *
- * This code is distributed in the hope that it will be useful, but WITHOUT
- * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
- * FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public License
- * version 2 for more details (a copy is included in the LICENSE file that
- * accompanied this code).
- *
- * You should have received a copy of the GNU General Public License version
- * 2 along with this work; if not, write to the Free Software Foundation,
- * Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA.
- *
- * Please contact Oracle, 500 Oracle Parkway, Redwood Shores, CA 94065 USA
- * or visit www.oracle.com if you need additional information or have any
- * questions.
- */
-package com.oracle.truffle.r.test.rpackages;
-
-import org.junit.AfterClass;
-import org.junit.BeforeClass;
-import org.junit.Test;
-
-import com.oracle.truffle.r.test.TestBase;
-
-/**
- * Tests related to the loading, etc. of R packages.
- */
-public class TestS4TestPackage extends TestRPackages {
-
-    private static final String[] TEST_PACKAGES = new String[]{"tests4"};
-
-    @BeforeClass
-    public static void setupInstallMyTestPackages() {
-        setupInstallTestPackages(TEST_PACKAGES);
-    }
-
-    @AfterClass
-    public static void tearDownUninstallMyTestPackages() {
-        tearDownUninstallTestPackages();
-    }
-
-    @Test
-    public void testS4Load() {
-        assertEval(TestBase.template("{ library(\"tests4\", lib.loc = \"%0\"); detach(\"package:tests4\"); unloadNamespace(\"tests4\") }",
-                        new String[]{TestRPackages.libLoc()}));
-    }
-
-    @Test
-    public void testS4Execute() {
-        assertEval(TestBase.template(
-                        "{ library(\"tests4\", lib.loc = \"%0\"); r<-print(tests4:::inspect.vehicle(new(\"Car\"), new(\"Inspector\"))); detach(\"package:tests4\"); unloadNamespace(\"tests4\"); r }",
-                        new String[]{TestRPackages.libLoc()}));
-        assertEval(TestBase.template(
-                        "{ library(\"tests4\", lib.loc = \"%0\"); r<-print(tests4:::inspect.vehicle(new(\"Truck\"), new(\"Inspector\"))); detach(\"package:tests4\"); unloadNamespace(\"tests4\"); r }",
-                        new String[]{TestRPackages.libLoc()}));
-        assertEval(TestBase.template(
-                        "{ library(\"tests4\", lib.loc = \"%0\"); r<-print(tests4:::inspect.vehicle(new(\"Car\"), new(\"StateInspector\"))); detach(\"package:tests4\"); unloadNamespace(\"tests4\"); r }",
-                        new String[]{TestRPackages.libLoc()}));
-        assertEval(TestBase.template(
-                        "{ library(\"tests4\", lib.loc = \"%0\"); r<-print(tests4:::inspect.vehicle(new(\"Truck\"), new(\"StateInspector\"))); detach(\"package:tests4\"); unloadNamespace(\"tests4\"); r }",
-                        new String[]{TestRPackages.libLoc()}));
-    }
-}
diff --git a/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/rpackages/TestVanillaPackage.java b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/rpackages/TestVanillaPackage.java
deleted file mode 100644
index 637377fa32..0000000000
--- a/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/rpackages/TestVanillaPackage.java
+++ /dev/null
@@ -1,63 +0,0 @@
-/*
- * Copyright (c) 2014, 2017, Oracle and/or its affiliates. All rights reserved.
- * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
- *
- * This code is free software; you can redistribute it and/or modify it
- * under the terms of the GNU General Public License version 2 only, as
- * published by the Free Software Foundation.
- *
- * This code is distributed in the hope that it will be useful, but WITHOUT
- * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
- * FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public License
- * version 2 for more details (a copy is included in the LICENSE file that
- * accompanied this code).
- *
- * You should have received a copy of the GNU General Public License version
- * 2 along with this work; if not, write to the Free Software Foundation,
- * Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA.
- *
- * Please contact Oracle, 500 Oracle Parkway, Redwood Shores, CA 94065 USA
- * or visit www.oracle.com if you need additional information or have any
- * questions.
- */
-package com.oracle.truffle.r.test.rpackages;
-
-import org.junit.AfterClass;
-import org.junit.BeforeClass;
-import org.junit.Test;
-
-import com.oracle.truffle.r.test.TestBase;
-
-/**
- * Tests related to the loading, etc. of R packages.
- */
-public class TestVanillaPackage extends TestRPackages {
-
-    private static final String[] TEST_PACKAGES = new String[]{"vanilla"};
-
-    @BeforeClass
-    public static void setupInstallMyTestPackages() {
-        setupInstallTestPackages(TEST_PACKAGES);
-    }
-
-    @AfterClass
-    public static void tearDownUninstallMyTestPackages() {
-        tearDownUninstallTestPackages();
-    }
-
-    @Test
-    public void testLoadVanilla() {
-        assertEval(TestBase.template("{ library(\"vanilla\", lib.loc = \"%0\"); r <- vanilla(); detach(\"package:vanilla\"); r }", new String[]{TestRPackages.libLoc()}));
-    }
-
-    @Test
-    public void testSimpleFunction() {
-        assertEval(TestBase.template("{ library(\"vanilla\", lib.loc = \"%0\"); r <- functionTest(c(1,2,3,4,5,6),8:10); detach(\"package:vanilla\"); r }",
-                        new String[]{TestRPackages.libLoc()}));
-    }
-
-    @Test
-    public void testQualifiedReplacement() {
-        assertEval(TestBase.template("{ library(\"vanilla\", lib.loc = \"%0\"); r<-42; vanilla::foo(r)<-7; detach(\"package:vanilla\"); r }", new String[]{TestRPackages.libLoc()}));
-    }
-}
diff --git a/documentation/dev/testing.md b/documentation/dev/testing.md
index a3a1bf75f1..0e6ed21eab 100644
--- a/documentation/dev/testing.md
+++ b/documentation/dev/testing.md
@@ -10,8 +10,7 @@ The unit testing works by executing the R test and the comparing the output with
 The unit tests reside mainly in the `com.oracle.truffle.r.test` project, with a smaller number in the and `com.oracle.truffle.r.nodes.test` project. To execute the unit tests use the `mx junit` command. The standard set of unit tests is available via the `mx junitdefault` command and the following additional variants are available:
 
 1. `mx junitsimple`: everything except the package tests and the `com.oracle.truffle.r.nodes.test`
-2. `mx junitnopkgs`: everything except the package tests
-3. `mx junit --tests list`: `list` is a comma-separated list of test patterns, where a pattern is a package or class. For example to just run the "builtin" tests run `mx junit --tests com.oracle.truffle.r.test.builtins`.
+2. `mx junit --tests list`: `list` is a comma-separated list of test patterns, where a pattern is a package or class. For example to just run the "builtin" tests run `mx junit --tests com.oracle.truffle.r.test.builtins`.
 
 As with most FastR `mx` commands, additional parameters can be passed to the underlying FastR process using the `--J` option. For example to debug a unit test under an IDE, it is important to disable the internal timeout mechanism that detects looping tests, vis:
 
@@ -55,16 +54,16 @@ Package developers can provide tests in several ways. To enable the full set of
 
 ### Package Installation and Testing
 
-Package installation and testing is partly handled by a R script `install_cran_packages.R` in the `com.oracle.truffle.r.test.cran` project and partly by an `mx` script. There are two relevant `mx` commands, `installpkgs` and `pkgtest`. The former is simply a wrapper to `install_cran_packages.R`, whereas `pkgtest` contains additional code to gather and compare test outputs.
+Package installation and testing is partly handled by a R script `install.packages.R` in the `com.oracle.truffle.r.test.packages` project and partly by an `mx` script. There are two relevant `mx` commands, `installpkgs` and `pkgtest`. The former is simply a wrapper to `install.packages.R`, whereas `pkgtest` contains additional code to gather and compare test outputs.
 
-#### The install_cran_packages.R script
+#### The install.packages.R script
 
 While normally run with FastR using the `mx installpkgs` wrapper, this script can be used standalone using `Rscript`, thereby allowing to to be used by GNU R also.
 The command has a rather daunting set of options but, for normal use, most of these do not need to be set.
 
 ##### Usage
 
-    mx installpkgs [--contriburl url] [--cran-mirror url]
+    mx installpkgs [--repos list] [--cran-mirror url]
                    [--verbose | -v] [-V]
                    [--dryrun]
                    [--no-install | -n]
@@ -94,24 +93,20 @@ Key concepts are discussed below.
 
 ##### Package Blacklist
 
-There are many packages that cannot be installed due to either missing functionality or fundamental limitations in FastR and this set is seeded from a a DCF file, `initial.package.blacklist`, in the `com.oracle.truffle.r.test.cran` project. `install_cran_packages` operates in two modes, either creating a complete blacklist from an initial blacklist or reading a previously created blacklist file. In the latter case, if the blacklist file does not exist, it will be created. The complete blacklist file can specified in three ways:
+There are many packages that cannot be installed due to either missing functionality or fundamental limitations in FastR and this set is seeded from a a DCF file, `initial.package.blacklist`, in the `com.oracle.truffle.r.test.packages` project. `install.packages` operates in two modes, either creating a complete blacklist from an initial blacklist or reading a previously created blacklist file. In the latter case, if the blacklist file does not exist, it will be created. The complete blacklist file can specified in three ways:
 
-1. using the command line argument `--blacklist-file`
-2. from the environment variable `PACKAGE_BLACKLIST`
-3. the file `package.blacklist`
-
-The alternatives are tried in order. So, usually, this is all automatic.
+1. using the command line argument `--blacklist-file`; if omitted defaults to the file `package.blacklist`
 
 ##### CRAN Mirror
-Packages are downloaded and installed from a CRAN mirror. When the standard `utils::install_packages` function is run interactively, the user is prompted for a mirror. To avoid such interaction, `install_cran_packages` has a number of ways of specifying a mirror, including the use of a "local mirror" in the file system. The default CRAN mirror is `http://cran.cnr.berkeley.edu/` but this can be changed either with the command line argument `--cran-mirror` or the environment variable `CRAN_MIRROR`.  When running locally a file system copy of a CRAN mirror containing just the `src/contrib` directory can be used by either setting the command line argument `--contrib-url` or the `LOCAL_CRAN_REPO` environment variable to a file: URL, e.g. `file:///users/mjj/cran/LOCAL_REPO/src/contrib`.
+Packages are downloaded and installed from the repos given by the `repos` argument, a comma-separated list, that defaults to `CRAN`. CRAN packages are downloaded from a CRAN mirror. When the standard `utils::install_packages` function is run interactively, the user is prompted for a mirror. To avoid such interaction, `install.packages` has two ways for specifying a mirror. The default CRAN mirror is `http://cran.cnr.berkeley.edu/` but this can be changed either with the command line argument `--cran-mirror` or the environment variable `CRAN_MIRROR`.  The `FASTR` repo is internal to the source base and contains FastR-specific test packages. The BioConductor repo can be added by setting `--repos BIOC`. It also implies `CRAN`.
 
 ##### Installation Directory
-The directory in which to install the package can be specified either by setting the `R_LIBS_USER` environment variable or with the `--lib` command line argument. The former is recommended and indeed required for running tests after installation.
+The directory in which to install the package can be specified either by setting the `R_LIBS_USER` environment variable or with the `--lib` command line argument. The former is recommended and indeed required for running tests after installation (the testing system does not honor the `--lib` argument).
 
 ##### Specifying packages to Install
-If the `--pkg-filelist` argument is provided then the associated file should contain a list of packages to install, one per line. Otherwise if a package pattern argument is given, then all packages matching the (R) regular expression are candidates for installation, otherwise all available packages are candidates, computed by invoking the `available.packages()` function. The candidate set can be adjusted with additional options.  The `--use-installed.pkgs` option will cause `install_cran_packages` to analyze the package installation directory for existing successfully installed packages and remove those from the candidate set. Some convenience options implicitly set `--pkg-filelist`, namely:
+If the `--pkg-filelist` argument is provided then the associated file should contain a list of packages to install, one per line. Otherwise if a package pattern argument is given, then all packages matching the (R) regular expression are candidates for installation, otherwise all available packages are candidates, computed by invoking the `available.packages()` function. The candidate set can be adjusted with additional options.  The `--use-installed.pkgs` option will cause `install.packages` to analyze the package installation directory for existing successfully installed packages and remove those from the candidate set. Some convenience options implicitly set `--pkg-filelist`, namely:
 
-    --ok-only: sets it to the file `com.oracle.truffle.r.test.cran.ok.packages`. This file is a list of packages that are known to install.
+    --ok-only: sets it to the file `com.oracle.truffle.r.test.packages.ok.packages`. This file is a list of packages that are known to install.
 
 N.B. The is file is updated only occasionally. Regressions, bug fixes, can render it inaccurate.
 
@@ -125,18 +120,18 @@ Finally, the `--invert-pkgset` option starts with the set from `available.packag
 N.B. By default the candidate set is always reduced by omitting any package in the package blacklist set, but this can be turned off by setting `--ignore-blacklist`. N.B. also that `--pkg-filelist` and `--pkg-pattern` are mutually exclusive.
 
 ##### Installing Dependent Packages:
-`install_cran_packages` installs the list of requested packages one by one. By default `utils::install.packages` always installs dependent packages, even if the dependent package has already been installed. This can be particularly wasteful if the package fails to install. Setting `--install-dependents-first` causes `install_cran_packages` to analyse the dependents and install them one by one first, aborting the installation of the depending package if any fail.
+`install.packages` installs the list of requested packages one by one. By default `utils::install.packages` always installs dependent packages, even if the dependent package has already been installed. This can be particularly wasteful if the package fails to install. Setting `--install-dependents-first` causes `install.packages` to analyse the dependents and install them one by one first, aborting the installation of the depending package if any fail.
 
 ##### Run Mode
-GNU R uses R/Rscript sub-processes in the internals of package installation and testing, but multiple package installations (e.g. using `--pkg-filelist`) would normally be initiated from a single top-level R process. This assumes that the package installation process itself is robust. This mode is defined as the `internal` mode variant of the `--run-mode` option. Since FastR is still under development, in `internal` mode a failure of FastR during a single package installation would abort the entire `install_cran_packages` execution. Therefore by default `install_cran_packages` runs each installation in  a separate FastR sub-process, referred to as `system` mode (because the R `system` function is used to launch the sub-process).
+GNU R uses R/Rscript sub-processes in the internals of package installation and testing, but multiple package installations (e.g. using `--pkg-filelist`) would normally be initiated from a single top-level R process. This assumes that the package installation process itself is robust. This mode is defined as the `internal` mode variant of the `--run-mode` option. Since FastR is still under development, in `internal` mode a failure of FastR during a single package installation would abort the entire `install.packages` execution. Therefore by default `install.packages` runs each installation in  a separate FastR sub-process, referred to as `system` mode (because the R `system` function is used to launch the sub-process).
 
-When running `install_cran_packages` under GNU R, it makes sense to set `--run-mode internal`.
+When running `install.packages` under GNU R, it makes sense to set `--run-mode internal`.
 
 ##### Use with GNU R
 
 Basic usage is:
 
-    $ Rscript $FASTR_HOME/fastr/com.oracle.truffle.r.test.cran/r/install.cran.packages.R --run-mode internal [options]
+    $ Rscript $FASTR_HOME/fastr/com.oracle.truffle.r.test.packages/r/install.packages.R --run-mode internal [options]
 
 where `FASTR_HOME` is the location of the FastR source.
 
@@ -157,11 +152,11 @@ Testing packages requires that they are first installed, so all of the above is
 
 #### Examples
 
-    $ export R_LIBS_USER=`pwd`/lib.install.cran
+    $ export R_LIBS_USER=`pwd`/lib.install.packages
 
     $ mx installpkgs --pkg-pattern '^A3$'
 
-Install the A3 package (and its dependents) in `$R_LIBS_USER`, creating the `package.blacklist` file first if it does not exist. The dependents (xtable, pbapply) will be installed implicitly by the  underlying R install.packages function
+Install the `A3` package (and its dependents) in `$R_LIBS_USER`, creating the `package.blacklist` file first if it does not exist. The dependents (`xtable`, `pbapply`) will be installed implicitly by the  underlying R install.packages function
 
     $ mx installpkgs --install-dependents-first--pkg-pattern '^A3$'
 
@@ -177,7 +172,7 @@ Install exactly those packages (and their dependents) specified, one per line, i
 
     $ mx installpkgs --ok-only --invert-pkgset --random-count 100
 
-Install 100 randomly chosen packages that are not in the file `com.oracle.truffle.r.test.cran/ok.packages`.
+Install 100 randomly chosen packages that are not in the file `com.oracle.truffle.r.test.packages/ok.packages`.
 
     $ mx installpkgs --ignore-blacklist '^Rcpp$'
 
@@ -193,6 +188,6 @@ To debug why a test fails requires first that the package is installed locally p
 
     $ FASTR_LOG_SYSTEM=1 mx installpkgs '^digest$'
 
-First, note that, by default,  the `installpkgs` command itself introduces an extra level on sub-process in order to avoid a failure from aborting the entire install command when installing/testing multiple packages. You can see this by setting the environment variable `FASTR_LOG_SYSTEM` to any value. The first sub-process logged will be running the command `com.oracle.truffle.r.test.cran/r/install.package.R` and the second will be the one running `R CMD INSTALL --install-tests` of the digest package. For ease of debugging you can set the `--run-mode` option to `internal`, which executes the first phase of the install in the process running `installpkgs`. Similar considerations apply to the testing phase. By default a sub-process is used to run the `com.oracle.truffle.r.test.cran/r/test.package.R script`, which then runs the actual test using a sub-process to invoke `R CMD BATCH`. Again the first sub-process can be avoided using `--run-mode internal`. N.B. If you run the tests for `digest` you will see that there are four separate sub-processes used to run different tests. The latter three are the specific tests for digest that were made available by installing with `--install-tests`. Not all packages have such additional tests. Note that there is no way to avoid the tests being run in sub-processes so setting the `-d` option to the `installpkgs` command will have no effect on those. Instead set the environment variable `MX_R_GLOBAL_ARGS=-d` which will cause the sub-processes to run under the debugger. Note that you will not (initially) see the `Listening for transport dt_socket at address: 8000` message on the console, but activating the debug launch from the IDE will connect to the sub-process.
+First, note that, by default,  the `installpkgs` command itself introduces an extra level on sub-process in order to avoid a failure from aborting the entire install command when installing/testing multiple packages. You can see this by setting the environment variable `FASTR_LOG_SYSTEM` to any value. The first sub-process logged will be running the command `com.oracle.truffle.r.test.packages/r/install.package.R` and the second will be the one running `R CMD INSTALL --install-tests` of the digest package. For ease of debugging you can set the `--run-mode` option to `internal`, which executes the first phase of the install in the process running `installpkgs`. Similar considerations apply to the testing phase. By default a sub-process is used to run the `com.oracle.truffle.r.test.packages/r/test.package.R script`, which then runs the actual test using a sub-process to invoke `R CMD BATCH`. Again the first sub-process can be avoided using `--run-mode internal`. N.B. If you run the tests for `digest` you will see that there are four separate sub-processes used to run different tests. The latter three are the specific tests for digest that were made available by installing with `--install-tests`. Not all packages have such additional tests. Note that there is no way to avoid the tests being run in sub-processes so setting the `-d` option to the `installpkgs` command will have no effect on those. Instead set the environment variable `MX_R_GLOBAL_ARGS=-d` which will cause the sub-processes to run under the debugger. Note that you will not (initially) see the `Listening for transport dt_socket at address: 8000` message on the console, but activating the debug launch from the IDE will connect to the sub-process.
 
 
diff --git a/mx.fastr/mx_fastr.py b/mx.fastr/mx_fastr.py
index e19d9ffd43..4555be425a 100644
--- a/mx.fastr/mx_fastr.py
+++ b/mx.fastr/mx_fastr.py
@@ -391,9 +391,6 @@ def junit_simple(args):
 def junit_noapps(args):
     return mx.command_function('junit')(['--tests', _gate_noapps_unit_tests()] + args)
 
-def junit_nopkgs(args):
-    return mx.command_function('junit')(['--tests', ','.join([_simple_unit_tests(), _nodes_unit_tests()])] + args)
-
 def junit_default(args):
     return mx.command_function('junit')(['--tests', _all_unit_tests()] + args)
 
@@ -412,9 +409,6 @@ def _simple_generated_unit_tests():
 def _simple_unit_tests():
     return ','.join([_simple_generated_unit_tests(), _test_subpackage('tck')])
 
-def _package_unit_tests():
-    return ','.join(map(_test_subpackage, ['rffi', 'rpackages']))
-
 def _nodes_unit_tests():
     return 'com.oracle.truffle.r.nodes.test'
 
@@ -422,7 +416,7 @@ def _apps_unit_tests():
     return _test_subpackage('apps')
 
 def _gate_noapps_unit_tests():
-    return ','.join([_simple_unit_tests(), _nodes_unit_tests(), _package_unit_tests()])
+    return ','.join([_simple_unit_tests(), _nodes_unit_tests()])
 
 def _gate_unit_tests():
     return ','.join([_gate_noapps_unit_tests(), _apps_unit_tests()])
@@ -431,7 +425,7 @@ def _all_unit_tests():
     return _gate_unit_tests()
 
 def _all_generated_unit_tests():
-    return ','.join([_simple_generated_unit_tests(), _package_unit_tests()])
+    return ','.join([_simple_generated_unit_tests()])
 
 def testgen(args):
     '''generate the expected output for unit tests, and All/Failing test classes'''
@@ -591,7 +585,6 @@ _commands = {
     'junitdefault' : [junit_default, ['options']],
     'junitgate' : [junit_gate, ['options']],
     'junitnoapps' : [junit_noapps, ['options']],
-    'junitnopkgs' : [junit_nopkgs, ['options']],
     'unittest' : [unittest, ['options']],
     'rbcheck' : [rbcheck, '--filter [gnur-only,fastr-only,both,both-diff]'],
     'rbdiag' : [rbdiag, '(builtin)* [-v] [-n] [-m] [--sweep | --sweep=lite | --sweep=total] [--mnonly] [--noSelfTest] [--matchLevel=same | --matchLevel=error] [--maxSweeps=N] [--outMaxLev=N]'],
@@ -599,6 +592,7 @@ _commands = {
     'rembed' : [rembed, '[options]'],
     'r-cp' : [r_classpath, '[options]'],
     'pkgtest' : [mx_fastr_pkgs.pkgtest, ['options']],
+    'pkgtest-cmp' : [mx_fastr_pkgs.pkgtest_cmp, ['gnur_path fastr_path']],
     'installpkgs' : [mx_fastr_pkgs.installpkgs, '[options]'],
     'mkgramrd': [mx_fastr_mkgramrd.mkgramrd, '[options]'],
     'rcopylib' : [mx_copylib.copylib, '[]'],
diff --git a/mx.fastr/mx_fastr_dists.py b/mx.fastr/mx_fastr_dists.py
index 3892b38573..68066b43ce 100644
--- a/mx.fastr/mx_fastr_dists.py
+++ b/mx.fastr/mx_fastr_dists.py
@@ -1,5 +1,5 @@
 #
-# Copyright (c) 2016, 2016, Oracle and/or its affiliates. All rights reserved.
+# Copyright (c) 2016, 2017, Oracle and/or its affiliates. All rights reserved.
 # DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
 #
 # This code is free software; you can redistribute it and/or modify it
@@ -131,18 +131,7 @@ class FastRTestNativeProject(FastRProjectAdapter):
         results = []
 
         self._get_files(join('packages', 'recommended'), results)
-
-        fastr_packages = []
-        fastr_packages_dir = join(self.dir, 'packages')
-        for root, dirs, _ in os.walk(fastr_packages_dir):
-            for d in dirs:
-                if d == 'recommended':
-                    continue
-                if os.path.isdir(join(root, d)):
-                    fastr_packages.append(d)
-            break
-        for p in fastr_packages:
-            results.append(join(fastr_packages_dir, p, 'lib', p + '.tar'))
+        self._get_files(join('packages', 'repo'), results)
 
         results.append(join(self.dir, 'urand', 'lib', 'liburand.so'))
         return results
diff --git a/mx.fastr/mx_fastr_pkgs.py b/mx.fastr/mx_fastr_pkgs.py
index 730622e8a3..6261292563 100644
--- a/mx.fastr/mx_fastr_pkgs.py
+++ b/mx.fastr/mx_fastr_pkgs.py
@@ -30,7 +30,7 @@ by the environment variable 'FASTR_GRAALVM' being set. (GRAALVM_FASTR is also ac
 Evidently in case 2, there is the potential for a version mismatch between FastR and GNU R, and this is checked.
 
 In either case all the output is placed in the fastr suite dir. Separate directories are used for FastR and GNU R package installs
-and tests, namely 'lib.install.cran.{fastr,gnur}' and 'test.{fastr,gnur}' (sh syntax).
+and tests, namely 'lib.install.packages.{fastr,gnur}' and 'test.{fastr,gnur}' (sh syntax).
 '''
 from os.path import join, relpath
 import shutil, os, re
@@ -79,10 +79,10 @@ def _graalvm():
 
 def _create_libinstall(rvm, test_installed):
     '''
-    Create lib.install.cran.<rvm>/install.tmp.<rvm>/test.<rvm> for <rvm>: fastr or gnur
+    Create lib.install.packages.<rvm>/install.tmp.<rvm>/test.<rvm> for <rvm>: fastr or gnur
     If use_installed_pkgs is True, assume lib.install exists and is populated (development)
     '''
-    libinstall = join(_fastr_suite_dir(), "lib.install.cran." + rvm)
+    libinstall = join(_fastr_suite_dir(), "lib.install.packages." + rvm)
     if not test_installed:
         # make sure its empty
         shutil.rmtree(libinstall, ignore_errors=True)
@@ -100,18 +100,18 @@ def _log_step(state, step, rvariant):
     if not quiet:
         print "{0} {1} with {2}".format(state, step, rvariant)
 
-def _cran_test_project():
-    return 'com.oracle.truffle.r.test.cran'
+def _packages_test_project():
+    return 'com.oracle.truffle.r.test.packages'
 
-def _cran_test_project_dir():
-    return mx.project(_cran_test_project()).dir
+def _packages_test_project_dir():
+    return mx.project(_packages_test_project()).dir
 
 def installpkgs(args):
     _installpkgs(args)
 
 def _installpkgs_script():
-    cran_test = _cran_test_project_dir()
-    return join(cran_test, 'r', 'install.cran.packages.R')
+    packages_test = _packages_test_project_dir()
+    return join(packages_test, 'r', 'install.packages.R')
 
 def _installpkgs(args, **kwargs):
     '''
@@ -141,7 +141,7 @@ def pkgtest(args):
         global quiet
         quiet = True
 
-    install_args = args
+    install_args = list(args)
 
     class OutputCapture:
         def __init__(self):
@@ -212,7 +212,7 @@ def pkgtest(args):
             install_args += ['--print-install-status']
 
     _log_step('BEGIN', 'install/test', 'FastR')
-    # Currently installpkgs does not set a return code (in install.cran.packages.R)
+    # Currently installpkgs does not set a return code (in install.packages.packages.R)
     rc = _installpkgs(install_args, nonZeroIsFatal=False, env=env, out=out, err=out)
     if rc == 100:
         # fatal error connecting to package repo
@@ -230,7 +230,7 @@ def pkgtest(args):
         # in order to compare the test output with GnuR we have to install/test the same
         # set of packages with GnuR
         ok_pkgs = [k for k, v in out.install_status.iteritems() if v]
-        _gnur_install_test(ok_pkgs, gnur_libinstall, gnur_install_tmp)
+        _gnur_install_test(_args_to_forward_to_gnur(args), ok_pkgs, gnur_libinstall, gnur_install_tmp)
         _set_test_status(out.test_info)
         print 'Test Status'
         for pkg, test_status in out.test_info.iteritems():
@@ -297,7 +297,7 @@ def _get_test_outputs(rvm, pkg_name, test_info):
             test_info[pkg_name] = TestStatus()
         for f in files:
             ext = os.path.splitext(f)[1]
-            if f == 'test_time' or ext == '.R' or ext == '.prev':
+            if f == 'test_time' or ext == '.R' or ext == '.Rin' or ext == '.prev':
                 continue
             # suppress .pdf's for now (we can't compare them)
             if ext == '.pdf':
@@ -314,7 +314,25 @@ def _get_test_outputs(rvm, pkg_name, test_info):
             relfile = relpath(absfile, pkg_testdir)
             test_info[pkg_name].testfile_outputs[relfile] = TestFileStatus(status, absfile)
 
-def _gnur_install_test(pkgs, gnur_libinstall, gnur_install_tmp):
+def _args_to_forward_to_gnur(args):
+    forwarded_args = ['--repos', '--run-mode']
+    result = []
+    i = 0
+    while i < len(args):
+        arg = args[i]
+        if arg in forwarded_args:
+            result.append(arg)
+            i = i + 1
+            result.append(args[i])
+        i = i + 1
+    return result
+
+def _gnur_install_test(forwarded_args, pkgs, gnur_libinstall, gnur_install_tmp):
+    '''
+    Install/test with GNU R  exactly those packages that installe3d correctly with FastR.
+    N.B. That means that regardless of how the packages were specified to pkgtest
+    we always use a --pkg-filelist' arg to GNU R
+    '''
     gnur_packages = join(_fastr_suite_dir(), 'gnur.packages')
     with open(gnur_packages, 'w') as f:
         for pkg in pkgs:
@@ -328,11 +346,11 @@ def _gnur_install_test(pkgs, gnur_libinstall, gnur_install_tmp):
     args = []
     if _graalvm():
         args += [_gnur_rscript()]
+    # forward any explicit args to pkgtest
     args += [_installpkgs_script()]
+    args += forwarded_args
     args += ['--pkg-filelist', gnur_packages]
     args += ['--run-tests']
-# GNU R will abort the entire run otherwise if a failure occurs
-#    args += ['--run-mode', 'internal']
     args += ['--ignore-blacklist']
     args += ['--testdir', 'test.gnur']
     _log_step('BEGIN', 'install/test', 'GnuR')
@@ -445,6 +463,20 @@ def _find_end(content):
     # not all files have a Time elapsed:
     return len(content) - 1
 
+def _find_line(gnur_line, fastr_content, fastr_i):
+    '''
+    Search forward in fastr_content from fastr_i searching for a match with gnur_line.
+    Do not match empty lines!
+    '''
+    if gnur_line == '\n':
+        return -1
+    while fastr_i < len(fastr_content):
+        fastr_line = fastr_content[fastr_i]
+        if fastr_line == gnur_line:
+            return fastr_i
+        fastr_i = fastr_i + 1
+    return -1
+
 def _fuzzy_compare(gnur_content, fastr_content):
     gnur_start = _find_start(gnur_content)
     gnur_end = _find_end(gnur_content)
@@ -452,20 +484,55 @@ def _fuzzy_compare(gnur_content, fastr_content):
     fastr_len = len(fastr_content)
     if not gnur_start or not gnur_end or not fastr_start:
         return -1
-    gnur_start = gnur_start + 1 # Gnu has extra empty line
+    gnur_i = gnur_start + 1 # Gnu has extra empty line
+    fastr_i = fastr_start
     result = 0
-    i = gnur_start
-    while i + gnur_start < gnur_end:
-        gnur_line = gnur_content[i + gnur_start]
-        if i + fastr_start >= fastr_len:
+    while gnur_i < gnur_end:
+        gnur_line = gnur_content[gnur_i]
+        if fastr_i >= fastr_len:
             result = 1
             break
 
-        fastr_line = fastr_content[i + fastr_start]
+        fastr_line = fastr_content[fastr_i]
         if gnur_line != fastr_line:
-            result = 1
-            break
-        i = i + 1
+            # we are fuzzy on Error/Warning as FastR often differs
+            # in the context/format of the error/warniong message AND GnuR is sometimes
+            # inconsistent over which error message it uses. Unlike the unit test environment,
+            # we cannot tag tests in any way, so we simply check that FastR does report
+            # an error. We then scan forward to try to get the files back in sync, as the
+            # the number of error/warning lines may differ.
+            if gnur_line.startswith(('Error', 'Warning')):
+                to_match = 'Error' if gnur_line.startswith('Error') else 'Warning'
+                if not fastr_line.startswith(to_match):
+                    result = 1
+                    break
+                else:
+                    # skip until lines match (or not)
+                    gnur_i = gnur_i + 1
+                    fastr_i = fastr_i + 1
+                    ni = -1
+                    while gnur_i < gnur_end:
+                        ni = _find_line(gnur_content[gnur_i], fastr_content, fastr_i)
+                        if ni > 0:
+                            break
+                        gnur_i = gnur_i + 1
+                    if ni > 0:
+                        fastr_i = ni
+                        continue
+                    else:
+                        result = 1
+                        break
+            else:
+                # genuine difference
+                result = 1
+                break
+        gnur_i = gnur_i + 1
+        fastr_i = fastr_i + 1
     return result
 
-
+def pkgtest_cmp(args):
+    with open(args[0]) as f:
+        gnur_content = f.readlines()
+    with open(args[1]) as f:
+        fastr_content = f.readlines()
+    _fuzzy_compare(gnur_content, fastr_content)
diff --git a/mx.fastr/suite.py b/mx.fastr/suite.py
index 72888b9907..c21926d4d3 100644
--- a/mx.fastr/suite.py
+++ b/mx.fastr/suite.py
@@ -184,7 +184,7 @@ suite = {
       "workingSets" : "FastR",
     },
 
-    "com.oracle.truffle.r.test.cran" : {
+    "com.oracle.truffle.r.test.packages" : {
       "sourceDirs" : ["r"],
       "javaCompliance" : "1.8",
       "workingSets" : "FastR",
-- 
GitLab