Add Clojure syntax test.

2 files changed, 116 insertions, 0 deletions

diff --git a/tests/syntax-tests/highlighted/Clojure/test.clj b/tests/syntax-tests/highlighted/Clojure/test.clj
new file mode 100644
index 00000000..32903fe7
--- /dev/null
+++ b/tests/syntax-tests/highlighted/Clojure/test.clj
@@ -0,0 +1,58 @@
+(ns clojure-sample.core
+    (:gen-class))
+  
+  (require '[clj-time.core :as t])
+  (require '[clj-time.format :as f])
+  
+  ;; Product record
+  (defrecord Product [id name available price])
+  
+  ;; Positional constructor
+  (def product1 (->Product "1" "T-Shirt 1" true 15.00))
+  
+  ;; Map constructor
+  (def product2 (map->Product
+                 {:id "2"
+                  :name "T-Shirt 2"
+                  :available true
+                  :price 20.00}))
+  
+  ;; Nested
+  (def product3 {:id "1"
+                 :name "Product 1"
+                 :available true
+                 :sellers [{:id "1"
+                            :name "Seller 1"
+                            :stock 3},
+                           {:id 2
+                            :name "Seller 2"
+                            :stock 5}]})
+  
+  ;; Set
+  (def categories #{"shirts" "shoes" "belts"})
+  
+  ;; List
+  (def wishlist '(1 2))
+  
+  ;; Recursion
+  (defn factorial [value] (cond
+                            (<= value 1) 1
+                            :else (* value (factorial (- value 1)))))
+  
+  (def basic-formatter (f/formatter "YYYY-MM-dd hh:mm:ss"))
+  (defn now [] (f/unparse basic-formatter (t/now)))
+  (defn log
+    ([] (println (now) "No message"))
+    ([message] (println (now)  message)))
+  
+  (defn -main
+    [& args]
+    (println (:id product1))
+    (println (:name product2))
+    (println (:name (get (:sellers product3) 0)))
+    (println (first categories))
+    (println wishlist)
+    (println (factorial 5))
+    (log)
+    (log "Message"))
+  
diff --git a/tests/syntax-tests/source/Clojure/test.clj b/tests/syntax-tests/source/Clojure/test.clj
new file mode 100644
index 00000000..ea24e822
--- /dev/null
+++ b/tests/syntax-tests/source/Clojure/test.clj
@@ -0,0 +1,58 @@
+(ns clojure-sample.core
+    (:gen-class))
+  
+  (require '[clj-time.core :as t])
+  (require '[clj-time.format :as f])
+  
+  ;; Product record
+  (defrecord Product [id name available price])
+  
+  ;; Positional constructor
+  (def product1 (->Product "1" "T-Shirt 1" true 15.00))
+  
+  ;; Map constructor
+  (def product2 (map->Product
+                 {:id "2"
+                  :name "T-Shirt 2"
+                  :available true
+                  :price 20.00}))
+  
+  ;; Nested
+  (def product3 {:id "1"
+                 :name "Product 1"
+                 :available true
+                 :sellers [{:id "1"
+                            :name "Seller 1"
+                            :stock 3},
+                           {:id 2
+                            :name "Seller 2"
+                            :stock 5}]})
+  
+  ;; Set
+  (def categories #{"shirts" "shoes" "belts"})
+  
+  ;; List
+  (def wishlist '(1 2))
+  
+  ;; Recursion
+  (defn factorial [value] (cond
+                            (<= value 1) 1
+                            :else (* value (factorial (- value 1)))))
+  
+  (def basic-formatter (f/formatter "YYYY-MM-dd hh:mm:ss"))
+  (defn now [] (f/unparse basic-formatter (t/now)))
+  (defn log
+    ([] (println (now) "No message"))
+    ([message] (println (now)  message)))
+  
+  (defn -main
+    [& args]
+    (println (:id product1))
+    (println (:name product2))
+    (println (:name (get (:sellers product3) 0)))
+    (println (first categories))
+    (println wishlist)
+    (println (factorial 5))
+    (log)
+    (log "Message"))
+  
\ No newline at end of file