com.github.jlangch.venice.test-support.venice Maven / Gradle / Ivy

Go to download

Show more of this group Show more artifacts with this name
Show all versions of venice Show documentation

Venice, a sandboxed Lisp implemented in Java.

The newest version!

;;;;   __    __         _
;;;;   \ \  / /__ _ __ (_) ___ ___
;;;;    \ \/ / _ \ '_ \| |/ __/ _ \
;;;;     \  /  __/ | | | | (_|  __/
;;;;      \/ \___|_| |_|_|\___\___|
;;;;
;;;;
;;;; Copyright 2017-2024 Venice
;;;;
;;;; 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.

;;;; Test support for Venice unit tests


(ns test-support)

(defmacro test-support/sum [x y] `(+  ~x ~y))

(defn test-support/add [x y] (+ x y))

(defn test-support/test-fn [x]
  (str "test: " x))


(defn- test-support/test-fn-private [x]
  (str "test: " x))


(defn- test-support/error [msg]
  msg)


(defn test-support/unexpected-error [msg]
  (test-support/error (str "Unexpected " msg)))


;; used by macroexpand unit test
(defn test-support/test-body-with-macro [] (when true 1))
(defmacro test-support/expand-time [] (str (time/local-date-time)))
(defmacro test-support/macro-ns-expand [] (str *ns*))
(defmacro test-support/macro-ns-runtime [] `(str *ns*))