Commit 330df4f9 authored by Martin Maechler's avatar Martin Maechler

run 'strict' test only for "maechler" for now (=> not run for "ATLAS" etc..)

parent 7150fa66
......@@ -10,6 +10,10 @@ b64nLD <- (arch == "x86_64" && .M$sizeof.longdouble != 16)
if(b64nLD) arch <- paste0(arch, "--no-long-double")
arch
## I'd want
## strict <- we_are_using_Rs_own_BLAS_and_Lapack() # but simply for now
(strict <- Sys.info()[["user"]] == "maechler")# actually
data(muS.sp500)
if(requireNamespace("FRAPO")) {
......@@ -131,7 +135,7 @@ b64nLD.n0[["XTO"]] <- 99L # = b... - 3L
non.0.TARG <- if(b64) { if(b64nLD) b64nLD.n0 else b64.n0
} else b32.n0
## see on all platforms what we get; typically no diff on 64bit
## see on all platforms what we get; typically no diff on 64bit *and* using R's BLAS/Lapack
if(all(non.0.assets == non.0.TARG)) { ## show differences:
cat("Asset results == non.0.TARG; showing differences b32 - b64 :\n")
print(table(b32.n0 -b64.n0))
......@@ -175,8 +179,8 @@ if(all(non.0.assets == non.0.TARG)) { ## show differences:
## They have the same names and only differ by +/- 1:
stopifnot(
identical(names(b64.n0), names(b32.n0))
, ## ______ ______
if(b64) identical(non.0.assets, non.0.TARG) # fails on ATLAS, MKL, OpenBLAS
,
if(b64) !strict || identical(non.0.assets, non.0.TARG) # fails on ATLAS, MKL, OpenBLAS
else if(nonWindows) identical(non.0.assets, b32.n0)
else ## 32-bit Windows
TRUE ## for now
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment