Mercurial > lasercutter

     1 ;   Copyright (c) Rich Hickey. All rights reserved.

     2 ;   The use and distribution terms for this software are covered by the

     3 ;   Eclipse Public License 1.0 (http://opensource.org/licenses/eclipse-1.0.php)

     4 ;   which can be found in the file epl-v10.html at the root of this distribution.

     5 ;   By using this software in any fashion, you are agreeing to be bound by

     6 ;   the terms of this license.

     7 ;   You must not remove this notice, or any other, from this software.

     8 

     9 ;; Authors: Stuart Halloway, Rich Hickey

    10 

    11 (ns clojure.test-clojure.annotations

    12   (:use clojure.test))

    13 

    14 (defn vm-has-ws-annotations?

    15   "Does the vm have the ws annotations we use to test some

    16    annotation features. If not, fall back to Java 5 tests."

    17   []

    18   (try

    19    (doseq [n ["javax.xml.ws.soap.Addressing"

    20               "javax.xml.ws.WebServiceRef"

    21               "javax.xml.ws.WebServiceRefs"]]

    22      (Class/forName n))

    23    true

    24    (catch ClassNotFoundException e

    25      false)))

    26 

    27 (if (vm-has-ws-annotations?)

    28   (load "annotations/java_6_and_later")

    29   (load "annotations/java_5"))
author	Robert McIntyre <rlm@mit.edu>
date	Sat, 21 Aug 2010 06:25:44 -0400
parents
children