Commits

Meikel Brandmeyer committed 6544cf1

Added markers for conditional highlighting

  • Participants
  • Parent commits 6bf9684

Comments (0)

Files changed (3)

src/de/kotka/clojurecheck/arbitrary.clj

 ; OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN
 ; THE SOFTWARE.
 
+; (:use [clojure.contrib.def :only (defvar)])
+
 (clojure.core/in-ns 'de.kotka.clojurecheck)
 
-(defvar
-  *prng*
+(defvar *prng*
   (new java.util.Random)
   "The PRNG used to generate the test data.")
 
                         ~g ~size)])
                (partition 2 gen-bindings))))
 
-(defvar
-  *max-checks*
+(defvar *max-checks*
   100
   "The maximum number of iterations, which are done by for-all.")
 

src/de/kotka/clojurecheck/directives.clj

 ; OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN
 ; THE SOFTWARE.
 
+; (:use [clojure.contrib.def :only (defvar-)])
+
 (clojure.core/in-ns 'de.kotka.clojurecheck)
 
 (defvar- *mode*        :normal)
   :name    de.kotka.clojurecheck.FatalTestError
   :extends Exception)
 
-(import '(de.kotka.clojurecheck FatalTestError))
+(import 'de.kotka.clojurecheck.FatalTestError)
 
 (defn fatal*
   "Executes the thunk in fatal context. That is a failing test will

src/de/kotka/clojurecheck/harness.clj

 ; OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN
 ; THE SOFTWARE.
 
+; (:use [clojure.contrib.def :only (defvar)])
+
 (clojure.core/in-ns 'de.kotka.clojurecheck)
 
 (gen-interface
             [getResult [] Object]
             [getDiagnostics [] String]])
 
-(import '(de.kotka.clojurecheck IHarness))
+(import 'de.kotka.clojurecheck.IHarness)
 
 (defn make-standard-harness
   "make-standard-harness creates a new standard harness."