From 0cae1126daeb5c6827032817f3085bb8867f7714 Mon Sep 17 00:00:00 2001 From: Chris Oakman Date: Sun, 20 Oct 2024 11:43:43 -0500 Subject: [PATCH 1/2] WIP: add test case --- test/parse_ns.test.js | 3 ++- test_parse_ns/parse_ns.eno | 47 ++++++++++++++++++++++++++++++++++++++ 2 files changed, 49 insertions(+), 1 deletion(-) diff --git a/test/parse_ns.test.js b/test/parse_ns.test.js index 68d964a..93ecf1f 100644 --- a/test/parse_ns.test.js +++ b/test/parse_ns.test.js @@ -58,9 +58,10 @@ test('All test_parse_ns/ cases should have unique names', () => { // dev convenience: set this to true and add specific test cases // only those cases will run -const onlyRunSpecificTests = false +const onlyRunSpecificTests = true const specificTests = new Set() // specificTests.add('your test case here') +specificTests.add('GitHub Issue #38 - reader conditionals') const ignoreSomeTests = false const ignoreTests = new Set() diff --git a/test_parse_ns/parse_ns.eno b/test_parse_ns/parse_ns.eno index a913baf..bad86b0 100644 --- a/test_parse_ns/parse_ns.eno +++ b/test_parse_ns/parse_ns.eno @@ -2726,3 +2726,50 @@ ] } --Expected + +# GitHub Issue #38 - reader conditionals + +--Input +(ns com.example.my-app + #?(:clj (:refer-clojure :exclude [alter-var-root])) + (#?(:clj :require :cljs :require-macros) [alter-cljs.core :refer [alter-var-root]])) + +(alter-var-root whatever + (fn [x] + (do-something-to x))) +--Input + +--Expected +{ + "nsSymbol": "com.example.my-app", + "referClojure": { + "exclude": [ + { + "symbol": "alter-var-root" + } + ] + }, + "requires": [ + { + "symbol": "alter-cljs.core", + "refer": [ + { + "symbol": "alter-var-root" + } + ], + "platform": ":clj" + } + ], + "requireMacros": [ + { + "symbol": "alter-cljs.core", + "refer": [ + { + "symbol": "alter-var-root" + } + ], + "platform": ":cljs" + } + ] +} +--Expected From 0002c3527d94be8420bf7fdb41ef579a182e4fac Mon Sep 17 00:00:00 2001 From: Chris Oakman Date: Sun, 20 Oct 2024 11:46:35 -0500 Subject: [PATCH 2/2] FIXUP --- test_parse_ns/parse_ns.eno | 1 + 1 file changed, 1 insertion(+) diff --git a/test_parse_ns/parse_ns.eno b/test_parse_ns/parse_ns.eno index bad86b0..d98aa17 100644 --- a/test_parse_ns/parse_ns.eno +++ b/test_parse_ns/parse_ns.eno @@ -2745,6 +2745,7 @@ "referClojure": { "exclude": [ { + "platform": ":clj", "symbol": "alter-var-root" } ]