                 [{:NAME "sample1"}
                  {:NAME "sample2"}]))
       (ct/is (= probes
-                [{:NAME "probe1" :ID 1 :EID 1}
-                 {:NAME "probe2" :ID 2 :EID 1}]))
+                [{:NAME "probe1" :ID 1 :DATASET_ID 1}
+                 {:NAME "probe2" :ID 2 :DATASET_ID 1}]))
       (comment (ct/is (= data
                 [[1.1 1.2] [2.1 2.2]]))))))
 

                 {:NAME "sample4"}
                 {:NAME "sample5"}]))
      (ct/is (= probes
                [{:NAME "probe1" :ID 1 :EID 1}
                 {:NAME "probe2" :ID 2 :EID 1}
                 {:NAME "probe3" :ID 3 :EID 1}
                 {:NAME "probe4" :ID 4 :EID 1}])))))

; XXX test that cgdata defaults to genomicMatrix if not specified
; XXX test clinical

(defn clinical1 [db]
  (ct/testing "cgdata clinical matrix"
    (loader db detector docroot "test/cavm/test_inputs/clinical_matrix")
    (let [exp (cdb/run-query db {:select [:name] :from [:dataset]})
          samples (cdb/run-query db {:select [:name] :from [:sample] :order-by [:i]})
          probes (cdb/run-query db {:select [:*] :from [:field]})]
      (ct/is (= exp [{:NAME "clinical_matrix"}]))
      (ct/is (= samples
                [{:NAME "sample1"}
