lemma-engine 0.10.2

A pure, declarative language for business rules.
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

use indexmap::IndexMap;
use lemma::{DateTimeValue, Engine, SourceType};

fn run(code: &str, rule: &str) -> String {
    let mut engine = Engine::new();
    engine
        .load([(SourceType::Volatile, code.to_string())])
        .expect("load");
    let now = DateTimeValue::now();
    let resp = engine
        .evaluate(
            None,
            "test",
            Some(&now),
            IndexMap::new(),
            Some(&[rule.to_string()]),
            false,
        )
        .expect("evaluate");
    let rule_result = resp.get(rule).expect("rule result");
    assert!(!rule_result.vetoed, "rule {rule} vetoed");
    rule_result.result().expect("display").to_string()
}

#[test]
fn ceil_of_value_just_above_integer_is_exact() {
    assert_eq!(
        run("spec test\nrule r: ceil(3 + 1 / 10^29) is 4\n", "r"),
        "true"
    );
    assert_eq!(
        run("spec test\nrule r: ceil(3 + 1 / 10^29) is 3\n", "r"),
        "false"
    );
}

#[test]
fn floor_of_value_just_below_integer_is_exact() {
    assert_eq!(
        run("spec test\nrule r: floor(3 - 1 / 10^29) is 2\n", "r"),
        "true"
    );
}

#[test]
fn floor_and_ceil_of_negative_fractions() {
    assert_eq!(run("spec test\nrule r: floor(-5 / 2) is -3\n", "r"), "true");
    assert_eq!(run("spec test\nrule r: ceil(-5 / 2) is -2\n", "r"), "true");
    assert_eq!(run("spec test\nrule r: ceil(5 / 2) is 3\n", "r"), "true");
}

#[test]
fn abs_then_scale_round_trips_exactly() {
    assert_eq!(run("spec test\nrule r: abs(2 / 3) * 3 is 2\n", "r"), "true");
    assert_eq!(
        run("spec test\nrule r: abs(-2 / 3) * 3 is 2\n", "r"),
        "true"
    );
}

#[test]
fn floor_beyond_decimal_range_is_exact() {
    assert_eq!(
        run("spec test\nrule r: floor(2 ^ 100) is 2 ^ 100\n", "r"),
        "true"
    );
}

#[test]
fn round_half_goes_to_even_and_others_to_nearest() {
    assert_eq!(run("spec test\nrule r: round(5 / 2) is 2\n", "r"), "true");
    assert_eq!(run("spec test\nrule r: round(7 / 2) is 4\n", "r"), "true");
    assert_eq!(run("spec test\nrule r: round(-5 / 2) is -2\n", "r"), "true");
    assert_eq!(run("spec test\nrule r: round(13 / 5) is 3\n", "r"), "true");
    assert_eq!(
        run("spec test\nrule r: round(-13 / 5) is -3\n", "r"),
        "true"
    );
    assert_eq!(run("spec test\nrule r: round(12 / 5) is 2\n", "r"), "true");
}