diff 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 diff
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/runit/checkformat_tests.R	Sat Aug 06 11:54:28 2016 -0400
@@ -0,0 +1,11 @@
+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!')
+
+}