diff --git a/com.oracle.truffle.r.native/gnur/tests/src/Examples/base-Ex.R b/com.oracle.truffle.r.native/gnur/tests/src/Examples/base-Ex.R index c23dd0c01448592e36d1328b5d4894923dc13d09..0617ad605aae94bb2fe937fc911ddc30da5a9ca5 100644 --- a/com.oracle.truffle.r.native/gnur/tests/src/Examples/base-Ex.R +++ b/com.oracle.truffle.r.native/gnur/tests/src/Examples/base-Ex.R @@ -3881,6 +3881,7 @@ env$logic <- c(TRUE, FALSE, FALSE, TRUE) # what have we there? utils::ls.str(env) +if(FALSE) { # [FastR] BEGIN Test snippet disabled since it causes fastr_errors.log increase by 500MB # compute the mean for each list element eapply(env, mean) unlist(eapply(env, mean, USE.NAMES = FALSE)) @@ -3888,6 +3889,7 @@ unlist(eapply(env, mean, USE.NAMES = FALSE)) # median and quartiles for each element (making use of "..." passing): eapply(env, quantile, probs = 1:3/4) eapply(env, quantile) +} # [FastR] END Test snippet disabled since it causes fastr_errors.log increase by 500MB @@ -4121,11 +4123,13 @@ x <- seq(0, 10, length.out = 100) y <- seq(-1, 1, length.out = 20) d1 <- expand.grid(x = x, y = y) d2 <- expand.grid(x = x, y = y, KEEP.OUT.ATTRS = FALSE) +if(FALSE) { # [FastR] BEGIN Test snippet disabled since it causes fastr_errors.log increase by 500MB object.size(d1) - object.size(d2) ##-> 5992 or 8832 (on 32- / 64-bit platform) ## Don't show: stopifnot(object.size(d1) > object.size(d2)) ## End(Don't show) +} # [FastR] BEGIN Test snippet disabled since it causes due to fastr_errors.log increase by 500MB diff --git a/com.oracle.truffle.r.native/gnur/tests/src/Examples/utils-Ex.R b/com.oracle.truffle.r.native/gnur/tests/src/Examples/utils-Ex.R index 32e43e71c79a807b1617f21720a7ba043d948e5c..e5051cac661e376ae63d7d2a16df552578ed8650 100644 --- a/com.oracle.truffle.r.native/gnur/tests/src/Examples/utils-Ex.R +++ b/com.oracle.truffle.r.native/gnur/tests/src/Examples/utils-Ex.R @@ -1870,8 +1870,10 @@ stopifnot(identical( ## assert that all three are the same : format(round(as.vector(sl)/1024, 1)))) ## find the 10 largest objects in the base package +if(FALSE) { # [FastR] BEGIN Test snippet disabled since it causes fastr_errors.log increase by 200MB z <- sapply(ls("package:base"), function(x) object.size(get(x, envir = baseenv()))) +} # [FastR] BEGIN Test snippet disabled since it causes fastr_errors.log increase by 200MB if(interactive()) { as.matrix(rev(sort(z))[1:10]) } else # (more constant over time): diff --git a/mx.fastr/mx_fastr.py b/mx.fastr/mx_fastr.py index 4697dc4692c31be457944eb40835db13a5385c61..08bbcb01fad46c583799c81fd838566e2ff61749 100644 --- a/mx.fastr/mx_fastr.py +++ b/mx.fastr/mx_fastr.py @@ -465,6 +465,8 @@ def gnu_rtests(args, env=None): os.chdir(_fastr_suite.dir) # Packages install fails otherwise # mx_fastr_pkgs.installpkgs(['--pkg-pattern', '^MASS$']) # required by tests/Examples/base-Ex.R np = mx.project('com.oracle.truffle.r.native') + ferrs = join(_fastr_suite.dir, 'fastr_errors.log') + ferrs_size = os.stat(ferrs).st_size if os.access(ferrs, os.R_OK) else 0 tst = join(np.dir, 'gnur', 'tests') tstsrc = join(tst, 'src') tstlog = join(tst, 'log') @@ -488,6 +490,12 @@ def gnu_rtests(args, env=None): os.rename(outf, outff) print 'Running {} explicitly by GnuR CMD BATCH ...'.format(f) mx.run([join(_gnur_path(), 'R'), '--vanilla', 'CMD', 'BATCH', join(srcd, f)] + args, nonZeroIsFatal=False, env=env, timeout=90) + ferrs_new_size = os.stat(ferrs).st_size if os.access(ferrs, os.R_OK) else 0 + if ferrs_new_size - ferrs_size > 0: + with open(ferrs) as f: + nlines = sum(1 for _ in f) + print ' Size of {} increased to {:,} bytes ({:,} lines).\n'.format(ferrs, ferrs_new_size, nlines) + ferrs_size = ferrs_new_size if os.path.isfile(outf): outfg = outf + '.gnur' os.rename(outf, outfg)