aboutsummaryrefslogtreecommitdiff
path: root/modules/mock-test-adapter
diff options
context:
space:
mode:
Diffstat (limited to 'modules/mock-test-adapter')
-rw-r--r--modules/mock-test-adapter/pom.xml26
-rw-r--r--modules/mock-test-adapter/src/main/clojure/clojure/contrib/mock/test_adapter.clj38
2 files changed, 0 insertions, 64 deletions
diff --git a/modules/mock-test-adapter/pom.xml b/modules/mock-test-adapter/pom.xml
deleted file mode 100644
index 3acd6504..00000000
--- a/modules/mock-test-adapter/pom.xml
+++ /dev/null
@@ -1,26 +0,0 @@
-<?xml version="1.0" encoding="UTF-8"?>
-<project xmlns="http://maven.apache.org/POM/4.0.0"
- xmlns:xsi="http//www.w3.org/2001/XMLSchema-instance"
- xsi:schemaLocation="http://maven.apache.org/POM/4.0.0
- http://maven.apache.org/maven-v4_0_0.xsd">
- <modelVersion>4.0.0</modelVersion>
- <parent>
- <groupId>org.clojure.contrib</groupId>
- <artifactId>parent</artifactId>
- <version>1.3.0-SNAPSHOT</version>
- <relativePath>../parent</relativePath>
- </parent>
- <artifactId>mock-test-adapter</artifactId>
- <dependencies>
- <dependency>
- <groupId>org.clojure.contrib</groupId>
- <artifactId>ns-utils</artifactId>
- <version>1.3.0-SNAPSHOT</version>
- </dependency>
- <dependency>
- <groupId>org.clojure.contrib</groupId>
- <artifactId>mock</artifactId>
- <version>1.3.0-SNAPSHOT</version>
- </dependency>
- </dependencies>
-</project> \ No newline at end of file
diff --git a/modules/mock-test-adapter/src/main/clojure/clojure/contrib/mock/test_adapter.clj b/modules/mock-test-adapter/src/main/clojure/clojure/contrib/mock/test_adapter.clj
deleted file mode 100644
index 466cb537..00000000
--- a/modules/mock-test-adapter/src/main/clojure/clojure/contrib/mock/test_adapter.clj
+++ /dev/null
@@ -1,38 +0,0 @@
-;;; test_adapter.clj: clojure.test adapter for mocking/expectation framework for Clojure
-
-;; by Matt Clark
-
-;; Copyright (c) Matt Clark, 2009. All rights reserved. The use
-;; and distribution terms for this software are covered by the Eclipse
-;; Public License 1.0 (http://opensource.org/licenses/eclipse-1.0.php).
-;; By using this software in any fashion, you are
-;; agreeing to be bound by the terms of this license. You must not
-;; remove this notice, or any other, from this software.
-
-(ns clojure.contrib.mock.test-adapter
- (:require [clojure.contrib.mock :as mock])
- (:use clojure.test
- clojure.contrib.ns-utils))
-
-(immigrate 'clojure.contrib.mock)
-
-(defn report-problem
- "This function is designed to be used in a binding macro to override
-the report-problem function in clojure.contrib.mock. Instead of printing
-the error to the console, the error is logged via clojure.test."
- {:dynamic true}
- [fn-name expected actual msg]
- (report {:type :fail,
- :message (str msg " Function name: " fn-name),
- :expected expected,
- :actual actual}))
-
-
-(defmacro expect [& body]
- "Use this macro instead of the standard c.c.mock expect macro to have
-failures reported through clojure.test."
- `(binding [mock/report-problem report-problem]
- (mock/expect ~@body)))
-
-
-