Displaying 1 result from an estimated 1 matches for "checkexcept".
2006 Feb 04
1
RUnit - need advice on a good directory structure or tips...
...#############################
##
## Start of test functions.
##
## Add your own test functions with names starting with "test"
##
##################################################
test.c2f <- function() {
# print(currentPath)
checkEquals(c2f(0), 32)
checkEquals(c2f(10), 50)
checkException(c2f("xx"))
}
test.f2c <- function() {
checkEquals(f2c(32), 0)
checkEquals(f2c(50), 10)
checkTrue(identical(f2c(50),10))
checkException(f2c("xx"))
}
test.errordemo <- function() {
DEACTIVATED("Fanta long star king")
stop("this is just to show...