Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

Unit tests for new as-identifier behavior.

  • Loading branch information...
commit d85e1779ee3943374e8761acf988391c6b7246eb 1 parent b3f959f
@seancorfield seancorfield authored
Showing with 14 additions and 6 deletions.
  1. +14 −6 src/test/clojure/clojure/java/test_utilities.clj
View
20 src/test/clojure/clojure/java/test_utilities.clj
@@ -27,41 +27,49 @@
(is (= "kw" (sql/as-identifier "kw")))
(is (= "kw" (sql/as-identifier :kw)))
(is (= "KW" (sql/as-identifier "KW")))
- (is (= "KW" (sql/as-identifier :KW))))
+ (is (= "KW" (sql/as-identifier :KW)))
+ (is (= "k.w" (sql/as-identifier :k.w))))
(deftest test-as-keyword
(is (= :kw (sql/as-keyword "kw")))
(is (= :kw (sql/as-keyword :kw)))
(is (= :kw (sql/as-keyword "KW")))
- (is (= :KW (sql/as-keyword :KW))))
+ (is (= :KW (sql/as-keyword :KW)))
+ (is (= :k.w (sql/as-keyword :k.w))))
(deftest test-quoted
(is (= "kw" (sql/as-quoted-identifier [ \[ \] ] "kw")))
(is (= "[kw]" (sql/as-quoted-identifier [ \[ \] ] :kw)))
(is (= "KW" (sql/as-quoted-identifier \` "KW")))
- (is (= "`KW`" (sql/as-quoted-identifier \` :KW))))
+ (is (= "`KW`" (sql/as-quoted-identifier \` :KW)))
+ (is (= "`k`.`w`" (sql/as-quoted-identifier \` :k.w))))
(def quote-dash { :entity (partial sql/as-quoted-str \`) :keyword #(.replace % "_" "-") })
(deftest test-named
(is (= "kw" (sql/as-named-identifier quote-dash "kw")))
(is (= "`kw`" (sql/as-named-identifier quote-dash :kw)))
+ (is (= "`k`.`w`" (sql/as-named-identifier quote-dash :k.w)))
(is (= :K-W (sql/as-named-keyword quote-dash "K_W")))
- (is (= :K_W (sql/as-named-keyword quote-dash :K_W))))
+ (is (= :K_W (sql/as-named-keyword quote-dash :K_W)))
+ (is (= :k.w (sql/as-named-keyword quote-dash :k.w))))
(deftest test-with-quote
(sql/with-quoted-identifiers [ \[ \] ]
(is (= "kw" (sql/as-identifier "kw")))
(is (= "[kw]" (sql/as-identifier :kw)))
(is (= "KW" (sql/as-identifier "KW")))
- (is (= "[KW]" (sql/as-identifier :KW)))))
+ (is (= "[KW]" (sql/as-identifier :KW)))
+ (is (= "[k].[w]" (sql/as-identifier :k.w)))))
(deftest test-with-naming
(sql/with-naming-strategy quote-dash
(is (= "kw" (sql/as-identifier "kw")))
(is (= "`kw`" (sql/as-identifier :kw)))
+ (is (= "`k`.`w`" (sql/as-identifier :k.w)))
(is (= :K-W (sql/as-keyword "K_W")))
- (is (= :K_W) (sql/as-keyword :K_W))))
+ (is (= :K_W) (sql/as-keyword :K_W))
+ (is (= :k.w) (sql/as-keyword :k.w))))
(deftest test-print-update-counts
(let [bu-ex (java.sql.BatchUpdateException. (int-array [1 2 3]))]
Please sign in to comment.
Something went wrong with that request. Please try again.