rishi/scryer-prolog
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

add more tests.

Browse Source
This commit is contained in:
Mark Thom
2018-02-23 16:43:12 -07:00
parent 8d182b3f02
commit ec276a7766
1 changed files with 12 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
src/tests.rs
View File

@@ -1551,4 +1551,16 @@ fn test_queries_on_call_with_inference_limit()
["R = true", "X = 4", "S = true"],
["R = true", "X = 5", "S = true"],
["R = inference_limit_exceeded", "S = !", "X = _1"]]);
assert_prolog_success!(&mut wam, "?- call_with_inference_limit(g(X), 2, R), call_with_inference_limit(g(X), 1, S).",
[["R = true", "X = 1", "S = !"],
["R = true", "X = 2", "S = !"],
["R = true", "X = 3", "S = !"],
["R = true", "X = 4", "S = !"],
["R = true", "X = 5", "S = !"],
["R = !", "X = 6", "S = !"]]);
assert_prolog_success!(&mut wam, "?- call_with_inference_limit(g(X), 2, R), call_with_inference_limit(g(X), 1, R).",
[["R = !", "X = 6"]]);
assert_prolog_success!(&mut wam, "?- call_with_inference_limit(g(X), 1, R), call_with_inference_limit(g(X), 1, R).",
[["R = inference_limit_exceeded", "X = _1"]]);
}