-
Notifications
You must be signed in to change notification settings - Fork 0
/
attach_detach_test.clj
24 lines (20 loc) · 989 Bytes
/
attach_detach_test.clj
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
(ns seaquell.attach-detach-test
"Tests SQLite ATTACH and DETACH commands"
(: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]))
(fact "Seaquell supports the ATTACH statement"
(fact "You can attach to a database file"
(attach$ :my.db (as :db)) => "ATTACH 'my.db' AS db;"
(attach$ :my.db :as :db) => "ATTACH 'my.db' AS db;"
(attach-database$ :my.db (as :db)) => "ATTACH DATABASE 'my.db' AS db;"
(attach-database$ :my.db :as :db) => "ATTACH DATABASE 'my.db' AS db;")
(fact "attach is idempotent"
(attach (attach :my.db (as :db))) => (attach :my.db (as :db))))
(fact "Seaquell supports the DETACH statement"
(fact "You can detach from a database file"
(detach$ :db) => "DETACH db;"
(detach-database$ :db) => "DETACH DATABASE db;")
(fact "detach is idempotent"
(detach (detach :db)) => (detach :db)))