| clargs <- commandArgs(trailing=TRUE) | |
| source(file.path(clargs[1], "unittest.R")) | |
| dyn.load(paste("li_std_vector", .Platform$dynlib.ext, sep="")) | |
| source("li_std_vector.R") | |
| cacheMetaData(1) | |
| testvec <- c(1, 2, 3) | |
| unittest(half(testvec), testvec/2) | |
| unittest(average(testvec), mean(testvec)) | |
| ## string vector test | |
| vlen <- 13 | |
| stringvec <- paste(letters[1:vlen], as.character(rnorm(vlen))) | |
| unittest(rev(stringvec), RevStringVec(stringvec)) | |
| q(save="no") | |