ucg 0.5.7

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
61
62
63
64
65
66
67
68

// A module with helper test assertions for ucg tests.
// Each contained module will output a struct with 
// ok and desc fields.
//
// ok will be a boolean.
// desc will be a descriptive message.
let asserts = module{
        // allows you to specify a a prefix for messages.
        // specify the prefix to add when the condition is not true.
        // A default description to use for messages.
        default_description = "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=mod.default_description,
    } => {
        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=mod.default_description,
    } => {
        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="",
    } => {
        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="",
    } => {
        let ok = mod.left != mod.right;

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