correct conformity errors

This commit is contained in:
Mark Thom
2018-09-16 14:11:21 -06:00
parent 908b0a5712
commit f226cb3dbd
11 changed files with 135 additions and 61 deletions

View File

@@ -1654,6 +1654,21 @@ fn test_queries_on_builtins()
[["X = '\\f'"]]);
assert_prolog_success!(&mut wam, "?- X = '\\b\\r\\f\\t\\n'.",
[["X = '\\b\\r\\f\\t\\n'"]]);
assert_prolog_success!(&mut wam, "?- X = ((*)=(*)).",
[["X = (*)=(*)"]]);
assert_prolog_success!(&mut wam, "?- X = [.,.(.,.,.)].",
[["X = ['.', '.'('.', '.', '.')]"]]);
assert_prolog_success!(&mut wam, "?- X = a+(b*c).",
[["X = a+(b*c)"]]);
assert_prolog_success!(&mut wam, "?- X = [:-,-].",
[["X = [:-, -]"]]);
assert_prolog_success!(&mut wam, "?- X = a*(b+c).",
[["X = a*(b+c)"]]);
assert_prolog_success!(&mut wam, "?- X = (-)-(-).",
[["X = (-)-(-)"]]);
assert_prolog_success!(&mut wam, "?- X = ((:-):-(:-)).",
[["X = (:-):-(:-)"]]);
}
#[test]