Skip to content

Transfer projection tests from Zuko #209

New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Open
noprompt wants to merge 2 commits into
base: main
Choose a base branch
from
Open

Transfer projection tests from Zuko #209

Changes from all commits
Commits
Show all changes
2 commits
Select commit Hold shift + click to select a range
db9bfc7
Transfer projection tests from Zuko
noprompt Aug 6, 2021
b796060
Correction to call to run-tests
noprompt Aug 9, 2021
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
53 changes: 53 additions & 0 deletions test/asami/projection_test.cljc
View file
Open in desktop
Original file line number Diff line number Diff line change
@@ -0,0 +1,53 @@
(ns asami.projection-test
(:require [asami.projection :as projection]
#?(:clj [clojure.test :as t]
:cljs [cljs.test :as t :include-macros true]))
#?(:clj (:import [clojure.lang ExceptionInfo])))

(t/deftest test-project-tuple
(let [tuple '[?a ?b ?c]
columns '[?q ?t ?c ?b ?z ?a]
data [[1 2 3 4 5 6] [7 8 9 10 11 12]]]
(t/is (= [6 4 3] (projection/project-tuple tuple columns data)))
(t/is (= nil (projection/project-tuple tuple columns nil)))
(t/is (= nil (projection/project-tuple tuple columns '())))
(t/is (thrown-with-msg? ExceptionInfo #"Projection variables not found in the selected data: \[\?a\]"
(projection/project-tuple tuple '[?q ?t ?c ?b ?z ?d] data)))

(let [mdata (with-meta data {:cols columns})]
(t/is (= [6 4 3] (projection/project {} [tuple] mdata)))
(t/is (= [3] (projection/project {} '[[?c]] mdata)))
(t/is (= nil (projection/project {} '[[?c]] (with-meta '() {:cols columns})))))))

(t/deftest test-project-single
(let [columns '[?q ?t ?c ?b ?z ?a]
data [[1 2 3 4 5 6] [7 8 9 10 11 12]]]
(t/is (= 3 (projection/project-single '?c columns data)))
(t/is (thrown-with-msg? ExceptionInfo #"Projection variable was not in the selected data: \?c"
(projection/project-single '?c '[?q ?t ?a ?b ?z ?d] data)))

(let [mdata (with-meta data {:cols columns})]
(t/is (= 3 (projection/project {} '[?c .] mdata))))))

(t/deftest test-project-collection
(let [columns '[?q ?t ?c ?b ?z ?a]
data [[1 2 3 4 5 6] [7 8 9 10 11 12]]]
(t/is (= [3 9] (projection/project-collection '?c columns data)))
(t/is (thrown-with-msg? ExceptionInfo #"Projection variable was not in the selected data: \?c"
(projection/project-single '?c '[?q ?t ?a ?b ?z ?d] data)))

(let [mdata (with-meta data {:cols columns})]
(t/is (= [3 9]
(projection/project {} '[[?c ...]] mdata))))))

(t/deftest test-project-results
(let [selection '[?a ?b ?c]
columns '[?q ?t ?c ?b ?z ?a]
data [[1 2 3 4 5 6] [7 8 9 10 11 12]]]
(t/is (= [[6 4 3] [12 10 9]] (projection/project-results {} selection columns data)))

(let [mdata (with-meta data {:cols columns})]
(t/is (= [[6 4 3] [12 10 9]] (projection/project {} selection mdata))))))
Copy link
Copy Markdown
Contributor

@quoll quoll Aug 31, 2021

Choose a reason for hiding this comment

The reason will be displayed to describe this comment to others. Learn more.

Does it work to say:

(t/is (thrown-with-msg? ExceptionInfo
                        #"Projection variable not in the selected data: \?d"
                        (projection/project-results {} '[?a ?d ?c] mdata)))

?



#?(:cljs (t/run-tests))