Ken,

Could you test the 0.9.1 tarball?  Then in
inst/unitTests/runit.Module.client.package.R, apply the diff below:

  -- ie add the new .badOSX function (maybe I'll rename it 'oldOSX')

  -- change the test to add a   && ! .badOSX()   

so that the test that barfs under g++ 4.2.1 is not getting run.

If that passes everything, yet failed before, we would have ourselves a new
version which may things better.

Dirk


Index: runit.Module.client.package.R
===================================================================
--- runit.Module.client.package.R       (revision 2902)
+++ runit.Module.client.package.R       (working copy)
@@ -22,8 +22,18 @@
        gc()
 }
 
-if( Rcpp:::capabilities()[["Rcpp modules"]] ) {
+.badOSX <- function() {                                # the unit test in this 
file fails on OS X 10.5
+    val <- FALSE                               # assume we are not on an old 
OS X
+    if (Sys.info()['sysname'] != "Darwin") {    # if on Darwin, let's test
+        vertxt <- Sys.info()['release']                # 10.5.0 or 10.6.0 or 
....
+        osx <- as.numeric(strsplit(vertxt, "\\.")[[1]])
+        val <- osx[1] == 10 && osx[2] <= 5             # 10 and le 5 will mark 
as bad
+    }
+    val
+}
 
+if( Rcpp:::capabilities()[["Rcpp modules"]] && ! .basOSX() ) {
+
 test.Module.package <- function( ){
 
     td <- tempfile()

On 22 February 2011 at 16:58, ken.willi...@thomsonreuters.com wrote:
| 
| 
| 
| 
| On 2/22/11 4:54 PM, "Dirk Eddelbuettel" <e...@debian.org> wrote:
| 
| >What is in Sys.info(), particularly fields 1 and 2:
| >
| >R> Sys.info()[1:2]
| >            sysname             release
| >            "Linux" "2.6.32-25-generic"
| 
| That's probably the right way to do it, as Simon suggested too in the
| meantime.
| 
| > Sys.info()[1:2]
|  sysname  release 
| "Darwin" "10.6.0" 
| 
| 
| 
| 
| 
| > 
| >
| >Else, .Platform() starts with 'Darwin', right?
| 
| Nope: 
| 
| > .Platform[1]
| $OS.type
| [1] "unix"
| 
| 
| 
| --
| Ken Williams
| Senior Research Scientist
| Thomson Reuters
| http://labs.thomsonreuters.com
| 
| 

-- 
Dirk Eddelbuettel | e...@debian.org | http://dirk.eddelbuettel.com
_______________________________________________
Rcpp-devel mailing list
Rcpp-devel@lists.r-forge.r-project.org
https://lists.r-forge.r-project.org/cgi-bin/mailman/listinfo/rcpp-devel

Reply via email to