mentat/test/datomish/test_macros_test.clj

;; Copyright 2016 Mozilla
;;
;; Licensed under the Apache License, Version 2.0 (the "License"); you may not use
;; this file except in compliance with the License. You may obtain a copy of the
;; License at http://www.apache.org/licenses/LICENSE-2.0
;; Unless required by applicable law or agreed to in writing, software distributed
;; under the License is distributed on an "AS IS" BASIS, WITHOUT WARRANTIES OR
;; CONDITIONS OF ANY KIND, either express or implied. See the License for the
;; specific language governing permissions and limitations under the License.

(ns datomish.test-macros-test
  (:require
   [datomish.pair-chan :refer [go-pair]]
   [datomish.test-macros :refer [deftest-async]]
   [clojure.core.async :as a]
   [clojure.test :as t :refer [is are deftest testing]]))

(deftest sync-test
  (is (= 1 1)))

(deftest-async async-test
  (is (= 1 1)))
Change license to Apache. Fixes #74. 2016-11-22 01:23:53 +00:00			`;; Copyright 2016 Mozilla`
			`;;`
			`;; Licensed under the Apache License, Version 2.0 (the "License"); you may not use`
			`;; this file except in compliance with the License. You may obtain a copy of the`
			`;; License at http://www.apache.org/licenses/LICENSE-2.0`
			`;; Unless required by applicable law or agreed to in writing, software distributed`
			`;; under the License is distributed on an "AS IS" BASIS, WITHOUT WARRANTIES OR`
			`;; CONDITIONS OF ANY KIND, either express or implied. See the License for the`
			`;; specific language governing permissions and limitations under the License.`
Add an async and async testing framework. This is a well-worn idea: use a `promise-channel` of `[result nil]` or `[nil error]` pairs. The `go-pair` and `<?` macros handle catching exceptions (important, given that synchronous CLJ code expects to throw rather than return an error promise or similar), allowing code like: ``` (go-pair (let [result (<? (pair-chan-fn))] (when (not result) (throw (Exception. "No result!"))) (transform result))) ``` to be expressed naturally. These are the equivalents of `async` and `await` in JS. The implementation is complicated by significant incompatibilities between CLJ and CLJS. The solution presented here takes care to separate the macro definitions into CLJ. Sadly, this requires namespacing the per-environment symbols explicitly; but we hope to minimize such code in files like this. The most significant restriction to this approach is that consumers must require the transitive dependencies of the macro-defining modules. See the included tests (both CLJ and CLJS) for the appropriate incantations (for pair-chan, core.async, and test). 2016-07-11 23:48:40 +00:00
			`(ns datomish.test-macros-test`
			`(:require`
			`[datomish.pair-chan :refer [go-pair]]`
			`[datomish.test-macros :refer [deftest-async]]`
			`[clojure.core.async :as a]`
			`[clojure.test :as t :refer [is are deftest testing]]))`

			`(deftest sync-test`
			`(is (= 1 1)))`

			`(deftest-async async-test`
			`(is (= 1 1)))`