Running ‘RQuantlib.R’ [1s/1s]
  Comparing ‘RQuantlib.Rout’ to ‘RQuantlib.Rout.save’ ... OK
  Running ‘doRUnit.R’ [60s/73s]
Running the tests in ‘tests/doRUnit.R’ failed.
Complete output:
  > ## doRUnit.R --- Run RUnit tests
  > ##
  > ## with credits to package fUtilities in RMetrics
  > ## which credits Gregor Gojanc's example in CRAN package  'gdata'
  > ## as per the R Wiki http://wiki.r-project.org/rwiki/doku.php?id=developers:runit
  > ## and changed further by Martin Maechler
  > ## and more changes by Murray Stokely in HistogramTools
  > ## and then used adapted in RProtoBuf
  > ## and now used in Rcpp* and here 
  > ##
  > ## (Initially) inAdapted for RQuantLib by Dirk Eddelbuettel, 29 Dec 2007
  > 
  > stopifnot(require(RUnit, quietly=TRUE))
  > stopifnot(require(RQuantLib, quietly=TRUE))
  > 
  > ## Define tests
  > testSuite <- defineTestSuite(name="RQuantLib Unit Tests",
  +                              dirs=system.file("unitTests", package = "RQuantLib"),
  +                              testFuncRegexp = "^[Tt]est.+")
  > 
  > ## without this, we get (or used to get) unit test failures
  > Sys.setenv("R_TESTS"="")
  > 
  > ## Run tests
  > tests <- runTestSuite(testSuite)
  
  
  Executing test function test.HalfMonthModifiedFollowing  ...  done successfully.
  
  
  
  Executing test function test.Nearest  ...  done successfully.
  
  
  
  Executing test function test.isBusinessDay  ...  done successfully.
  
  
  
  Executing test function test.isHoliday  ...  done successfully.
  
  
  
  Executing test function test.date.conversion  ...  done successfully.
  
  
  
  Executing test function test.datevector.conversion  ...  done successfully.
  
  
  
  Executing test function test.american.Haug  ...  done successfully.
  
  
  
  Executing test function test.asian  ... 
   *** caught segfault ***
  address (nil), cause 'unknown'
  
  Traceback:
   1: asianOptionEngine(averageType, type, underlying, strike, dividendYield,     riskFreeRate, maturity, volatility, first, length, fixings)
   2: AsianOption.default("arithmetic", "put", underl = 90, strike = 87,     div = 0.06, riskF = 0.025, first = 0, length = 11/12, fixings = 2,     vol = 0.13)
   3: AO("arithmetic", "put", underl = 90, strike = 87, div = 0.06,     riskF = 0.025, first = 0, length = 11/12, fixings = 2, vol = 0.13)
   4: all.equal(target, current, tolerance = tolerance, ...)
   5: checkEquals(AO("arithmetic", "put", underl = 90, strike = 87,     div = 0.06, riskF = 0.025, first = 0, length = 11/12, fixings = 2,     vol = 0.13)$value, 1.3942835683, tol = 0.01)
   6: func()
   7: system.time(func(), gcFirst = RUnitEnv$.gcBeforeTest)
   8: doTryCatch(return(expr), name, parentenv, handler)
   9: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  10: tryCatchList(expr, classes, parentenv, handlers)
  11: tryCatch(expr, error = function(e) {    call <- conditionCall(e)    if (!is.null(call)) {        if (identical(call[[1L]], quote(doTryCatch)))             call <- sys.call(-4L)        dcall <- deparse(call)[1L]        prefix <- paste("Error in", dcall, ": ")        LONG <- 75L        sm <- strsplit(conditionMessage(e), "\n")[[1L]]        w <- 14L + nchar(dcall, type = "w") + nchar(sm[1L], type = "w")        if (is.na(w))             w <- 14L + nchar(dcall, type = "b") + nchar(sm[1L],                 type = "b")        if (w > LONG)             prefix <- paste0(prefix, "\n  ")    }    else prefix <- "Error : "    msg <- paste0(prefix, conditionMessage(e), "\n")    .Internal(seterrmessage(msg[1L]))    if (!silent && isTRUE(getOption("show.error.messages"))) {        cat(msg, file = outFile)        .Internal(printDeferredWarnings())    }    invisible(structure(msg, class = "try-error", condition = e))})
  12: try(system.time(func(), gcFirst = RUnitEnv$.gcBeforeTest))
  13: .executeTestCase(funcName, envir = sandbox, setUpFunc = .setUp,     tearDownFunc = .tearDown)
  14: .sourceTestFile(testFile, testSuite$testFuncRegexp)
  15: runTestSuite(testSuite)
  An irrecoverable exception occurred. R is aborting now ...
  Segmentation fault