6260230231
clojure.edn was nearly complete (sets, #uuid/#inst, :eof all landed earlier);
the :readers opt was ignored and :default missing. Both work now — the
reader stores a tag as a :#name keyword, so the lookup normalizes it to the
symbol Clojure keys :readers with; :default gets (tag value); built-in data
readers stay the fallback. 8 new edn spec rows. This was the last open item
of jolt-0mb (the vendored walk/zip/data/edn battery has been green for a
while: 34/33/61/50, all clean).
Chasing the probe cascade ('Unable to resolve symbol: edn/...' after one
error) found a real evaluator bug: an interpreted fn body runs with
current-ns rebound to its DEFINING ns and restores it with a plain trailing
call — an UNCAUGHT throw skips every restore on the way out, leaving the ctx
stuck in the deepest callee's ns, where alias-qualified lookups then fail
(the same cascade previously seen via sci). The repair lives at the
TOP-LEVEL boundary (loader/eval-toplevel saves the entry ns and restores it
on error before re-raising) — NOT per-call defer/try, which builds a fiber
per frame and blew the C stack on deep interpreted recursion (file-seq)
when tried first. Regression tests cover the cross-eval leak and that
aliases keep resolving.
55 lines
3.9 KiB
Text
55 lines
3.9 KiB
Text
# Specification: namespaces, vars and require.
|
|
(use ../support/harness)
|
|
|
|
(defspec "namespaces / def & vars"
|
|
["def + deref" "5" "(do (def x 5) x)"]
|
|
["def returns var" "true" "(var? (def y 1))"]
|
|
["declare then def" "2" "(do (declare z) (def z 2) z)"]
|
|
["var special form" "true" "(var? (var +))"]
|
|
["var sugar #'" "true" "(var? #'+)"]
|
|
["var-get" "5" "(do (def w 5) (var-get #'w))"]
|
|
["defn defines fn" "3" "(do (defn f [x] (inc x)) (f 2))"]
|
|
["def with docstring" "7" "(do (def d \"a doc\" 7) d)"]
|
|
["dynamic var binding" "2" "(do (def ^:dynamic *x* 1) (binding [*x* 2] *x*))"]
|
|
["binding restores" "1" "(do (def ^:dynamic *y* 1) (binding [*y* 9] nil) *y*)"]
|
|
["var-set in binding" "5" "(do (def ^:dynamic *z* 1) (binding [*z* 0] (var-set (var *z*) 5) *z*))"])
|
|
|
|
(defspec "namespaces / ns operations"
|
|
["in-ns switches" "true" "(do (in-ns 'my.ns) (symbol? 'x))"]
|
|
# ns is a macro over in-ns/require/use/import (Stage 2 jolt-eaa): the form sets
|
|
# the current ns and processes its clauses.
|
|
["ns form + alias" "\"HI\"" "(do (ns my.app (:require [clojure.string :as s])) (s/upper-case \"hi\"))"]
|
|
["ns :use refers all" "9" "(do (ns src.lib) (def helper 9) (ns dst.app (:use [src.lib])) helper)"]
|
|
["standalone use" "7" "(do (ns src.l2) (def k 7) (in-ns 'dst.a2) (use '[src.l2]) k)"]
|
|
["ns-name" "true" "(do (require (quote [clojure.string])) (= 'clojure.string (ns-name (find-ns 'clojure.string))))"]
|
|
["find-ns existing" "true" "(some? (find-ns 'clojure.core))"]
|
|
["find-ns missing" "nil" "(find-ns 'does.not.exist)"]
|
|
["resolve var" "true" "(var? (resolve '+))"]
|
|
["resolve missing" "nil" "(resolve 'totally-undefined-xyz)"])
|
|
|
|
(defspec "namespaces / require & refer"
|
|
["require :as" "\"AB\"" "(do (require '[clojure.string :as s]) (s/upper-case \"ab\"))"]
|
|
["require :refer" "true" "(do (require '[clojure.string :refer [blank?]]) (blank? \"\"))"]
|
|
["require :as + :refer" "true" "(do (require '[clojure.string :as s :refer [blank?]]) (and (blank? \"\") (= \"X\" (s/upper-case \"x\"))))"]
|
|
["require clojure.set" "#{1 2 3}" "(do (require '[clojure.set :as set]) (set/union #{1 2} #{3}))"]
|
|
["require clojure.walk" "{:a 2}" "(do (require '[clojure.walk :as w]) (w/postwalk (fn [x] (if (number? x) (inc x) x)) {:a 1}))"]
|
|
["walk keywordize-keys" "{:a 1}" "(do (require '[clojure.walk :as w]) (w/keywordize-keys {\"a\" 1}))"]
|
|
["walk stringify-keys" "true" "(do (require '[clojure.walk :as w]) (= {\"a\" 1} (w/stringify-keys {:a 1})))"])
|
|
|
|
(defspec "namespaces / alias, ns-unalias, ns-publics"
|
|
["alias + use" "\"1,2\"" "(do (require (quote clojure.string)) (alias (quote st) (quote clojure.string)) (st/join \",\" [1 2]))"]
|
|
["ns-unalias removes" "true"
|
|
"(do (require (quote clojure.string)) (alias (quote st2) (quote clojure.string)) (ns-unalias (quote user) (quote st2)) (nil? (get (ns-aliases (quote user)) (quote st2))))"]
|
|
["ns-publics has var" "true" "(do (def npv 1) (some? (get (ns-publics (quote user)) (quote npv))))"]
|
|
["newline returns nil" "nil" "(newline)"])
|
|
|
|
# A throw inside an interpreted fn body (or macro expander) must restore the
|
|
# caller's current-ns: the body runs with current-ns rebound to the fn's
|
|
# DEFINING ns, and an unwind that skipped the restore left the ctx stuck
|
|
# there — every later alias-qualified lookup in the REPL ns then failed
|
|
# ("Unable to resolve symbol: alias/...", seen via sci + clojure.edn).
|
|
(defspec "namespaces / error inside a fn must not leak its defining ns"
|
|
["alias survives a throwing stdlib call" "\"A\""
|
|
"(do (require (quote [clojure.string :as s9])) (try (s9/join nil nil nil) (catch Exception e nil)) (s9/upper-case \"a\"))"]
|
|
["*ns* restored after throw" "\"user\""
|
|
"(do (require (quote [clojure.walk :as w9])) (try (w9/postwalk nil nil nil) (catch Exception e nil)) (str *ns*))"])
|