(deftest select-test
  (testing
   (is (= (vec (select student))
          [{:id 1, :year 1998, :surname "Ivanov"} {:id 2, :year 1997, :surname "Petrov"} {:id 3, :year 1996, :surname "Sidorov"}]))
    (is (= (vec (select student :order-by :year))
           (vec '({:id 3, :year 1996, :surname "Sidorov"} {:id 2, :year 1997, :surname "Petrov"} {:id 1, :year 1998, :surname "Ivanov"}))))
    (is (= (vec (select student :where #(> (:id %) 1)))
           (vec '({:id 2, :year 1997, :surname "Petrov"} {:id 3, :year 1996, :surname "Sidorov"}))))
    (is (= (vec (select student :limit 2))
           (vec '({:id 1, :year 1998, :surname "Ivanov"} {:id 2, :year 1997, :surname "Petrov"}))))
    (is (= (vec (select student :where #(> (:id %) 1) :limit 1))
           (vec '({:id 2, :year 1997, :surname "Petrov"}))))
    (is (= (vec (select student :where #(> (:id %) 1) :order-by :year :limit 2))
           (vec '({:id 3, :year 1996, :surname "Sidorov"} {:id 2, :year 1997, :surname "Petrov"}))))
    (is (= (vec (select student-subject :joins [[:student_id student :id] [:subject_id subject :id]]))
           (vec '[{:subject "Math", :subject_id 1, :surname "Ivanov", :year 1998, :student_id 1, :id 1} {:subject "Math", :subject_id 1, :surname "Petrov", :year 1997, :student_id 2, :id 2} {:subject "CS", :subject_id 2, :surname "Petrov", :year 1997, :student_id 2, :id 2} {:subject "CS", :subject_id 2, :surname "Sidorov", :year 1996, :student_id 3, :id 3}])))
    (is (= (vec (select student-subject :limit 2 :joins [[:student_id student :id] [:subject_id subject :id]]))
           (vec '({:subject "Math", :subject_id 1, :surname "Ivanov", :year 1998, :student_id 1, :id 1} {:subject "Math", :subject_id 1, :surname "Petrov", :year 1997, :student_id 2, :id 2}))))))