view runit/checkformat_tests.R @ 1:e194eec8e70c draft

planemo upload for repository https://github.com/workflow4metabolomics/checkformat.git commit 8ebfbfa8d9449c9bbfbf569851a30b1e33df0b3f
author ethevenot
date Sat, 06 Aug 2016 11:54:28 -0400
parents
children 80a38d36f946
line wrap: on
line source

test_input_default <- function() {

    testDirC <- "input"
    argLs <- list()

    argLs <- c(defaultArgF(testDirC), argLs)
    outLs <- wrapperCallF(argLs)

    checkEquals(outLs[['infVc']][4], 'Table formats are OK; enjoy your analyses!')

}