New script to check for reflection warnings

bin/reflection-linter

@@ -3,9 +3,9 @@
 warnings=`lein check 2>&1 | grep Reflection | grep metabase`
 
 if [ ! -z "$warnings" ]; then
-    echo -e "\e[4;31mYour code has cased introduced some reflection warnings.\e[0m 😞"
+    echo -e "\e[1;31mYour code has cased introduced some reflection warnings.\e[0m 😞"
     echo "$warnings";
     exit -1;
 fi
 
-echo "\e[1;32mNo reflection warnings! Success.\e[0m"
+echo -e "\e[1;32mNo reflection warnings! Success.\e[0m"

src/metabase/driver/mongo.clj

@@ -86,7 +86,7 @@
     (-> field-def
         (update :count safe-inc)
         (update :len #(if (string? field-value)
-                       (+ (or % 0) (.length field-value))
+                       (+ (or % 0) (count field-value))
                        %))
         (update :types (fn [types]
                          (update types (type field-value) safe-inc)))