Running 'doRUnit.R' [157s]
Running the tests in 'tests/doRUnit.R' failed.
Complete output:
  > ## unit tests will not be done if RUnit is not available
  > if(require("RUnit", quietly=TRUE)) {
  +  
  +   ## --- Setup ---
  +   R_CMD_CHECK <- Sys.getenv("RCMDCHECK") != "FALSE"
  + 
  +   pkg <- "microbenchmark" # <-- Change to package name!
  +   if (R_CMD_CHECK) {
  +     ## Path to unit tests for R CMD check
  +     ## PKG.Rcheck/tests/../PKG/unitTests
  +     path <- system.file(package=pkg, "unitTests")
  +   } else {
  +     ## Path to unit tests for standalone running under Makefile (not R CMD check)
  +     ## PKG/tests/../inst/unitTests
  +     path <- file.path(getwd(), "..", "inst", "unitTests")
  +   }
  +   cat("\nRunning unit tests\n")
  +   print(list(pkg=pkg, getwd=getwd(), pathToUnitTests=path))
  + 
  +   library(package=pkg, character.only=TRUE)
  + 
  +   ## 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)
  +   ## Run
  +   tests <- runTestSuite(testSuite)
  + 
  +   ## Report to stdout
  +   cat("------------------- UNIT TEST SUMMARY ---------------------\n\n")
  +   printTextProtocol(tests, showDetails=FALSE)
  + 
  +   ## Report text files (only if not under R CMD check)
  +   if (!R_CMD_CHECK) {
  +     ## Default report name
  +     pathReport <- file.path(path, "report")
  + 
  +     printTextProtocol(tests, showDetails=FALSE,
  +                       fileName=paste(pathReport, "Summary.txt", sep=""))
  +     printTextProtocol(tests, showDetails=TRUE,
  +                       fileName=paste(pathReport, ".txt", sep=""))
  + 
  +     ## Report to HTML file
  +     printHTMLProtocol(tests, fileName=paste(pathReport, ".html", sep=""))
  +   }
  + 
  +   ## 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] "microbenchmark"
  
  $getwd
  [1] "d:/Rcompile/CRANpkg/local/4.4/microbenchmark.Rcheck/tests"
  
  $pathToUnitTests
  [1] "D:/temp/RtmpEPwCr0/RLIBS_2a9944215709e/microbenchmark/unitTests"
  
  
  
  Executing test function test.expression_eval_parent_frame  ...  done successfully.
  
  
  
  Executing test function test.get_nanotime  ...  done successfully.
  
  
  
  Executing test function test.microtiming_precision  ...  done successfully.
  
  
  
  Executing test function test.print_returns_input  ... Unit: nanoseconds
    expr min  lq mean median   uq  max neval cld
   5 + 6 100 100  150    150  200  200     2   a
   6 + 7 200 200 3000   3000 5800 5800     2   a
   done successfully.
  
  
  
  Executing test function test.setup_expression  ...  done successfully.
  
  
  
  Executing test function test.setup_expression_check  ...  done successfully.
  
  
  
  Executing test function test.setup_expression_check_equal  ...  done successfully.
  
  
  
  Executing test function test.setup_expression_check_equal_failure  ...  done successfully.
  
  
  
  Executing test function test.setup_expression_check_equivalent  ...  done successfully.
  
  
  
  Executing test function test.setup_expression_check_identical  ...  done successfully.
  
  
  
  Executing test function test.setup_expression_check_identical_failure  ...  done successfully.
  
  
  
  Executing test function test.setup_expression_eval_env  ...  done successfully.
  
  
  
  Executing test function test.setup_expression_eval_env_check  ...  done successfully.
  
  
  
  Executing test function test.simple_timing  ...  done successfully.
  
  
  
  Executing test function test.unit_arg_valid_values  ...  done successfully.
  
  
  
  Executing test function test.unit_f_is_valid  ...  done successfully.
  
  
  
  Executing test function test.unit_is_int_errors  ...  done successfully.
  
  
  
  Executing test function test.unit_is_null_does_not_error  ... Unit: nanoseconds
   expr min lq mean median uq max neval
   NULL   0  0    0      0  0   0   100
   done successfully.
  
  
  
  Executing test function test.unit_is_object_errors  ...  done successfully.
  
  ------------------- UNIT TEST SUMMARY ---------------------
  
  RUNIT TEST PROTOCOL -- Sat Mar 23 17:12:56 2024 
  *********************************************** 
  Number of test functions: 19 
  Number of errors: 0 
  Number of failures: 0 
  
   
  1 Test Suite : 
  microbenchmark unit testing - 19 test functions, 0 errors, 0 failures
  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 microbenchmark(y <- rnorm(10), x, setup = set.seed(21)) :
    Could not measure a positive execution time for 9 evaluations.
  4: In microbenchmark(rnorm(10), x, check = my_check, setup = set.seed(21)) :
    Could not measure a positive execution time for one evaluation.
  5: In microbenchmark(rnorm(1e+05), x, check = "equivalent", setup = set.seed(21)) :
    Could not measure a positive execution time for 2 evaluations.
  6: In microbenchmark(rnorm(1e+05), x, check = "identical", setup = set.seed(21)) :
    Could not measure a positive execution time for one evaluation.
  7: In microbenchmark(rnorm(n), x, check = my_check, setup = { :
    Could not measure a positive execution time for 4 evaluations.
  8: In microbenchmark(NULL, unit = "f") :
    Could not measure a positive execution time for 55 evaluations.
  9: In microbenchmark(NULL, unit = NULL) :
    Could not measure a positive execution time for 55 evaluations.
  > 
  > proc.time()
     user  system elapsed 
     6.67    0.43    7.07