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
2017-05-29 12:21:05 -06:00
parent cf14f736f7
commit b349ac8bf9
1 changed files with 13 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

13
src/main.rs
View File

@@ -625,6 +625,19 @@ mod tests {
submit(&mut wam, "p(f(g(X)), compound, [lists,are,good])."); submit(&mut wam, "p(f(g(X)), compound, [lists,are,good]).");
assert_eq!(submit(&mut wam, "?- call(p(f(g(X))), Y, Z)."), true); assert_eq!(submit(&mut wam, "?- call(p(f(g(X))), Y, Z)."), true);
submit(&mut wam, "david_lynch(coffee).
david_lynch(pie).
david_lynch(kyle(Film)) :- kyle(Film).");
submit(&mut wam, "kyle(dune).
kyle(blue_velvet).
kyle(showgirls).
kyle(flintstones).");
assert_eq!(submit(&mut wam, "?- call(david_lynch, X)."), true);
assert_eq!(submit(&mut wam, "?- call(david_lynch, kyle(Film))."), true);
assert_eq!(submit(&mut wam, "?- call(david_lynch, kyle(Film), _)."), false);
} }
} }