view runit/checkformat_tests.R @ 2:b6a6b4cc932a draft

planemo upload for repository https://github.com/workflow4metabolomics/checkformat.git commit e17f78630b4d21b54a4edd6015d50969ac859d6b
author ethevenot
date Tue, 06 Jun 2017 11:51:33 -0400
parents e194eec8e70c
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!')

}