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

print ops properly.

Browse Source
This commit is contained in:
Mark Thom
2018-01-14 20:46:03 -07:00
parent d1a1463ff2
commit b2b4ce6877
7 changed files with 117 additions and 12 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
src/main.rs
View File

@@ -145,15 +145,15 @@ mod tests {
submit(&mut wam, "p(X, a). p(X, Y) :- q(Y), p(X, X).");
assert_eq!(submit(&mut wam, "?- p(X, Y)."), true);
assert_eq!(submit(&mut wam, "?- p(X, b)."), false);
assert_eq!(submit(&mut wam, "?- p(X, Y)."), true); // infinite.
assert_eq!(submit(&mut wam, "?- p(X, b)."), false); // infinite.
submit(&mut wam, "p(a, z). p(X, Y) :- q(Y), p(X, Y).");
assert_eq!(submit(&mut wam, "?- p(X, Y)."), true);
assert_eq!(submit(&mut wam, "?- p(X, z)."), true);
assert_eq!(submit(&mut wam, "?- p(X, Y)."), true); // infinite.
assert_eq!(submit(&mut wam, "?- p(X, z)."), true); // infinite.
assert_eq!(submit(&mut wam, "?- p(a, z)."), true);
assert_eq!(submit(&mut wam, "?- p(a, X)."), true);
assert_eq!(submit(&mut wam, "?- p(a, X)."), true); // infinite.
assert_eq!(submit(&mut wam, "?- p(b, a)."), false);
submit(&mut wam, "p(X, Y, Z) :- q(X), r(Y), s(Z).