Skip to content
Snippets Groups Projects
Commit 686ad11f authored by Allen Gilliland's avatar Allen Gilliland
Browse files

small test tweaks.

parent 3c285b6b
Branches
Tags
No related merge requests found
......@@ -6,6 +6,7 @@
;; NOTE: we throw in a "common" schema which shares an FK across all other schemas just to get tricky
(def ^:const schema-per-customer-tables
"Docstring"
{nil {"city" {:name "city"
:fields #{{:name "id"
:base-type :IntegerField
......
......@@ -209,7 +209,7 @@
:updated_at true}]]
(tu/with-temp* [database/Database [{database-id :id}]
raw-table/RawTable [{raw-table-id :id, :as table} {:database_id database-id}]]
(let [get-columns #(->> (db/sel :many RawColumn :raw_table_id raw-table-id)
(let [get-columns #(->> (db/sel :many RawColumn :raw_table_id raw-table-id (k/order :id))
(mapv tu/boolean-ids-and-timestamps))]
;; original list should be empty
[(get-columns)
......
......@@ -301,7 +301,7 @@
;; setup a couple things we'll use in the test
(introspect/introspect-database-and-update-raw-tables! (moviedb/->MovieDbDriver) db)
(update-data-models-from-raw-tables! db)
(let [get-tables #(->> (hydrate/hydrate (db/sel :many table/Table :db_id database-id) :fields)
(let [get-tables #(->> (hydrate/hydrate (db/sel :many table/Table :db_id database-id (k/order :id)) :fields)
(mapv tu/boolean-ids-and-timestamps))]
;; here we go
[(get-tables)
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment