prune-lang 0.2.2

Prune is a constraint logic programming language with branching heuristic.
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
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125

use std::path::PathBuf;

use prune_lang::cli;

#[test]
fn test_unary_arith() {
    cli::pipeline::run_test_pipeline(PathBuf::from("./examples/arith/unary_arith.pr")).unwrap();
}

#[test]
fn test_binary_arith() {
    cli::pipeline::run_test_pipeline(PathBuf::from("./examples/arith/binary_arith.pr")).unwrap();
}

#[test]
fn test_ternary_arith() {
    cli::pipeline::run_test_pipeline(PathBuf::from("./examples/arith/ternary_arith.pr")).unwrap();
}

#[test]
fn test_binary_vec() {
    cli::pipeline::run_test_pipeline(PathBuf::from("./examples/arith/binary_vec.pr")).unwrap();
}

#[test]
fn test_reverse_forward() {
    cli::pipeline::run_test_pipeline(PathBuf::from("./examples/basic/reverse_forward.pr")).unwrap();
}

#[test]
fn test_reverse_backward() {
    cli::pipeline::run_test_pipeline(PathBuf::from("./examples/basic/reverse_backward.pr"))
        .unwrap();
}

#[test]
fn test_concat_forward() {
    cli::pipeline::run_test_pipeline(PathBuf::from("./examples/basic/concat_forward.pr")).unwrap();
}

#[test]
fn test_concat_backward() {
    cli::pipeline::run_test_pipeline(PathBuf::from("./examples/basic/concat_backward.pr")).unwrap();
}

#[test]
fn test_polymorphism() {
    cli::pipeline::run_test_pipeline(PathBuf::from("./examples/features/polymorphism.pr")).unwrap();
}

#[test]
fn test_polymorphism_fail() {
    cli::pipeline::run_test_pipeline(PathBuf::from("./examples/features/polymorphism_fail.pr"))
        .expect_err("this should fail at type checking!");
}

#[test]
fn test_smt_sat() {
    cli::pipeline::run_test_pipeline(PathBuf::from("./examples/features/smt_sat.pr")).unwrap();
}

#[test]
fn test_smt_unsat() {
    cli::pipeline::run_test_pipeline(PathBuf::from("./examples/features/smt_unsat.pr")).unwrap();
}

#[test]
fn test_tree_insert_good() {
    let res =
        cli::pipeline::run_test_pipeline(PathBuf::from("./examples/sym_exec/tree_insert_good.pr"))
            .unwrap();
    assert!(res.iter().all(|p| *p == 0));
}

#[test]
fn test_tree_insert_bad() {
    let res =
        cli::pipeline::run_test_pipeline(PathBuf::from("./examples/sym_exec/tree_insert_bad.pr"))
            .unwrap();
    assert!(res.iter().any(|p| *p > 0));
}

#[test]
fn test_avl_tree_good() {
    let res =
        cli::pipeline::run_test_pipeline(PathBuf::from("./examples/sym_exec/avl_tree_good.pr"))
            .unwrap();
    assert!(res.iter().all(|p| *p == 0));
}

// #[test]
// fn test_avl_tree_bad() {
//     let res =
//         cli::pipeline::run_cli_test(PathBuf::from("./examples/sym_exec/avl_tree_bad.pr")).unwrap();
//     assert!(res.iter().any(|p| *p > 0));
// }

#[test]
fn test_avl_tree_gen() {
    cli::pipeline::run_test_pipeline(PathBuf::from("./examples/test_gen/avl_tree_gen.pr")).unwrap();
}

#[test]
fn test_avl_tree_arith_gen() {
    cli::pipeline::run_test_pipeline(PathBuf::from("./examples/test_gen/avl_tree_arith_gen.pr"))
        .unwrap();
}

#[test]
fn test_lambda_free_gen() {
    cli::pipeline::run_test_pipeline(PathBuf::from("./examples/test_gen/lambda_free_gen.pr"))
        .unwrap();
}

#[test]
fn test_stlc_term_gen() {
    cli::pipeline::run_test_pipeline(PathBuf::from("./examples/test_gen/stlc_term_gen.pr"))
        .unwrap();
}

#[test]
fn test_mini_lang_gen() {
    cli::pipeline::run_test_pipeline(PathBuf::from("./examples/test_gen/mini_lang_gen.pr"))
        .unwrap();
}