25 lines
603 B
R
25 lines
603 B
R
|
clargs <- commandArgs(trailing=TRUE)
|
||
|
|
source(file.path(clargs[1], "unittest.R"))
|
||
|
|
|
||
|
|
dyn.load(paste("catches_strings", .Platform$dynlib.ext, sep=""))
|
||
|
|
source("catches_strings.R")
|
||
|
|
cacheMetaData(1)
|
||
|
|
|
||
|
|
exception_thrown = FALSE
|
||
|
|
tryCatch({
|
||
|
|
StringsThrower_charstring()
|
||
|
|
}, error = function(e) {
|
||
|
|
exception_thrown <<- grepl(e$message, "charstring message", fixed=TRUE)
|
||
|
|
}
|
||
|
|
)
|
||
|
|
unittest(exception_thrown, TRUE)
|
||
|
|
|
||
|
|
exception_thrown = FALSE
|
||
|
|
tryCatch({
|
||
|
|
StringsThrower_stdstring()
|
||
|
|
}, error = function(e) {
|
||
|
|
exception_thrown <<- grepl(e$message, "stdstring message", fixed=TRUE)
|
||
|
|
}
|
||
|
|
)
|
||
|
|
unittest(exception_thrown, TRUE)
|