Skip to content

Commit

Permalink
namespaces do not contain underscores anymore
Browse files Browse the repository at this point in the history
  • Loading branch information
tcrayford committed May 21, 2010
1 parent d02c6d6 commit 15cc3c0
Show file tree
Hide file tree
Showing 14 changed files with 26 additions and 26 deletions.
2 changes: 1 addition & 1 deletion src/clojure_refactoring/core.clj
@@ -1,4 +1,4 @@
(ns clojure_refactoring.core
(ns clojure-refactoring.core
(:use [clojure.contrib str-utils
duck-streams
seq-utils
Expand Down
4 changes: 2 additions & 2 deletions src/clojure_refactoring/destructuring.clj
@@ -1,5 +1,5 @@
(ns clojure_refactoring.destructuring
(:use [clojure.contrib str-utils duck-streams seq-utils pprint] clojure.walk clojure_refactoring.core))
(ns clojure-refactoring.destructuring
(:use [clojure.contrib str-utils duck-streams seq-utils pprint] clojure.walk clojure-refactoring.core))

(defn count= [seq n]
"Checks if the count of seq is equal to n"
Expand Down
4 changes: 2 additions & 2 deletions src/clojure_refactoring/extract_method.clj
@@ -1,5 +1,5 @@
(ns clojure_refactoring.extract_method
(:use clojure_refactoring.core [clojure.contrib str-utils seq-utils]))
(ns clojure-refactoring.extract-method
(:use clojure-refactoring.core [clojure.contrib str-utils seq-utils]))

(defn fn-name [fn-node] (nth fn-node 1))

Expand Down
4 changes: 2 additions & 2 deletions src/clojure_refactoring/local_binding.clj
@@ -1,5 +1,5 @@
(ns clojure_refactoring.local_binding
(:use clojure.walk clojure_refactoring.core clojure.contrib.seq-utils))
(ns clojure-refactoring.local-binding
(:use clojure.walk clojure-refactoring.core clojure.contrib.seq-utils))

(defn get-function-definition [defn-form]
"Gets the function body out of a defn form"
Expand Down
4 changes: 2 additions & 2 deletions src/clojure_refactoring/rename_binding.clj
@@ -1,5 +1,5 @@
(ns clojure_refactoring.rename_binding
(:use clojure_refactoring.core clojure.walk [clojure.contrib str-utils seq-utils]))
(ns clojure-refactoring.rename-binding
(:use clojure-refactoring.core clojure.walk [clojure.contrib str-utils seq-utils]))

(defn rename-binding [code old-name new-name]
(format-code
Expand Down
2 changes: 1 addition & 1 deletion src/clojure_refactoring/rename_fn.clj
@@ -1,4 +1,4 @@
(ns clojure_refactoring.rename_fn
(ns clojure-refactoring.rename-fn
(:use clojure.walk))

(defn rename-fn [fn-string old-name-as-string new-name-as-string]
Expand Down
4 changes: 2 additions & 2 deletions src/clojure_refactoring/thread_expression.clj
@@ -1,5 +1,5 @@
(ns clojure_refactoring.thread_expression
(:use clojure_refactoring.core clojure.walk [clojure.contrib str-utils seq-utils]))
(ns clojure-refactoring.thread-expression
(:use clojure-refactoring.core clojure.walk [clojure.contrib str-utils seq-utils]))

;; TODO: more robust error checking. If we can't thread a function
;; throw an exception instead of trying it anyway
Expand Down
4 changes: 2 additions & 2 deletions test/clojure_refactoring/core_test.clj
@@ -1,5 +1,5 @@
(ns clojure_refactoring.core-test
(:use clojure_refactoring.core clojure.test))
(ns clojure-refactoring.core-test
(:use clojure-refactoring.core clojure.test))

(defn fixture [f]
(def test-fn-string
Expand Down
4 changes: 2 additions & 2 deletions test/clojure_refactoring/destructuring_test.clj
@@ -1,5 +1,5 @@
(ns clojure_refactoring.destructuring-test
(:use clojure_refactoring.destructuring clojure.test))
(ns clojure-refactoring.destructuring-test
(:use clojure-refactoring.destructuring clojure.test))

(deftest is_map_lookup?
(is (= (is-map-lookup? '(:foo a)) true))
Expand Down
4 changes: 2 additions & 2 deletions test/clojure_refactoring/extract_method_test.clj
@@ -1,5 +1,5 @@
(ns clojure_refactoring.extract-method-test
(:use clojure_refactoring.extract_method clojure_refactoring.core clojure.test clojure.contrib.str-utils))
(ns clojure-refactoring.extract-method-test
(:use clojure-refactoring.extract-method clojure-refactoring.core clojure.test clojure.contrib.str-utils))

(deftest fn_name
(is (= (fn-name '(defn a [c] c)) 'a)))
Expand Down
4 changes: 2 additions & 2 deletions test/clojure_refactoring/local_binding_test.clj
@@ -1,6 +1,6 @@
(ns clojure_refactoring.local-binding-test
(ns clojure-refactoring.local-binding-test
(:use clojure.test)
(:use clojure_refactoring.local_binding :reload))
(:use clojure-refactoring.local-binding :reload))

(deftest wraps_code_as_local
(is (= (local-wrap "(defn a [b] (+ b (/ b 1)))"
Expand Down
4 changes: 2 additions & 2 deletions test/clojure_refactoring/rename_binding_test.clj
@@ -1,5 +1,5 @@
(ns clojure_refactoring.rename-binding-test
(:use clojure_refactoring.rename_binding clojure_refactoring.core clojure.test clojure.contrib.str-utils))
(ns clojure-refactoring.rename-binding-test
(:use clojure-refactoring.rename-binding clojure-refactoring.core clojure.test clojure.contrib.str-utils))

(use-fixtures :once #(time (%)))

Expand Down
4 changes: 2 additions & 2 deletions test/clojure_refactoring/rename_fn_test.clj
@@ -1,7 +1,7 @@
(ns clojure_refactoring.rename-fn-test
(ns clojure-refactoring.rename-fn-test
(:use clojure.test)
(:use clojure.contrib.mock)
(:use clojure_refactoring.rename_fn))
(:use clojure-refactoring.rename-fn))

(deftest renames-basic-function-call
(is (= (rename-fn "(defn a [b] (+ b 1))" "a" "c") "(defn c [b] (+ b 1))"))
Expand Down
4 changes: 2 additions & 2 deletions test/clojure_refactoring/thread_expression_test.clj
@@ -1,5 +1,5 @@
(ns clojure_refactoring.thread-expression-test
(:use clojure_refactoring.thread_expression clojure_refactoring.core clojure.test clojure.contrib.str-utils))
(ns clojure-refactoring.thread-expression-test
(:use clojure-refactoring.thread-expression clojure-refactoring.core clojure.test clojure.contrib.str-utils))

(defn fixture [f]
(def start-src "(reduce + (map #(Integer. %) s))")
Expand Down

0 comments on commit 15cc3c0

Please sign in to comment.