Fixed a failling unit test

sneumann · Feb 7, 2025 · 4fe6e24 · 4fe6e24
1 parent 30d1676
commit 4fe6e24
Showing 1 changed file with 11 additions and 1 deletion.
diff --git a/inst/unitTests/test_header.R b/inst/unitTests/test_header.R
@@ -11,5 +11,15 @@ test_header_all <- function() {
     header_pwiz <- header(mzxml)
     close(mzxml)
 
-    checkEquals(colnames(header_cdf), colnames(header_pwiz))
+    neededCdfHeaders <- c("seqNum", "acquisitionNum", "msLevel", "polarity", "peaksCount",  
+                          "totIonCurrent", "retentionTime", "basePeakMZ", "basePeakIntensity",  
+                          "collisionEnergy", "ionisationEnergy", "lowMZ", "highMZ", "precursorScanNum",  
+                          "precursorMZ", "precursorCharge", "precursorIntensity", "mergedScan",  
+                          "mergedResultScanNum", "mergedResultStartScanNum", "mergedResultEndScanNum",  
+                          "injectionTime", "filterString", "spectrumId", "centroided",  
+                          "ionMobilityDriftTime", "isolationWindowTargetMZ", "isolationWindowLowerOffset",  
+                          "isolationWindowUpperOffset", "scanWindowLowerLimit", "scanWindowUpperLimit" )
+
+    checkTrue( all(neededCdfHeaders %in% colnames(header_cdf)) )
+    checkTrue( all(neededCdfHeaders %in% colnames(header_pwiz)) )
 }