15 lines
556 B
Clojure
Vendored
15 lines
556 B
Clojure
Vendored
(ns tech.v3.dataset.set-test
|
|
(:require [tech.v3.dataset :as ds]
|
|
[tech.v3.dataset.set :as ds-set]
|
|
[clojure.test :refer [deftest is]]))
|
|
|
|
|
|
|
|
(deftest union-intersection-test
|
|
(let [ds-a (ds/->dataset [{:a 1 :b 2} {:a 1 :b 2} {:a 2 :b 3}])
|
|
ds-b (ds/->dataset [{:a 1 :b 2} {:a 1 :b 2} {:a 3 :b 3}])]
|
|
(is (= [{:a 2, :b 3} {:a 3, :b 3} {:a 1, :b 2} {:a 1, :b 2}]
|
|
(ds/rows (ds-set/reduce-union [ds-a ds-b]))))
|
|
(is (= [{:a 1, :b 2} {:a 1, :b 2}]
|
|
(ds/rows (ds-set/reduce-intersection [ds-a ds-b]))))))
|