correct printing of lists when double_quotes is set to atom

2018-08-30 00:04:19 -06:00
parent 92927bbcef
commit 872b153b08
4 changed files with 14 additions and 2 deletions
--- a/src/tests.rs
+++ b/src/tests.rs
@@ -1786,4 +1786,9 @@ fn test_queries_on_string_lists()
    assert_prolog_success!(&mut wam, "?- matcher(X, Y).",
                          [["X = [a, b, c | _1]", "Y = _1"]]);
    assert_prolog_failure!(&mut wam, "?- matcher(\"abcdef\", Y).");
+
+    submit(&mut wam, "?- set_prolog_flag(double_quotes, chars).");
+    
+    assert_prolog_success!(&mut wam, "?- X = \"abc\", X = ['a' | Y], set_prolog_flag(double_quotes, atom).",
+                           [["X = \"abc\"", "Y = \"bc\""]]);
 }