2024-09-22 01:12:10 +00:00
|
|
|
;; copyright (c) 2023-2024 sean corfield, all rights reserved
|
2023-01-14 23:11:16 +00:00
|
|
|
|
|
|
|
|
(ns honey.union-test
|
|
|
|
|
(:refer-clojure :exclude [format])
|
|
|
|
|
(:require [clojure.test :refer [deftest is]]
|
|
|
|
|
[honey.sql :as sut]))
|
|
|
|
|
|
|
|
|
|
(deftest issue-451
|
|
|
|
|
(is (= [(str "SELECT ids.id AS id"
|
|
|
|
|
" FROM ((SELECT dimension.human_readable_field_id AS id"
|
|
|
|
|
" FROM dimension AS dimension"
|
|
|
|
|
" WHERE (dimension.field_id = ?) AND (dimension.human_readable_field_id IS NOT NULL)"
|
|
|
|
|
" LIMIT ?)"
|
|
|
|
|
" UNION"
|
|
|
|
|
" (SELECT dest.id AS id"
|
|
|
|
|
" FROM field AS source"
|
|
|
|
|
" LEFT JOIN table AS table ON source.table_id = table.id"
|
|
|
|
|
" LEFT JOIN field AS dest ON dest.table_id = table.id"
|
|
|
|
|
" WHERE (source.id = ?) AND (source.semantic_type IN (?)) AND (dest.semantic_type IN (?))"
|
|
|
|
|
" LIMIT ?)) AS ids"
|
|
|
|
|
" LIMIT ?")
|
|
|
|
|
1
|
|
|
|
|
1
|
|
|
|
|
1
|
|
|
|
|
"type/PK"
|
|
|
|
|
"type/Name"
|
|
|
|
|
1
|
|
|
|
|
1]
|
|
|
|
|
(-> {:select [[:ids.id :id]]
|
|
|
|
|
:from [[{:union
|
|
|
|
|
[{:nest
|
|
|
|
|
{:select [[:dimension.human_readable_field_id :id]]
|
|
|
|
|
:from [[:dimension :dimension]]
|
|
|
|
|
:where [:and
|
|
|
|
|
[:= :dimension.field_id 1]
|
|
|
|
|
[:not= :dimension.human_readable_field_id nil]]
|
|
|
|
|
:limit 1}}
|
|
|
|
|
{:nest
|
|
|
|
|
{:select [[:dest.id :id]]
|
|
|
|
|
:from [[:field :source]]
|
|
|
|
|
:left-join [[:table :table] [:= :source.table_id :table.id] [:field :dest] [:= :dest.table_id :table.id]]
|
|
|
|
|
:where [:and
|
|
|
|
|
[:= :source.id 1]
|
|
|
|
|
[:in :source.semantic_type #{"type/PK"}]
|
|
|
|
|
[:in :dest.semantic_type #{"type/Name"}]]
|
|
|
|
|
:limit 1}}]}
|
|
|
|
|
:ids]]
|
|
|
|
|
:limit 1}
|
|
|
|
|
(sut/format))))
|
|
|
|
|
|
|
|
|
|
)
|
