From 735d8d56632435e25decb2eef7ea49aac97db1fd Mon Sep 17 00:00:00 2001 From: XeroOl Date: Wed, 30 Jul 2025 14:25:55 -0500 Subject: [PATCH] suppress warnings during tests --- src/fennel-ls/completion.fnl | 3 ++- test/completion.fnl | 7 ++++++- 2 files changed, 8 insertions(+), 2 deletions(-) diff --git a/src/fennel-ls/completion.fnl b/src/fennel-ls/completion.fnl index effff35..68579bc 100644 --- a/src/fennel-ls/completion.fnl +++ b/src/fennel-ls/completion.fnl @@ -102,7 +102,8 @@ is set to true and we report that we support completionItem/resolve." (add-completion! global* def) (add-completion-recursively! global* def)) _ (do - (io.stderr:write "BAD!!!! undocumented global: " (tostring global*) "\n") + (when (not file.macro-file?) + (io.stderr:write "BAD!!!! undocumented global: " (tostring global*) "\n")) (add-completion! global* {}))))) (each [k v (pairs docs.literals)] diff --git a/test/completion.fnl b/test/completion.fnl index 16f5d9b..125f804 100644 --- a/test/completion.fnl +++ b/test/completion.fnl @@ -263,7 +263,12 @@ (fn test-compiler-env [] (check ";; fennel-ls: macro-file\n(" [:sym :sym? :list :quote :icollect :math] - [:os])) + [:os]) + ;; TODO #73 + ; (check "(macro foo [] (|" + ; [:sym :sym? :list :quote :icollect :math] + ; [:os]) + nil) ;; ;; Future tests / features ;; ;; Scope Ordering Rules