correct conformity errors
This commit is contained in:
15
src/tests.rs
15
src/tests.rs
@@ -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]
|
||||
|
||||
Reference in New Issue
Block a user