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

add term comparison operators.

Browse Source
This commit is contained in:
Mark Thom
2018-02-13 23:34:44 -07:00
parent a1fb4f529b
commit ae323a0cdf
9 changed files with 341 additions and 21 deletions
Download Patch File Download Diff File Expand all files Collapse all files

23
src/tests.rs
View File

@@ -1351,6 +1351,29 @@ fn test_queries_on_builtins()
assert_prolog_success!(&mut wam, "?- A \\== B.");
assert_prolog_success!(&mut wam, "?- A \\== 12.1.");
assert_prolog_failure!(&mut wam, "?- X = x, f(X, x) \\== f(x, X).");
assert_prolog_success!(&mut wam, "?- X @=< Y.");
assert_prolog_failure!(&mut wam, "?- X @>= Y.");
assert_prolog_failure!(&mut wam, "?- X @> Y.");
assert_prolog_success!(&mut wam, "?- X @>= X.");
assert_prolog_failure!(&mut wam, "?- atom @=< \"string\".");
assert_prolog_success!(&mut wam, "?- atom @=< atom.");
assert_prolog_failure!(&mut wam, "?- atom @=< aaa.");
assert_prolog_success!(&mut wam, "?- atom @>= \"string\".");
assert_prolog_success!(&mut wam, "?- X is 3 + 3, X @>= Y.");
assert_prolog_success!(&mut wam, "?- f(X) @>= f(X).");
assert_prolog_success!(&mut wam, "?- f(X) @>= a.");
assert_prolog_failure!(&mut wam, "?- f(X) @=< a.");
assert_prolog_success!(&mut wam, "?- [1,2] @=< [1,2].");
assert_prolog_failure!(&mut wam, "?- [1,2,3] @=< [1,2].");
assert_prolog_success!(&mut wam, "?- [] @=< [1,2].");
assert_prolog_failure!(&mut wam, "?- [] @< 1.");
assert_prolog_failure!(&mut wam, "?- [] @< \"string\".");
assert_prolog_failure!(&mut wam, "?- [] @< atom.");
assert_prolog_success!(&mut wam, "?- atom @< [].");
assert_prolog_failure!(&mut wam, "?- 1.1 @< 1.");
assert_prolog_success!(&mut wam, "?- 1.0 @=< 1.");
assert_prolog_success!(&mut wam, "?- 1 @=< 1.0."); //TODO: currently this succeeds. make it fail.
}
#[test]