703a59d40b
Loading these libs via require worked (load-ns-source interprets, macros
expand lazily) but the same code inlined by uberscript routes through
eval-toplevel and compiled, surfacing four gaps:
- a ^{:map} metadata def name reads as (def (with-meta name m) v); the
analyzer died extracting the name (config.core's defonce env). It now
throws uncompilable so the interpreter, which handles it, takes over.
- declare was a no-op, so a compiled forward reference to a declared
name that collides with a janet root binding bound to the host fn
(selmer.parser's (declare parse) compiled to janet's 1-arg parse).
declare now expands to no-init defs, the interpreter interns them,
and the analyzer routes no-init def to the interpreter.
- class? was missing (selmer.util's exception macro calls it at
expansion time). Always false, like ratio? — no Class objects here.
- require of an unlocatable namespace silently left an empty ns behind,
deferring the failure to an unresolved symbol far from the cause. It
now throws like Clojure's FileNotFoundException. Namespaces entered
in-session count as loaded (Clojure puts them in *loaded-libs*), and
the SCI bootstrap opts out via :lenient-require? since its
clj-targeted requires can't all exist on this host.
80 lines
5.8 KiB
Text
80 lines
5.8 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})))"]
|
|
# Clojure throws FileNotFoundException; silently succeeding masks typos and
|
|
# missing roots until the first unresolved-symbol error far from the cause.
|
|
["require missing lib throws" :throws "(require '[no.such.lib])"]
|
|
["use missing lib throws" :throws "(use 'no.such.lib)"]
|
|
# …but an ns created in-session is in *loaded-libs* (the ns macro puts it
|
|
# there), so require/use of it must NOT hit the loader.
|
|
["require of in-session ns ok" "1" "(do (ns made.here) (def x 1) (require '[made.here]) made.here/x)"])
|
|
|
|
(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*))"])
|
|
|
|
# Alias bookkeeping is unified (jolt-ark): one string-keyed :aliases store,
|
|
# read by resolution AND ns-aliases (which presents Clojure's
|
|
# {alias-symbol -> namespace} shape); :imports holds class imports only.
|
|
(defspec "namespaces / unified alias store"
|
|
["require :as registers the alias" "1"
|
|
"(do (require (quote [clojure.string :as st1])) (count (filter (fn [[a n]] (= (str a) \"st1\")) (ns-aliases))))"]
|
|
["aliased call resolves" "\"A\""
|
|
"(do (require (quote [clojure.string :as st2])) (st2/upper-case \"a\"))"]
|
|
["alias fn registers + resolves" "\"B\""
|
|
"(do (require (quote [clojure.string])) (alias (quote st3) (quote clojure.string)) (st3/upper-case \"b\"))"]
|
|
["alias fn visible to ns-aliases" "true"
|
|
"(do (require (quote [clojure.string])) (alias (quote st4) (quote clojure.string)) (pos? (count (filter (fn [[a n]] (= (str a) \"st4\")) (ns-aliases)))))"]
|
|
["ns-unalias removes both views" "[0 false]"
|
|
"(do (require (quote [clojure.string :as st5])) (ns-unalias (quote user) (quote st5)) [(count (filter (fn [[a n]] (= (str a) \"st5\")) (ns-aliases))) (boolean (resolve (quote st5/upper-case)))])"]
|
|
["ns-resolve through alias" "true"
|
|
"(do (require (quote [clojure.string :as st6])) (var? (ns-resolve (quote user) (quote st6/upper-case))))"]
|
|
["empty ns-aliases is a map" "true" "(map? (ns-aliases (quote clojure.core)))"])
|