Running 'test.RUnit.R' [150s]
Running the tests in 'tests/test.RUnit.R' failed.
Complete output:
  > ## unit tests will not be done if RUnit is not available
  > 
  > if(require("RUnit", quietly=TRUE)) {
  +   ## 
  +   ## --- Setup ---
  +   ##
  +   pkg <- "qmrparser" # <-- Change to package name!
  +                                         #3
  +   ## When in developing
  +   path <-  file.path(getwd(), "runit")
  +   if ( file.exists(path) ) {
  +     ## When in developing, developing environment is prioritised
  +     .libPaths(c(file.path(getwd(), ".."),.libPaths()))
  +   } else {
  +     ## Otherwise, check if package already installed
  +     path <- system.file(package=pkg, "tests", "runit")    
  +   }    
  +   ##
  +   ##
  +   ##
  +   cat("\nRunning unit tests\n")
  +   print(list(pkg=pkg, getwd=getwd(), pathToUnitTests=path))
  +   ##
  +   require(package=pkg, character.only=TRUE)
  +   ##
  +   wd <- setwd(path) ; path <- "." 
  +  
  +   ## If desired, load the name space to allow testing of private functions
  +   ## if (is.element(pkg, loadedNamespaces()))
  +   ##     attach(loadNamespace(pkg), name=paste("namespace", pkg, sep=":"), pos=3)
  +   ##
  +   ## or simply call PKG:::myPrivateFunction() in tests
  +  
  +   ## --- Testing ---
  +  
  +   ## Define tests
  +   testSuite <- defineTestSuite(
  +                 name=paste(pkg, "unit testing"),
  +                 dirs=path, 
  +                 testFileRegexp = "^runit.+\\.[rR]$",
  +                 testFuncRegexp = "^test.+")
  +   ## Run
  +   tests <- runTestSuite(testSuite)
  +  
  +   ## Default report name
  +   pathReport <- file.path(path, "report")
  +   dir.create(path=pathReport, recursive = TRUE)
  +  
  +   ## Report to stdout and text files
  +   cat("------------------- UNIT TEST SUMMARY ---------------------\n\n")
  +   printTextProtocol(tests, showDetails=TRUE,
  +                     fileName=file.path(pathReport, "report.txt"))
  +   printTextProtocol(tests, showDetails=FALSE,
  +                     fileName=file.path(pathReport, "Summary.txt"))
  +  
  +   ## Report to HTML file
  +   testFileToSFLinkMap <- function(testFileName, testDir = "..") {
  +     return(file.path("..",basename(testFileName)))
  +   }
  + 
  +   printHTMLProtocol(tests, fileName=file.path(pathReport, "report.html"),
  +                     testFileToLinkMap = testFileToSFLinkMap)
  +   
  +   setwd(wd)
  +   ## Return stop() to cause R CMD check stop in case of
  +   ##  - failures i.e. FALSE to unit tests or
  +   ##  - errors i.e. R errors
  +   tmp <- getErrors(tests)
  +   if(tmp$nFail > 0 | tmp$nErr > 0) {
  +     stop(paste("\n\nunit testing failed (#test failures: ", tmp$nFail,
  +                ", #R errors: ",  tmp$nErr, ")\n\n", sep=""))
  +   }
  + } else {
  +   warning("cannot run unit tests -- package RUnit is not available")
  + }
  
  Running unit tests
  $pkg
  [1] "qmrparser"
  
  $getwd
  [1] "d:/Rcompile/CRANpkg/local/4.4/qmrparser.Rcheck/tests"
  
  $pathToUnitTests
  [1] "d:/Rcompile/CRANpkg/local/4.4/qmrparser.Rcheck/tests/runit"
  
  Loading required package: qmrparser
  
  
  Executing test function test.tokens01  ...  done successfully.
  
  
  
  Executing test function test.tokens02  ...  done successfully.
  
  
  
  Executing test function test.rules01  ...  done successfully.
  
  
  
  Executing test function test.rules02  ...  done successfully.
  
  [1] "[symbolic] [ok]" "[CHARSET] [ok]" 
  [1] "[char] [ok]" "[=] [ok]"   
  [1] "[string] [ok]" "[ANSI] [ok]"  
  [1] "[char] [ok]" "[;] [ok]"   
  [1] "[char] [ok]" "[\n] [ok]"  
  [1] "[symbolic] [ok]"     "[AXIS-VERSION] [ok]"
  [1] "[char] [ok]" "[=] [ok]"   
  [1] "[string] [ok]" "[2000] [ok]"  
  [1] "[char] [ok]" "[;] [ok]"   
  [1] "[char] [ok]" "[\n] [ok]"  
  [1] "[symbolic] [ok]" "[DECIMALS] [ok]"
  [1] "[char] [ok]" "[=] [ok]"   
  [1] "[numberScientific] [ok]" "[0] [ok]"               
  [1] "[char] [ok]" "[;] [ok]"   
  [1] "[char] [ok]" "[\n] [ok]"  
  [1] "[symbolic] [ok]" "[MATRIX] [ok]"  
  [1] "[char] [ok]" "[=] [ok]"   
  [1] "[string] [ok]" "[vaerak] [ok]"
  [1] "[char] [ok]" "[;] [ok]"   
  [1] "[char] [ok]" "[\n] [ok]"  
  [1] "[symbolic] [ok]"     "[SUBJECT-CODE] [ok]"
  [1] "[char] [ok]" "[=] [ok]"   
  [1] "[string] [ok]" "[VRM] [ok]"   
  [1] "[char] [ok]" "[;] [ok]"   
  [1] "[char] [ok]" "[\n] [ok]"  
  [1] "[symbolic] [ok]"     "[SUBJECT-AREA] [ok]"
  [1] "[char] [ok]" "[=] [ok]"   
  [1] "[string] [ok]" "[Väestö] [ok]"
  [1] "[char] [ok]" "[;] [ok]"   
  [1] "[char] [ok]" "[\n] [ok]"  
  [1] "[symbolic] [ok]" "[TITLE] [ok]"   
  [1] "[char] [ok]" "[=] [ok]"   
  [1] "[string] [ok]"                                                          
  [2] "[Väestö 31.12. muuttujina Sukupuoli, Kunta, Vuosi ja Siviilisääty] [ok]"
  [1] "[char] [ok]" "[;] [ok]"   
  [1] "[char] [ok]" "[\n] [ok]"  
  [1] "[symbolic] [ok]" "[CONTENTS] [ok]"
  [1] "[char] [ok]" "[=] [ok]"   
  [1] "[string] [ok]"        "[Väestö 31.12.] [ok]"
  [1] "[char] [ok]" "[;] [ok]"   
  [1] "[char] [ok]" "[\n] [ok]"  
  [1] "[symbolic] [ok]" "[UNITS] [ok]"   
  [1] "[char] [ok]" "[=] [ok]"   
  [1] "[string] [ok]"   "[Henkilöä] [ok]"
  [1] "[char] [ok]" "[;] [ok]"   
  [1] "[char] [ok]" "[\n] [ok]"  
  [1] "[symbolic] [ok]" "[STUB] [ok]"    
  [1] "[char] [ok]" "[=] [ok]"   
  [1] "[string] [ok]"    "[Sukupuoli] [ok]"
  [1] "[char] [ok]" "[,] [ok]"   
  [1] "[string] [ok]" "[Kunta] [ok]" 
  [1] "[char] [ok]" "[;] [ok]"   
  [1] "[char] [ok]" "[\n] [ok]"  
  [1] "[symbolic] [ok]" "[HEADING] [ok]" 
  [1] "[char] [ok]" "[=] [ok]"   
  [1] "[string] [ok]" "[Vuosi] [ok]" 
  [1] "[char] [ok]" "[,] [ok]"   
  [1] "[string] [ok]"       "[Siviilisääty] [ok]"
  [1] "[char] [ok]" "[;] [ok]"   
  [1] "[char] [ok]" "[\n] [ok]"  
  [1] "[symbolic] [ok]" "[VALUES] [ok]"  
  [1] "[char] [ok]" "[(] [ok]"   
  [1] "[string] [ok]"    "[Sukupuoli] [ok]"
  [1] "[char] [ok]" "[)] [ok]"   
  [1] "[char] [ok]" "[=] [ok]"   
  [1] "[string] [ok]"             "[Sukupuoli yhteensä] [ok]"
  [1] "[char] [ok]" "[,] [ok]"   
  [1] "[string] [ok]" "[Miehet] [ok]"
  [1] "[char] [ok]" "[,] [ok]"   
  [1] "[string] [ok]" "[Naiset] [ok]"
  [1] "[char] [ok]" "[;] [ok]"   
  [1] "[char] [ok]" "[\n] [ok]"  
  [1] "[symbolic] [ok]" "[VALUES] [ok]"  
  [1] "[char] [ok]" "[(] [ok]"   
  [1] "[string] [ok]" "[Kunta] [ok]" 
  [1] "[char] [ok]" "[)] [ok]"   
  [1] "[char] [ok]" "[=] [ok]"   
  [1] "[string] [ok]" "[Espoo] [ok]" 
  [1] "[char] [ok]" "[,] [ok]"   
  [1] "[string] [ok]"   "[Helsinki] [ok]"
  [1] "[char] [ok]" "[,] [ok]"   
  [1] "[string] [ok]" "[Vantaa] [ok]"
  [1] "[char] [ok]" "[;] [ok]"   
  [1] "[char] [ok]" "[\n] [ok]"  
  [1] "[symbolic] [ok]" "[VALUES] [ok]"  
  [1] "[char] [ok]" "[(] [ok]"   
  [1] "[string] [ok]" "[Vuosi] [ok]" 
  [1] "[char] [ok]" "[)] [ok]"   
  [1] "[char] [ok]" "[=] [ok]"   
  [1] "[string] [ok]" "[2001] [ok]"  
  [1] "[char] [ok]" "[,] [ok]"   
  [1] "[string] [ok]" "[2002] [ok]"  
  [1] "[char] [ok]" "[;] [ok]"   
  [1] "[char] [ok]" "[\n] [ok]"  
  [1] "[symbolic] [ok]" "[VALUES] [ok]"  
  [1] "[char] [ok]" "[(] [ok]"   
  [1] "[string] [ok]"       "[Siviilisääty] [ok]"
  [1] "[char] [ok]" "[)] [ok]"   
  [1] "[char] [ok]" "[=] [ok]"   
  [1] "[string] [ok]"                "[Siviilisääty yhteensä] [ok]"
  [1] "[char] [ok]" "[,] [ok]"   
  [1] "[string] [ok]"   "[Naimaton] [ok]"
  [1] "[char] [ok]" "[,] [ok]"   
  [1] "[string] [ok]"     "[Naimisissa] [ok]"
  [1] "[char] [ok]" "[;] [ok]"   
  [1] "[char] [ok]" "[\n] [ok]"  
  [1] "[symbolic] [ok]" "[DATA] [ok]"    
  [1] "[char] [ok]" "[=] [ok]"   
  [1] "[char] [ok]" "[\n] [ok]"  
  [1] "[numberScientific] [ok]" "[57516] [ok]"           
  [1] "[char] [ok]" "[ ] [ok]"   
  [1] "[numberScientific] [ok]" "[43030] [ok]"           
  [1] "[char] [ok]" "[ ] [ok]"   
  [1] "[numberScientific] [ok]" "[100546] [ok]"          
  [1] "[char] [ok]" "[ ] [ok]"   
  [1] "[numberScientific] [ok]" "[57516] [ok]"           
  [1] "[char] [ok]" "[ ] [ok]"   
  [1] "[numberScientific] [ok]" "[43030] [ok]"           
  [1] "[char] [ok]" "[ ] [ok]"   
  [1] "[numberScientific] [ok]" "[100546] [ok]"          
  [1] "[char] [ok]" "[\n] [ok]"  
  [1] "[numberScientific] [ok]" "[144564] [ok]"          
  [1] "[char] [ok]" "[ ] [ok]"   
  [1] "[numberScientific] [ok]" "[85339] [ok]"           
  [1] "[char] [ok]" "[ ] [ok]"   
  [1] "[numberScientific] [ok]" "[229903] [ok]"          
  [1] "[char] [ok]" "[ ] [ok]"   
  [1] "[numberScientific] [ok]" "[144564] [ok]"          
  [1] "[char] [ok]" "[ ] [ok]"   
  [1] "[numberScientific] [ok]" "[85339] [ok]"           
  [1] "[char] [ok]" "[ ] [ok]"   
  [1] "[numberScientific] [ok]" "[229903] [ok]"          
  [1] "[char] [ok]" "[\n] [ok]"  
  [1] "[numberScientific] [ok]" "[47131] [ok]"           
  [1] "[char] [ok]" "[ ] [ok]"   
  [1] "[numberScientific] [ok]" "[33688] [ok]"           
  [1] "[char] [ok]" "[ ] [ok]"   
  [1] "[numberScientific] [ok]" "[80819] [ok]"           
  [1] "[char] [ok]" "[ ] [ok]"   
  [1] "[numberScientific] [ok]" "[47131] [ok]"           
  [1] "[char] [ok]" "[ ] [ok]"   
  [1] "[numberScientific] [ok]" "[33688] [ok]"           
  [1] "[char] [ok]" "[ ] [ok]"   
  [1] "[numberScientific] [ok]" "[80819] [ok]"           
  [1] "[char] [ok]" "[\n] [ok]"  
  [1] "[numberScientific] [ok]" "[53821] [ok]"           
  [1] "[char] [ok]" "[ ] [ok]"   
  [1] "[numberScientific] [ok]" "[43375] [ok]"           
  [1] "[char] [ok]" "[ ] [ok]"   
  [1] "[numberScientific] [ok]" "[97196] [ok]"           
  [1] "[char] [ok]" "[ ] [ok]"   
  [1] "[numberScientific] [ok]" "[53821] [ok]"           
  [1] "[char] [ok]" "[ ] [ok]"   
  [1] "[numberScientific] [ok]" "[43375] [ok]"           
  [1] "[char] [ok]" "[ ] [ok]"   
  [1] "[numberScientific] [ok]" "[97196] [ok]"           
  [1] "[char] [ok]" "[\n] [ok]"  
  [1] "[numberScientific] [ok]" "[151536] [ok]"          
  [1] "[char] [ok]" "[ ] [ok]"   
  [1] "[numberScientific] [ok]" "[86184] [ok]"           
  [1] "[char] [ok]" "[ ] [ok]"   
  [1] "[numberScientific] [ok]" "[237720] [ok]"          
  [1] "[char] [ok]" "[ ] [ok]"   
  [1] "[numberScientific] [ok]" "[151536] [ok]"          
  [1] "[char] [ok]" "[ ] [ok]"   
  [1] "[numberScientific] [ok]" "[86184] [ok]"           
  [1] "[char] [ok]" "[ ] [ok]"   
  [1] "[numberScientific] [ok]" "[237720] [ok]"          
  [1] "[char] [ok]" "[\n] [ok]"  
  [1] "[numberScientific] [ok]" "[44071] [ok]"           
  [1] "[char] [ok]" "[ ] [ok]"   
  [1] "[numberScientific] [ok]" "[33935] [ok]"           
  [1] "[char] [ok]" "[ ] [ok]"   
  [1] "[numberScientific] [ok]" "[78006] [ok]"           
  [1] "[char] [ok]" "[ ] [ok]"   
  [1] "[numberScientific] [ok]" "[44071] [ok]"           
  [1] "[char] [ok]" "[ ] [ok]"   
  [1] "[numberScientific] [ok]" "[33935] [ok]"           
  [1] "[char] [ok]" "[ ] [ok]"   
  [1] "[numberScientific] [ok]" "[78006] [ok]"           
  [1] "[char] [ok]" "[\n] [ok]"  
  [1] "[numberScientific] [ok]" "[111337] [ok]"          
  [1] "[char] [ok]" "[ ] [ok]"   
  [1] "[numberScientific] [ok]" "[86405] [ok]"           
  [1] "[char] [ok]" "[ ] [ok]"   
  [1] "[numberScientific] [ok]" "[197742] [ok]"          
  [1] "[char] [ok]" "[ ] [ok]"   
  [1] "[numberScientific] [ok]" "[111337] [ok]"          
  [1] "[char] [ok]" "[ ] [ok]"   
  [1] "[numberScientific] [ok]" "[86405] [ok]"           
  [1] "[char] [ok]" "[ ] [ok]"   
  [1] "[numberScientific] [ok]" "[197742] [ok]"          
  [1] "[char] [ok]" "[\n] [ok]"  
  [1] "[numberScientific] [ok]" "[296100] [ok]"          
  [1] "[char] [ok]" "[ ] [ok]"   
  [1] "[numberScientific] [ok]" "[171523] [ok]"          
  [1] "[char] [ok]" "[ ] [ok]"   
  [1] "[numberScientific] [ok]" "[467623] [ok]"          
  [1] "[char] [ok]" "[ ] [ok]"   
  [1] "[numberScientific] [ok]" "[296100] [ok]"          
  [1] "[char] [ok]" "[ ] [ok]"   
  [1] "[numberScientific] [ok]" "[171523] [ok]"          
  [1] "[char] [ok]" "[ ] [ok]"   
  [1] "[numberScientific] [ok]" "[467623] [ok]"          
  [1] "[char] [ok]" "[\n] [ok]"  
  [1] "[numberScientific] [ok]" "[91202] [ok]"           
  [1] "[char] [ok]" "[ ] [ok]"   
  [1] "[numberScientific] [ok]" "[67623] [ok]"           
  [1] "[char] [ok]" "[ ] [ok]"   
  [1] "[numberScientific] [ok]" "[158825] [ok]"          
  [1] "[char] [ok]" "[ ] [ok]"   
  [1] "[numberScientific] [ok]" "[91202] [ok]"           
  [1] "[char] [ok]" "[ ] [ok]"   
  [1] "[numberScientific] [ok]" "[67623] [ok]"           
  [1] "[char] [ok]" "[ ] [ok]"   
  [1] "[numberScientific] [ok]" "[158825] [ok]"          
  [1] "[char] [ok]" "[;] [ok]"   
  [1] "[eofMark] [ok]" "[] [ok]"       
  
  
  Executing test function test.filesPcAxis01  ... [1] ""
  [1] ""
  [1] "File: datInSFexample6_1.px"
  [1] "status" "node"   "stream"
  [1] "pxCube"               "pxCubeAttrN"          "pxCubeVariable"      
  [4] "pxCubeVariableDomain" "pxCubeData"          
  [1] ""
  [1] ""
  [1] "File: datInSFexample6_2.px"
  [1] "status" "node"   "stream"
  [1] "pxCube"               "pxCubeAttrN"          "pxCubeVariable"      
  [4] "pxCubeVariableDomain" "pxCubeData"          
  [1] ""
  [1] ""
  [1] "File: datInSFexample6_3.px"
  [1] "status" "node"   "stream"
  [1] "pxCube"               "pxCubeAttrN"          "pxCubeVariable"      
  [4] "pxCubeVariableDomain" "pxCubeData"          
  [1] ""
  [1] ""
  [1] "File: datInSFexample6_4.px"
  [1] "status" "node"   "stream"
  [1] "pxCube"               "pxCubeAttrN"          "pxCubeVariable"      
  [4] "pxCubeVariableDomain" "pxCubeData"          
  [1] ""
  [1] ""
  [1] "File: datInSFexampleA_5.px"
  [1] "status" "node"   "stream"
  [1] "pxCube"               "pxCubeAttrN"          "pxCubeVariable"      
  [4] "pxCubeVariableDomain" "pxCubeData"          
  [1] ""
  [1] ""
  [1] "File: datInSFexample6_5.px"
  [1] "status" "node"   "stream"
  [1] "pxCube"               "pxCubeAttrN"          "pxCubeVariable"      
  [4] "pxCubeVariableDomain" "pxCubeData"          
   done successfully.
  
  ------------------- UNIT TEST SUMMARY ---------------------
  
  Warning messages:
  1: In RNGkind(kind = testSuite$rngKind, normal.kind = testSuite$rngNormalKind) :
    RNGkind: Marsaglia-Multicarry has poor statistical properties
  2: In RNGkind(kind = testSuite$rngKind, normal.kind = testSuite$rngNormalKind) :
    RNGkind: severe deviations from normality for Kinderman-Ramage + Marsaglia-Multicarry
  3: In RNGkind(kind = testSuite$rngKind, normal.kind = testSuite$rngNormalKind) :
    RNGkind: Marsaglia-Multicarry has poor statistical properties
  4: In RNGkind(kind = testSuite$rngKind, normal.kind = testSuite$rngNormalKind) :
    RNGkind: severe deviations from normality for Kinderman-Ramage + Marsaglia-Multicarry
  5: In RNGkind(kind = testSuite$rngKind, normal.kind = testSuite$rngNormalKind) :
    RNGkind: Marsaglia-Multicarry has poor statistical properties
  6: In RNGkind(kind = testSuite$rngKind, normal.kind = testSuite$rngNormalKind) :
    RNGkind: severe deviations from normality for Kinderman-Ramage + Marsaglia-Multicarry
  > 
  > proc.time()
     user  system elapsed 
     0.64    0.18    0.76