tidepool-macro 0.1.0

Procedural macros for the Tidepool language
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

use tidepool_eval::Value;
use tidepool_macro::haskell_eval;

// .hs paths resolve relative to CARGO_MANIFEST_DIR (tidepool-macro/),
// so one ../ reaches the workspace root.

#[test]
fn test_hs_identity() {
    let res = haskell_eval!("../haskell/test/Identity.hs::identity");
    assert!(res.is_ok(), "Evaluation failed: {:?}", res.as_ref().err());
    assert!(matches!(res.unwrap(), Value::Closure(_, _, _)));
}

#[test]
fn test_hs_apply() {
    let res = haskell_eval!("../haskell/test/Identity.hs::apply");
    assert!(res.is_ok(), "Evaluation failed: {:?}", res.as_ref().err());
    assert!(matches!(res.unwrap(), Value::Closure(_, _, _)));
}

#[test]
fn test_hs_const_prime() {
    let res = haskell_eval!("../haskell/test/Identity.hs::const'");
    assert!(res.is_ok(), "Evaluation failed: {:?}", res.as_ref().err());
    assert!(matches!(res.unwrap(), Value::Closure(_, _, _)));
}