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

add structural equality and inequality predicates.

Browse Source
This commit is contained in:
Mark Thom
2018-02-15 18:31:03 -07:00
parent f1ac75f21d
commit cf67b938c0
6 changed files with 82 additions and 13 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
src/tests.rs
View File

@@ -1374,6 +1374,15 @@ fn test_queries_on_builtins()
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.
assert_prolog_success!(&mut wam, "?- X =@= Y.");
assert_prolog_failure!(&mut wam, "?- f(X) =@= f(x).");
assert_prolog_failure!(&mut wam, "?- X \\=@= X.");
assert_prolog_success!(&mut wam, "?- f(x) =@= f(x).");
assert_prolog_failure!(&mut wam, "?- [X,Y,Z] =@= [V,W,V].");
assert_prolog_success!(&mut wam, "?- [X,Y,Z] =@= [V,W,Z].");
assert_prolog_success!(&mut wam, "?- [X,Y,X] =@= [V,W,V].");
assert_prolog_success!(&mut wam, "?- g(B) = B, g(A) = A, A =@= B.");
}
#[test]