/test/metabase/sync/sync_metadata/tables_test.clj

https://github.com/metabase/metabase · Clojure · 41 lines · 38 code · 3 blank · 0 comment · 3 complexity · bf48380ce4d89495fc31d533514a89c3 MD5 · raw file 

    

  1. (ns metabase.sync.sync-metadata.tables-test
    2. 

  2.   "Test for the logic that syncs Table models with the metadata fetched from a DB."
    3. 

  3.   (:require [clojure.test :refer :all]
    4. 

  4.             [metabase
    5. 

  5.              [models :refer [Database Table]]
    6. 

  6.              [test :as mt]
    7. 

  7.              [util :as u]]
    8. 

  8.             [metabase.sync.sync-metadata.tables :as sync-tables]
    9. 

  9.             [metabase.test.data.interface :as tx]
    10. 

  10.             [toucan.db :as db]))
    11. 

  11. 

  12. (tx/defdataset ^:private db-with-some-cruft
    13. 

  13.   [["acquired_toucans"
    14. 

  14.      [{:field-name "species",              :base-type :type/Text}
    15. 

  15.       {:field-name "cam_has_acquired_one", :base-type :type/Boolean}]
    16. 

  16.      [["Toco"               false]
    17. 

  17.       ["Chestnut-Mandibled" true]
    18. 

  18.       ["Keel-billed"        false]
    19. 

  19.       ["Channel-billed"     false]]]
    20. 

  20.    ["south_migrationhistory"
    21. 

  21.     [{:field-name "app_name",  :base-type :type/Text}
    22. 

  22.      {:field-name "migration", :base-type :type/Text}]
    23. 

  23.     [["main" "0001_initial"]
    24. 

  24.      ["main" "0002_add_toucans"]]]])
    25. 

  25. 

  26. (deftest crufty-tables-test
    27. 

  27.   (testing "south_migrationhistory, being a CRUFTY table, should still be synced, but marked as such"
    28. 

  28.     (mt/dataset metabase.sync.sync-metadata.tables-test/db-with-some-cruft
    29. 

  29.       (is (= #{{:name "SOUTH_MIGRATIONHISTORY", :visibility_type :cruft}
    30. 

  30.                {:name "ACQUIRED_TOUCANS",       :visibility_type nil}}
    31. 

  31.              (set (for [table (db/select [Table :name :visibility_type], :db_id (mt/id))]
    32. 

  32.                     (into {} table))))))))
    33. 

  33. 

  34. (deftest retire-tables-test
    35. 

  35.   (testing "`retire-tables!` should retire the Table(s) passed to it, not all Tables in the DB -- see #9593"
    36. 

  36.     (mt/with-temp* [Database [db]
    37. 

  37.                     Table    [table-1 {:name "Table 1", :db_id (u/get-id db)}]
    38. 

  38.                     Table    [table-2 {:name "Table 2", :db_id (u/get-id db)}]]
    39. 

  39.       (#'sync-tables/retire-tables! db #{{:name "Table 1", :schema (:schema table-1)}})
    40. 

  40.       (is (= {"Table 1" false, "Table 2" true}
    41. 

  41.              (db/select-field->field :name :active Table, :db_id (u/get-id db)))))))
    42.