cljrs-runtime 0.2.13

clojurust runtime: environment, builtins, tree-walking interpreter, and tiered evaluation
Documentation 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95

//! Metadata on `ns` forms: `(ns ^{:doc "..."} my.ns ...)`, `(ns ^:no-doc my.ns)`,
//! and the optional attr-map form `(ns my.ns "doc" {:author "x"})`.

use std::sync::Arc;

use cljrs_reader::Parser;
use cljrs_runtime::env::env::{Env, GlobalEnv};
use cljrs_value::Value;

fn make_env() -> (Arc<GlobalEnv>, Env) {
    let globals = cljrs_runtime::Runtime::builder()
        .execution_mode(cljrs_runtime::ExecutionMode::TreeWalk)
        .eager_clojure_test(true)
        .build()
        .expect("runtime")
        .into_globals();
    let env = Env::new(globals.clone(), "user");
    (globals, env)
}

fn eval_all(env: &mut Env, src: &str) -> Value {
    let mut parser = Parser::new(src.to_string(), "<test>".to_string());
    let forms = parser.parse_all().expect("parse error");
    let mut result = Value::Nil;
    for form in forms {
        result = cljrs_runtime::interp::eval::eval(&form, env).expect("eval error");
    }
    result
}

#[test]
fn ns_with_map_metadata() {
    let (_, mut env) = make_env();
    let result = eval_all(&mut env, r#"(ns ^{:doc "A namespace"} my.meta.ns)"#);
    let Value::Namespace(ns) = result else {
        panic!("expected Namespace, got {result:?}");
    };
    let meta = ns.get().get_meta().expect("ns should have metadata");
    let Value::Map(m) = meta else {
        panic!("expected map metadata, got {meta:?}");
    };
    let doc = m
        .get(&Value::keyword(cljrs_value::Keyword::parse("doc")))
        .expect("expected :doc key");
    assert_eq!(doc, Value::string("A namespace".to_string()));
}

#[test]
fn ns_with_keyword_shorthand_metadata() {
    let (_, mut env) = make_env();
    let result = eval_all(&mut env, "(ns ^:no-doc my.meta.ns2)");
    let Value::Namespace(ns) = result else {
        panic!("expected Namespace, got {result:?}");
    };
    let meta = ns.get().get_meta().expect("ns should have metadata");
    let Value::Map(m) = meta else {
        panic!("expected map metadata, got {meta:?}");
    };
    let v = m
        .get(&Value::keyword(cljrs_value::Keyword::parse("no-doc")))
        .expect("expected :no-doc key");
    assert_eq!(v, Value::Bool(true));
}

#[test]
fn ns_without_metadata_still_works() {
    let (_, mut env) = make_env();
    let result = eval_all(&mut env, "(ns my.plain.ns)");
    let Value::Namespace(ns) = result else {
        panic!("expected Namespace, got {result:?}");
    };
    assert!(ns.get().get_meta().is_none());
}

#[test]
fn ns_docstring_and_requires_clause_still_work_with_metadata() {
    let (_, mut env) = make_env();
    let result = eval_all(
        &mut env,
        r#"(ns ^{:doc "top"} my.meta.ns3
             "a docstring"
             (:require [clojure.core]))"#,
    );
    let Value::Namespace(ns) = result else {
        panic!("expected Namespace, got {result:?}");
    };
    let meta = ns.get().get_meta().expect("ns should have metadata");
    let Value::Map(m) = meta else {
        panic!("expected map metadata, got {meta:?}");
    };
    let doc = m
        .get(&Value::keyword(cljrs_value::Keyword::parse("doc")))
        .expect("expected :doc key");
    assert_eq!(doc, Value::string("top".to_string()));
}