[nongnu] elpa/clojure-ts-mode 4e4b03e2de 137/210: [Fix #508] Correct font-lock for namespaces

[ELPA Syncer]

branch: elpa/clojure-ts-mode
commit 4e4b03e2de1ef09d1ec506948ed318311e601dce
Author: Carlos Requena López <crequena@ulb.ac.be>
Commit: Carlos Requena López <crequena@ulb.ac.be>

    [Fix #508] Correct font-lock for namespaces
    
    namespace metadata prevented the namespace name to be highlighted as such
    
    add font-lock tests as well.
---
 clojure-mode-font-lock-test.el | 9 ++++++++-
 1 file changed, 8 insertions(+), 1 deletion(-)

diff --git a/clojure-mode-font-lock-test.el b/clojure-mode-font-lock-test.el
index 2eb1fa15f7..8eb187c3ce 100644
--- a/clojure-mode-font-lock-test.el
+++ b/clojure-mode-font-lock-test.el
@@ -149,7 +149,14 @@ POS."
   (should (eq (clojure-test-face-at 5 11 "(ns Foo-bar)") 'font-lock-type-face))
   (should (eq (clojure-test-face-at 5 11 "(ns Foo-Bar)") 'font-lock-type-face))
   (should (eq (clojure-test-face-at 5 11 "(ns foo-Bar)") 'font-lock-type-face))
-  (should (eq (clojure-test-face-at 5 9  "(ns one.X)") 'font-lock-type-face)))
+  (should (eq (clojure-test-face-at 5 9  "(ns one.X)") 'font-lock-type-face))
+  (should (eq (clojure-test-face-at 10 16 "(ns ^:md ns-name)") 
'font-lock-type-face))
+  (should (eq (clojure-test-face-at 13 19 "(ns ^:md \n  ns-name)") 
'font-lock-type-face))
+  (should (eq (clojure-test-face-at 17 23 "(ns ^:md1 ^:md2 ns-name)") 
'font-lock-type-face))
+  (should (eq (clojure-test-face-at 24 30 "(ns ^:md1 ^{:md2 true} ns-name)") 
'font-lock-type-face))
+  (should (eq (clojure-test-face-at 24 30 "(ns ^{:md2 true} ^:md1 ns-name)") 
'font-lock-type-face))
+  (should (eq (clojure-test-face-at 27 33 "(ns ^:md1 ^{:md2 true} \n  
ns-name)") 'font-lock-type-face))
+  (should (eq (clojure-test-face-at 27 33 "(ns ^{:md2 true} ^:md1 \n  
ns-name)") 'font-lock-type-face)))
 
 (ert-deftest clojure-mode-syntax-table/oneword ()
   :tags '(fontification syntax-table)