fix failing tests

test/metabase/automagic_dashboards/core_test.clj

@@ -74,7 +74,7 @@
 
 (expect
   4
-  (->> (Database (data/id)) candidate-tables count))
+  (->> (Database (data/id)) candidate-tables first :tables count))
 
 
 ;; Identity

test/metabase/related_test.clj

@@ -11,7 +11,7 @@
             [toucan.util.test :as tt]))
 
 (expect
-  #{[:field-id 1] [:metric 1] ["FIELD-ID" 2] ["segment" 1]}
+  #{[:field-id 1] [:metric 1] [:field-id 2] [:segment 1]}
   (#'r/collect-context-bearing-forms [[:> [:field-id 1] 3]
                                       ["and" [:= ["FIELD-ID" 2] 2]
                                        ["segment" 1]]