Issue chrovis#61 (6) Examine result file of dedupe in tests

test/cljam/t_common.clj

@@ -104,6 +104,7 @@
 (def test-bam-file "test-resources/test.bam")
 (def test-sorted-bam-file "test-resources/test.sorted.bam")
 (def small-bam-file "test-resources/small.bam")
+(def small-deduped-bam-file "test-resources/small.deduped.bam")
 (def medium-bam-file "test-resources/medium.bam")
 (def large-bam-file (cavia/resource mycavia "large.bam"))
 
@@ -372,6 +373,15 @@
   [f1 f2]
   (= (digest/sha1 (file f1)) (digest/sha1 (file f2))))
 
+(defn same-bam-file?
+  [f1 f2]
+  (with-open [r1 (bam/reader f1)
+              r2 (bam/reader f2)]
+    (and (= (io/read-header r1)
+            (io/read-header r2))
+         (= (io/read-alignments r1 {})
+            (io/read-alignments r2 {})))))
+
 ;;;; FASTA
 
 (def test-fa-header [{:desc "", :name "ref", :offset 5} {:desc "", :name "ref2", :offset 57}])

test/cljam/t_dedupe.clj

@@ -8,12 +8,11 @@
 (deftest simple-pe-dedupe
   (with-before-after {:before (prepare-cache!)
                       :after (clean-cache!)}
-    ;; TODO: need bam-file include PCR duplications
-    (let [in-file test-sorted-bam-file
-          out-file (str temp-dir "/deduped.bam")]
+    (let [in-file small-bam-file
+          out-file (str temp-dir "/deduped.bam")
+          controlled-result-file small-deduped-bam-file]
       (is (not-throw? (dedupe/dedupe in-file out-file)))
-      ;; TODO: check alignments of out-file
-      )))
+      (is (same-bam-file? out-file controlled-result-file)))))
 
 (deftest simple-pe-dedupe-xform
   (is (= (into #{}