diff runit/checkformat_tests.R @ 0:059eb452931e draft

planemo upload for repository https://github.com/workflow4metabolomics/checkformat.git commit e17f78630b4d21b54a4edd6015d50969ac859d6b
author ethevenot
date Tue, 24 Oct 2017 08:44:02 -0400
parents
children b642f4f87022
line wrap: on
line diff
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/runit/checkformat_tests.R	Tue Oct 24 08:44:02 2017 -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!')
+
+}