ucg 0.8.0

A configuration generation grammar.
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

let todo_desc = "TODO description";

// Test that a value is true.
let ok = module{
    // test value expected to be true for success.
    test=false,
    // descriptive message to use in output.
    desc=todo_desc,
} => ({ok=ok, desc=desc}) {
    (mod.desc != NULL) || fail "description can't be null";

    let ok = mod.test;
    let desc = "@" % (mod.desc);
};

// Test that a value is not true.
let not_ok = module{
    // Test value expected to to be false for success.
    test=true,
    // descriptive message to use in output.
    desc=todo_desc,
} => ({ok=ok, desc=desc}) {
    (mod.desc != NULL) || fail "description can't be null";

    let ok = not mod.test;
    let desc = "@" % (mod.desc);

};

// Asserts that two values are equal. Does deep equal comparisons.
let equal = module{
    // Left value for deep equal comparison.
    left=NULL,
    // right value for deep equal comparison.
    right=NULL,
    desc="",
} => ({ok=ok, desc=desc}) {
    (mod.desc != NULL) || fail "description can't be null";

    let ok = mod.left == mod.right;
    let desc = select ((mod.desc == ""), "@ == @" % (mod.left, mod.right)) => {
        false = mod.desc,
    };
};

// Asserts that two values are not equal. Does deep equal comparisons.
let not_equal = module{
    // Left value for deep equal comparison.
    left=NULL,
    // right value for deep equal comparison.
    right=NULL,
    desc="",
} => ({ok=ok, desc=desc}) {
    (mod.desc != NULL) || fail "description can't be null";

    let ok = mod.left != mod.right;
    let desc = select ((mod.desc == ""), "@ != @" % (mod.left, mod.right)) => {
        false = mod.desc,
    };
};