Skip to content

Commit

Permalink
* self-parity fails if add test to core so move test to own ns
Browse files Browse the repository at this point in the history
  • Loading branch information
swannodette committed Feb 27, 2024
1 parent 15bc1af commit 765acba
Show file tree
Hide file tree
Showing 3 changed files with 26 additions and 14 deletions.
12 changes: 0 additions & 12 deletions src/test/cljs/cljs/core_test.cljs
Original file line number Diff line number Diff line change
Expand Up @@ -2042,15 +2042,3 @@
(is (= 11 @c))
(is (= [11 0] (reset-vals! c 0)))
(is (= 0 @c)))))

(defn cljs-3411-function
"this function adds two numbers"
{:test #(do
(assert (= (cljs-3411-function 2 3) 5))
(assert (= (cljs-3411-function 4 4) 8)))}
([x y] (+ x y)))

(deftest cljs-3411
(testing "cljs.core/test respects docstring"
(is (= :ok (test cljs-3411)))
(is (= :ok (test #'cljs-3411)))))
22 changes: 22 additions & 0 deletions src/test/cljs/cljs/var_test.cljs
Original file line number Diff line number Diff line change
@@ -0,0 +1,22 @@
;; Copyright (c) Rich Hickey. 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)
;; which can be found in the file epl-v10.html at the root of this distribution.
;; 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 cljs.var-test
(:require [cljs.test :refer-macros [deftest is]]))

(defn cljs-3411-function
"this function adds two numbers"
{:test #(do
(assert (= (cljs-3411-function 2 3) 5))
(assert (= (cljs-3411-function 4 4) 8)))}
([x y] (+ x y)))

(deftest cljs-3411
(testing "cljs.core/test respects docstring"
(is (= :ok (test cljs-3411)))
(is (= :ok (test #'cljs-3411)))))
6 changes: 4 additions & 2 deletions src/test/cljs/test_runner.cljs
Original file line number Diff line number Diff line change
Expand Up @@ -57,7 +57,8 @@
[cljs.inference-test]
[cljs.walk-test]
[cljs.repl-test]
[cljs.extend-to-native-test]))
[cljs.extend-to-native-test]
[cljs.var-test]))

(set! *print-newline* false)

Expand Down Expand Up @@ -116,4 +117,5 @@
'cljs.inference-test
'cljs.walk-test
'cljs.repl-test
'cljs.extend-to-native-test)
'cljs.extend-to-native-test
'cljs.var-test)

0 comments on commit 765acba

Please sign in to comment.