On 01.07.2011 18:07, Cody Hamilton wrote:
Hi Uwe,

Thank you for taking the time to look into this!

I created the function my.test by modifying testInstalledBasic with the line 
change you list below and then ran:

Sys.setenv(LC_COLLATE="C")
my.test('basic')

I get the same error message as before:

my.test('basic')
running strict specific tests
   running code in ‘eval-etc.R’
   comparing ‘eval-etc.Rout’ to ‘eval-etc.Rout.save’ ...[1] 1


But we really need your diffs!

Uwe Ligges


Here is the function my.test:

my.test<-function (scope = c("basic", "devel", "both"))
{
     scope<- match.arg(scope)
     Sys.setlocale("LC_COLLATE", "C")
     tests1<- c("eval-etc", "simple-true", "arith-true", "lm-tests",
         "ok-errors", "method-dispatch", "d-p-q-r-tests")
     tests2<- c("complex", "print-tests", "lapack", "datasets")
     tests3<- c("reg-tests-1a", "reg-tests-1b", "reg-tests-2", "reg-IO", "reg-IO2", 
"reg-S4")

     runone<- function(f, diffOK = FALSE, inC = TRUE) {
         f<- paste(f, "R", sep = ".")
         if (!file.exists(f)) {
             if (!file.exists(fin<- paste(f, "in", sep = "")))
                 stop("file ", sQuote(f), " not found", domain = NA)
             message("creating ", sQuote(f))
             cmd<- paste(shQuote(file.path(R.home("bin"), "R")),
                 "CMD BATCH --no-timing --vanilla --slave", fin)
             if (system(cmd))
                 stop("creation of ", sQuote(f), " failed")
             on.exit(unlink(f))
         }
         message("  running code in ", sQuote(f))
         outfile<- paste(f, "out", sep = "")
         cmd<- paste(shQuote(file.path(R.home("bin"), "R")),
             "CMD BATCH --vanilla --no-timing", shQuote(f), shQuote(outfile))
         extra<- paste("LANGUAGE=C", "R_DEFAULT_PACKAGES=", "SRCDIR=.")
         if (inC)
             extra<- paste(extra, "LC_ALL=C")
         if (.Platform$OS.type == "windows") {
             Sys.setenv(LANGUAGE = "C")
             Sys.setenv(R_DEFAULT_PACKAGES = "")
             Sys.setenv(SRCDIR = ".")
         }
         else cmd<- paste(extra, cmd)
         res<- system(cmd)
         if (res) {
             file.rename(outfile, paste(outfile, "fail", sep = "."))
             message("FAILED")
             return(1L)
         }
         savefile<- paste(outfile, "save", sep = ".")
         if (file.exists(savefile)) {
             message("  comparing ", sQuote(outfile), " to ",
                 sQuote(savefile), " ...", appendLF = FALSE)
             res<- Rdiff(outfile, savefile, TRUE)
             if (!res)
                 message(" OK")
             else if (!diffOK)
                 return(1L)
         }
         0L
     }
     owd<- setwd(file.path(R.home(), "tests"))
     on.exit(setwd(owd))
     if (scope %in% c("basic", "both")) {
         message("running strict specific tests")
         for (f in tests1) if (runone(f))
             return(1L)
         message("running sloppy specific tests")
         for (f in tests2) runone(f, TRUE)
         message("running regression tests")
         for (f in tests3) {
             if (runone(f))
                 return(invisible(1L))
             if (f == "reg-plot") {
                 message("  comparing 'reg-plot.ps' to 'reg-plot.ps.save' ...",
                   appendLF = FALSE)
                 system("diff reg-plot.ps reg-plot.ps.save")
                 message("OK")
             }
         }
         runone("reg-tests-3", TRUE)
         message("running tests of plotting Latin-1")
         message("  expect failure or some differences if not in a Latin or UTF-8 
locale")
         runone("reg-plot-latin1", TRUE, FALSE)
         message("  comparing 'reg-plot-latin1.ps' to 'reg-plot-latin1.ps.save' 
...",
             appendLF = FALSE)
         system("diff reg-plot-latin1.ps reg-plot-latin1.ps.save")
         message("OK")
     }
     if (scope %in% c("devel", "both")) {
         message("running tests of consistency of as/is.*")
         runone("isas-tests")
         message("running tests of random deviate generation -- fails 
occasionally")
         runone("p-r-random-tests", TRUE)
         message("running tests of primitives")
         if (runone("primitives"))
             return(invisible(1L))
         message("running regexp regression tests")
         if (runone("utf8-regex", inC = FALSE))
             return(invisible(1L))
         message("running tests to possibly trigger segfaults")
         if (runone("no-segfault"))
             return(invisible(1L))
     }
     invisible(0L)
}


--- On Fri, 7/1/11, Uwe Ligges<lig...@statistik.tu-dortmund.de>  wrote:

From: Uwe Ligges<lig...@statistik.tu-dortmund.de>
Subject: Re: [R] testInstalledBasic
To: "Cody Hamilton"<cody.sh...@yahoo.com>
Cc: r-help@r-project.org
Date: Friday, July 1, 2011, 6:04 AM


On 01.07.2011 01:17, Cody Hamilton wrote:
Hello,

I installed R 2.13.0 on a Windows 2003 server.  I
downloaded the Rtools213.exe from http://www.murdoch-sutherland.com/Rtools/
and placed it in the path (C:\Program
Files\R\R-2.13.0\bin).

I submitted the following code:

library(tools)
Sys.setenv(LC_COLLATE=C)
testInstalledBasic('basic')

I get the following message in the R Console, which I
believe corresponds to a failure of the test:

library(tools)
Sys.setenv(LC_COLLATE=C)
testInstalledBasic('basic')
running strict specific tests
     running code in ‘eval-etc.R’
     comparing ‘eval-etc.Rout’ to
‘eval-etc.Rout.save’ ...[1] 1

Is there something wrong with my install?



I took a closer look and your problem is that you want

Sys.setenv(LC_COLLATE="C")

rather than

Sys.setenv(LC_COLLATE=C)

since C is a function but "C" the character you actually
want to set.




Anyway, there is a bug in ./src/library/tools/R/testing.R
(e.g. for
today's R-devel):

The line

      tests3<- c("reg-tests-1",
"reg-tests-2", "reg-IO", "reg-IO2",
"reg-S4")

needs to be replaced by

      tests3<- c("reg-tests-1a",
"reg-tests-1b", "reg-tests-2",
"reg-IO", "reg-IO2", "reg-S4")

Any R core member around to fix this?


Best,
Uwe Ligges




Regards,
      -Cody

______________________________________________
R-help@r-project.org
mailing list
https://stat.ethz.ch/mailman/listinfo/r-help
PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
and provide commented, minimal, self-contained,
reproducible code.


______________________________________________
R-help@r-project.org mailing list
https://stat.ethz.ch/mailman/listinfo/r-help
PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
and provide commented, minimal, self-contained, reproducible code.

Reply via email to