comparison src/clojure/contrib/test_contrib/test_load_all.clj @ 10:ef7dbbd6452c

added clojure source goodness
author Robert McIntyre <rlm@mit.edu>
date Sat, 21 Aug 2010 06:25:44 -0400
parents
children
comparison
equal deleted inserted replaced
9:35cf337adfcf 10:ef7dbbd6452c
1 ;;; test_load_all.clj - loads all contrib libraries for testing purposes
2
3 ;; by Stuart Halloway, http://blog.thinkrelevance.com
4
5 ;; Copyright (c) Stuart Halloway, 2009. All rights reserved. The use
6 ;; and distribution terms for this software are covered by the Eclipse
7 ;; Public License 1.0 (http://opensource.org/licenses/eclipse-1.0.php)
8 ;; which can be found in the file epl-v10.html at the root of this
9 ;; distribution. By using this software in any fashion, you are
10 ;; agreeing to be bound by the terms of this license. You must not
11 ;; remove this notice, or any other, from this software.
12
13 ;; This is only intended to check that the libraries will load without
14 ;; errors, not that they work correctly.
15
16 ;; The code includes several design choices I don't love, but find
17 ;; tolerable in a test-only lib:
18 ;;
19 ;; * namespaces that blow up to document deprecation
20 ;; * using directory paths to find contrib
21 ;; * using a macro to reflectively write tests
22 ;;
23 ;; I *am* happy that code that won't even load now breaks the build.
24
25 (ns clojure.contrib.test-load-all
26 (:use clojure.test clojure.contrib.find-namespaces))
27
28 (def deprecated-contrib-namespaces
29 '[clojure.contrib.javadoc])
30
31 (defn loadable-contrib-namespaces
32 "Contrib namespaces that can be loaded (everything except
33 deprecated nses that throw on load.)"
34 []
35 (apply disj
36 (into #{} (find-namespaces-in-dir (java.io.File. "src/main")))
37 deprecated-contrib-namespaces))
38
39 (defn emit-test-load
40 []
41 `(do
42 ~@(map
43 (fn [ns]
44 `(deftest ~(symbol (str "test-loading-" (.replace (str ns) "." "-")))
45 (require :reload '~ns)))
46 (loadable-contrib-namespaces))))
47
48 (defmacro test-load
49 []
50 (emit-test-load))
51
52 (test-load)
53