Merge remote-tracking branch 'upstream/master' into issue-2588

tests-pl/invalid_decl1.pl

@@ -0,0 +1 @@
+:- op(10, moin, example).

tests-pl/invalid_decl10.pl

@@ -0,0 +1 @@
+:- op(10, xf, [example, test]).

tests-pl/invalid_decl11.pl

@@ -0,0 +1 @@
+:- op(10, xf, [example, Var]).

tests-pl/invalid_decl12.pl

@@ -0,0 +1 @@
+:- op(500, xfy, {}).

tests-pl/invalid_decl13.pl

@@ -0,0 +1 @@
+:- op(500, xfy, [{}]).

tests-pl/invalid_decl14.pl

@@ -0,0 +1 @@
+:- op(1000, xfy, '|').

tests-pl/invalid_decl15.pl

@@ -0,0 +1 @@
+:- op(1150, fx, '|').

tests-pl/invalid_decl16.pl

@@ -0,0 +1 @@
+:- op(500, yfx, ',').

tests-pl/invalid_decl2.pl

@@ -0,0 +1 @@
+:- op(4000, xfx, example).

tests-pl/invalid_decl3.pl

@@ -0,0 +1 @@
+:- op(5, xfx, example(a,b)).

tests-pl/invalid_decl4.pl

@@ -0,0 +1 @@
+:- op(5, xfx, example, too_many_arguments).

tests-pl/invalid_decl5.pl

@@ -0,0 +1 @@
+:- (test -> set_prolog_flag(double_quotes, codes); true).

tests-pl/invalid_decl6.pl

@@ -0,0 +1 @@
+:- 9001.

tests-pl/invalid_decl7.pl

@@ -0,0 +1 @@
+:- op(10, 42, example).

tests-pl/invalid_decl8.pl

@@ -0,0 +1 @@
+:- op(10, Var, example).

tests-pl/invalid_decl9.pl

@@ -0,0 +1 @@
+:- op(Var, xf, example).

tests-pl/invalid_decl_issue2467.pl

@@ -0,0 +1 @@
+:- D.

tests-pl/iso-conformity-tests.pl

@@ -230,13 +230,16 @@ test_61 :- integer('-'/*.*/1).
 
 test_62 :- atom(-/*.*/-).
 
-test_63_180_64 :- setup_call_cleanup((  current_op(P,fy,-),
-                                        op(0,fy,-)
-                                     ),
-                                     (  integer(-1),
-                                        integer(- 1)
-                                     ),
-                                     op(P,fy,-)).
+test_63_180_64_328 :- setup_call_cleanup((  current_op(P,fy,-),
+                                            op(0,fy,-)
+                                         ),
+                                         (  integer(-1),
+                                            integer(- 1),
+                                            read_from_chars("writeq_term_to_chars([-]).", Writer),
+                                            call(Writer, Cs),
+                                            Cs == "[-]"
+                                         ),
+                                         op(P,fy,-)).
 
 test_135 :- writeq_term_to_chars(-(1), Chars),
             Chars == "- (1)".
@@ -783,10 +786,10 @@ test_217_181_290_317 :-
                         (  op(1105,xfy,'|'),
                            read_from_chars("(a-->b,c|d).", T0),
                            writeq_term_to_chars(T0, C0),
-                           C0 == "a-->b,c | d",
+                           C0 == "a-->b,c|d",
                            read_from_chars("[(a|b)].", T1),
                            writeq_term_to_chars(T1, C1),
-                           C1 == "[(a | b)]",
+                           C1 == "[(a|b)]",
                            read_from_chars("[a,(b,c)|[]].", T2),
                            writeq_term_to_chars(T2, C2),
                            C2 == "[a,(b,c)]"
@@ -1005,6 +1008,18 @@ test_311 :- test_syntax_error("Finis ().", syntax_error(incomplete_reduction)).
 test_318 :- writeq_term_to_chars(+((1*2)^3), C),
             C == "+ (1*2)^3".
 
+test_320 :- writeq_term_to_chars([a|\+2], C),
+            C == "[a|\\+2]".
+
+test_321 :- test_syntax_error("writeq((a)(b)).", syntax_error(incomplete_reduction)).
+
+test_324 :- writeq_term_to_chars('%', C),
+            C == "'%'".
+
+test_325 :- test_syntax_error("writeq({[y}]).", syntax_error(incomplete_reduction)).
+
+test_326 :- test_syntax_error("(>)(1,2).", syntax_error(incomplete_reduction)).
+
 run_tests([Test|Tests]) -->
     (  { call(Test) } ->
        []

tests-pl/issue2361-call-qualified.pl

@@ -0,0 +1,3 @@
+:- use_module(issue2361_m).
+
+:- initialization(gs([(length("a",_),length("ab",_))])).

tests-pl/issue2361_m.pl

@@ -0,0 +1,8 @@
+:- module(m, [gs/1]).
+
+:- use_module(library(lists)).
+
+gs([]).
+gs([G|Gs]) :-
+        G,
+        gs(Gs).

tests-pl/issue812-singleton-warning.pl

@@ -1,4 +0,0 @@
-% hello
-% line!
-
-a :- b(X).

tests-pl/issue820-goals.pl

@@ -1,3 +0,0 @@
-test :- write(world), nl.
-
-:- initialization(write(hello)).

tests-pl/issue839-op3.pl

@@ -1 +0,0 @@
-:- op(900, fy, [$,@]).

tests-pl/issue841-occurs-check.pl

@@ -1,3 +0,0 @@
-:- set_prolog_flag(occurs_check, true).
-
-f(X, g(X)).

tests-pl/issue852-throw_e.pl

@@ -1 +0,0 @@
-:- initialization(throw(e)).