1.1 --- /dev/null	Thu Jan 01 00:00:00 1970 +0000
     1.2 +++ b/src/clojure/test_clojure/annotations.clj	Sat Aug 21 06:25:44 2010 -0400
     1.3 @@ -0,0 +1,29 @@
     1.4 +;   Copyright (c) Rich Hickey. All rights reserved.
     1.5 +;   The use and distribution terms for this software are covered by the
     1.6 +;   Eclipse Public License 1.0 (http://opensource.org/licenses/eclipse-1.0.php)
     1.7 +;   which can be found in the file epl-v10.html at the root of this distribution.
     1.8 +;   By using this software in any fashion, you are agreeing to be bound by
     1.9 +;   the terms of this license.
    1.10 +;   You must not remove this notice, or any other, from this software.
    1.11 +
    1.12 +;; Authors: Stuart Halloway, Rich Hickey
    1.13 +
    1.14 +(ns clojure.test-clojure.annotations
    1.15 +  (:use clojure.test))
    1.16 +
    1.17 +(defn vm-has-ws-annotations?
    1.18 +  "Does the vm have the ws annotations we use to test some
    1.19 +   annotation features. If not, fall back to Java 5 tests."
    1.20 +  []
    1.21 +  (try
    1.22 +   (doseq [n ["javax.xml.ws.soap.Addressing"
    1.23 +              "javax.xml.ws.WebServiceRef"
    1.24 +              "javax.xml.ws.WebServiceRefs"]]
    1.25 +     (Class/forName n))
    1.26 +   true
    1.27 +   (catch ClassNotFoundException e
    1.28 +     false)))
    1.29 +
    1.30 +(if (vm-has-ws-annotations?)
    1.31 +  (load "annotations/java_6_and_later")
    1.32 +  (load "annotations/java_5"))