Commits

Steve Losh committed b05649f

Add tests for title desugaring.

Comments (0)

Files changed (5)

metrics-clojure-core/test/metrics/test/histograms.clj

 (ns metrics.test.histograms
   (:require [metrics.histograms :as histograms])
-  (:use [metrics.test.utils])
+  (:use [metrics.test.test-utils])
   (:use [clojure.test]))
 
 

metrics-clojure-core/test/metrics/test/meters.clj

 (ns metrics.test.meters
   (:require [metrics.meters :as meters])
-  (:use [metrics.test.utils])
+  (:use [metrics.test.test-utils])
   (:use [clojure.test]))
 
 

metrics-clojure-core/test/metrics/test/test_utils.clj

+(ns metrics.test.test-utils)
+
+(defn abs [n]
+  (if (> n 0) n (* -1 n)))
+
+(defn within-one [a b]
+  (<= (abs (- a b))
+      1))
+
+(defn within-ten [a b]
+  (<= (abs (- a b))
+      10))
+
+(defn maps-within-one [a b]
+  (when (= (set (keys a)) (set (keys b)))
+    (every? identity
+            (map #(within-one (a %) (b %))
+                 (keys a)))))
+

metrics-clojure-core/test/metrics/test/timers.clj

 (ns metrics.test.timers
   (:require [metrics.timers :as timers])
-  (:use [metrics.test.utils])
+  (:use [metrics.test.test-utils])
   (:use [clojure.test]))
 
 

metrics-clojure-core/test/metrics/test/utils.clj

-(ns metrics.test.utils)
+(ns metrics.test.utils
+  (:require [metrics.utils :as utils])
+  (:use [clojure.test]))
 
-(defn abs [n]
-  (if (> n 0) n (* -1 n)))
-
-(defn within-one [a b]
-  (<= (abs (- a b))
-      1))
-
-(defn within-ten [a b]
-  (<= (abs (- a b))
-      10))
-
-(defn maps-within-one [a b]
-  (when (= (set (keys a)) (set (keys b)))
-    (every? identity
-            (map #(within-one (a %) (b %))
-                 (keys a)))))
-
+(deftest test-desugared-title
+  (let [[s title] (utils/desugared-title "foo")]
+    (is (= s 'foo))
+    (is (= title "foo")))
+  (let [[s title] (utils/desugared-title 'foo)]
+    (is (= s 'foo))
+    (is (= title "foo")))
+  (dorun (for [test-title [["a" "b" "c"]
+                           ['a  'b  'c]
+                           ["a" 'b  'c]
+                           ["a" "b" 'c]
+                           ['a  'b  "c"]]]
+           (let [[s title] (utils/desugared-title test-title)]
+             (is (= s 'c))
+             (is (= title ["a" "b" "c"])))))
+  )
Tip: Filter by directory path e.g. /media app.js to search for public/media/app.js.
Tip: Use camelCasing e.g. ProjME to search for ProjectModifiedEvent.java.
Tip: Filter by extension type e.g. /repo .js to search for all .js files in the /repo directory.
Tip: Separate your search with spaces e.g. /ssh pom.xml to search for src/ssh/pom.xml.
Tip: Use ↑ and ↓ arrow keys to navigate and return to view the file.
Tip: You can also navigate files with Ctrl+j (next) and Ctrl+k (previous) and view the file with Ctrl+o.
Tip: You can also navigate files with Alt+j (next) and Alt+k (previous) and view the file with Alt+o.