From 765acba4aadd03d487fc21aabb584c4a42e9b68d Mon Sep 17 00:00:00 2001
From: David Nolen <david.nolen@gmail.com>
Date: Tue, 27 Feb 2024 12:44:21 -0500
Subject: [PATCH] * self-parity fails if add test to core so move test to own
 ns

---
 src/test/cljs/cljs/core_test.cljs | 12 ------------
 src/test/cljs/cljs/var_test.cljs  | 22 ++++++++++++++++++++++
 src/test/cljs/test_runner.cljs    |  6 ++++--
 3 files changed, 26 insertions(+), 14 deletions(-)
 create mode 100644 src/test/cljs/cljs/var_test.cljs

diff --git a/src/test/cljs/cljs/core_test.cljs b/src/test/cljs/cljs/core_test.cljs
index 0665b7e0f..08581d603 100644
--- a/src/test/cljs/cljs/core_test.cljs
+++ b/src/test/cljs/cljs/core_test.cljs
@@ -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)))))
diff --git a/src/test/cljs/cljs/var_test.cljs b/src/test/cljs/cljs/var_test.cljs
new file mode 100644
index 000000000..0fe32d815
--- /dev/null
+++ b/src/test/cljs/cljs/var_test.cljs
@@ -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)))))
diff --git a/src/test/cljs/test_runner.cljs b/src/test/cljs/test_runner.cljs
index 29218923f..a0e411309 100644
--- a/src/test/cljs/test_runner.cljs
+++ b/src/test/cljs/test_runner.cljs
@@ -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)
 
@@ -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)