diff runit/qualitymetrics_tests.R @ 2:596320b84315 draft

planemo upload for repository https://github.com/workflow4metabolomics/qualitymetrics.git commit 95d4658e5d9dd0421c9336b2232cc81f32879621

--- a/runit/qualitymetrics_tests.R	Fri Oct 21 12:56:22 2016 -0400
+++ b/runit/qualitymetrics_tests.R	Thu Jan 11 12:52:08 2018 -0500
@@ -12,3 +12,20 @@
     checkEqualsNumeric(outLs[["varDF"]]["met_033", "blankMean_over_sampleMean"], 0.004417387, tolerance = 1e-6)
  
 }
+
+test_formatOrder <- function() {
+
+    ## two first samples swapped in sampleMetadata
+
+    testDirC <- "formatOrder"
+    argLs <- list(CV = "FALSE",
+                  Compa = "TRUE",
+                  seuil = 1,
+                  poolAsPool1L = "TRUE")
+
+    argLs <- c(defaultArgF(testDirC), argLs)
+    outLs <- wrapperCallF(argLs)
+
+    checkEqualsNumeric(outLs[["varDF"]]["met_033", "blankMean_over_sampleMean"], 0.004417387, tolerance = 1e-6)
+ 
+}