delete_test.clj

(ns seaquell.delete-test
  (:refer-clojure
    :exclude [alter distinct drop group-by into set update partition-by when])
  (:require [midje.sweet :refer :all :exclude [after before]]
            [seaquell.core :refer :all]))

(facts "about delete"
  ;; simple delete
  (delete$ :db.tbl) => "DELETE FROM db.tbl;"
  (delete-from$ :db.tbl) => "DELETE FROM db.tbl;"
  (delete$ (from :db.tbl)) => "DELETE FROM db.tbl;"
  (delete$ :from :db.tbl) => "DELETE FROM db.tbl;"

  (fact "delete is idempotent"
    (delete (delete :db.tbl)) => (delete :db.tbl))

  ;; using WHERE
  (delete$ :tbl (where [> :c 5]))
  => "DELETE FROM tbl WHERE c > 5;"

  ;; using INDEXED BY
  (delete$ :tbl (not-indexed) (where [> :c 5]))
  => "DELETE FROM tbl NOT INDEXED WHERE c > 5;"
  (delete$ :tbl (indexed-by :ix) (where [> :c 5]))
  => "DELETE FROM tbl INDEXED BY ix WHERE c > 5;"
  (delete$ :tbl :indexed-by :ix :where [> :c 5])
  => "DELETE FROM tbl INDEXED BY ix WHERE c > 5;")