diff --git a/test/metabase/driver_test.clj b/test/metabase/driver_test.clj
index a2651796dbf7225bbe69c1d912acf3f4b14fb517..c63925e7281cee4d332fceb7d6662008f8b4cddd 100644
--- a/test/metabase/driver_test.clj
+++ b/test/metabase/driver_test.clj
@@ -16,3 +16,23 @@
 
 (expect true  (driver/driver-supports? (TestDriver.) :a))
 (expect false (driver/driver-supports? (TestDriver.) :b))
+
+;; values->base-type
+(expect
+  :type/Text
+  (driver/values->base-type ["A" "B" "C"]))
+
+;; should ignore nils
+(expect
+  :type/Text
+  (driver/values->base-type [nil nil "C"]))
+
+;; should pick base-type of most common class
+(expect
+  :type/Text
+  (driver/values->base-type ["A" 100 "C"]))
+
+;; should fall back to :type/* if no better type is found
+(expect
+  :type/*
+  (driver/values->base-type [(Object.)]))