114 lines
2.1 KiB
Rust
114 lines
2.1 KiB
Rust
use crate::helper::{load_module_test, run_top_level_test_with_args};
|
|
use serial_test::serial;
|
|
|
|
#[serial]
|
|
#[test]
|
|
fn builtins() {
|
|
load_module_test("src/tests/builtins.pl", "");
|
|
}
|
|
|
|
#[serial]
|
|
#[test]
|
|
fn call_with_inference_limit() {
|
|
load_module_test("src/tests/call_with_inference_limit.pl", "");
|
|
}
|
|
|
|
#[serial]
|
|
#[test]
|
|
fn facts() {
|
|
load_module_test("src/tests/facts.pl", "");
|
|
}
|
|
|
|
#[serial]
|
|
#[test]
|
|
fn hello_world() {
|
|
load_module_test("src/tests/hello_world.pl", "Hello World!\n");
|
|
}
|
|
|
|
#[serial]
|
|
#[test]
|
|
fn syntax_error() {
|
|
load_module_test(
|
|
"tests-pl/syntax_error.pl",
|
|
" error(syntax_error(incomplete_reduction),read_term/3:6).\n",
|
|
);
|
|
}
|
|
|
|
#[serial]
|
|
#[test]
|
|
fn predicates() {
|
|
load_module_test("src/tests/predicates.pl", "");
|
|
}
|
|
|
|
#[serial]
|
|
#[test]
|
|
fn rules() {
|
|
load_module_test("src/tests/rules.pl", "");
|
|
}
|
|
|
|
#[serial]
|
|
#[test]
|
|
fn setup_call_cleanup_load() {
|
|
load_module_test(
|
|
"src/tests/setup_call_cleanup.pl",
|
|
"1+21+31+2>A+B1+G1+2>41+2>B1+2>31+2>31+2>4ba",
|
|
);
|
|
}
|
|
|
|
#[test]
|
|
fn setup_call_cleanup_process() {
|
|
run_top_level_test_with_args(
|
|
&["src/tests/setup_call_cleanup.pl", "-f", "-g", "halt"],
|
|
"",
|
|
"1+21+31+2>A+B1+G1+2>41+2>B1+2>31+2>31+2>4ba",
|
|
);
|
|
}
|
|
|
|
#[serial]
|
|
#[test]
|
|
fn clpz_load() {
|
|
load_module_test("src/tests/clpz/test_clpz.pl", "");
|
|
}
|
|
|
|
#[serial]
|
|
#[test]
|
|
fn iso_conformity_tests() {
|
|
load_module_test("tests-pl/iso-conformity-tests.pl", "All tests passed");
|
|
}
|
|
|
|
#[test]
|
|
fn dif_tests() {
|
|
run_top_level_test_with_args(
|
|
&["src/tests/dif.pl", "-f", "-g", "main_quiet"],
|
|
"",
|
|
"All tests passed",
|
|
);
|
|
}
|
|
|
|
#[test]
|
|
fn ground_tests() {
|
|
run_top_level_test_with_args(
|
|
&["src/tests/ground.pl", "-f", "-g", "main_quiet"],
|
|
"",
|
|
"All tests passed",
|
|
);
|
|
}
|
|
|
|
#[test]
|
|
fn term_variables_tests() {
|
|
run_top_level_test_with_args(
|
|
&["src/tests/term_variables.pl", "-f", "-g", "main_quiet"],
|
|
"",
|
|
"All tests passed",
|
|
);
|
|
}
|
|
|
|
#[test]
|
|
fn acyclic_term_tests() {
|
|
run_top_level_test_with_args(
|
|
&["src/tests/acyclic_term.pl", "-f", "-g", "main_quiet"],
|
|
"",
|
|
"All tests passed",
|
|
);
|
|
}
|