scheme-rs 0.1.0

Embedded scheme for the Rust ecosystem
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

//! Scaffolding for R*RS specification tests

use scheme_rs::{exceptions::Exception, registry::bridge, value::Value};

#[bridge(name = "assert-equal?", lib = "(test)")]
fn test_assert(arg1: &Value, arg2: &Value) -> Result<Vec<Value>, Exception> {
    if !arg1.equal(arg2) {
        Err(Exception::error(format!(
            "assert-equal? failed: {arg1:?} != {arg2:?}"
        )))
    } else {
        Ok(vec![])
    }
}

macro_rules! run_test {
    ($name:ident) => {
        #[scheme_rs_macros::maybe_async]
        #[cfg_attr(feature = "async", ::tokio::test)]
        #[cfg_attr(not(feature = "async"), test)]
        fn $name() {
            use scheme_rs::runtime::Runtime;
            use std::path::Path;

            let test_path = Path::new(concat!("tests/", stringify!($name), ".scm"));
            let rt = Runtime::new();
            scheme_rs_macros::maybe_await!(rt.run_program(test_path))
                .expect(&format!("Test {} failed", stringify!($name)));
        }
    };
}

pub(crate) use run_test;