add more tests

for some of the recently closed issues
2021-03-11 01:19:17 +01:00
parent d437609365
commit 8f41603101
8 changed files with 177 additions and 0 deletions
--- a/tests-pl/issue812-singleton-warning.pl
+++ b/tests-pl/issue812-singleton-warning.pl
@@ -0,0 +1,4 @@
+% hello
+% line!
+
+a :- b(X).
--- a/tests-pl/issue820-goals.pl
+++ b/tests-pl/issue820-goals.pl
@@ -0,0 +1,3 @@
+test :- write(world), nl.
+
+:- initialization(write(hello)).
--- a/tests-pl/issue831-call0.pl
+++ b/tests-pl/issue831-call0.pl
@@ -0,0 +1 @@
+:- initialization(call).
--- a/tests-pl/issue839-op3.pl
+++ b/tests-pl/issue839-op3.pl
@@ -0,0 +1 @@
+:- op(900, fy, [$,@]).
--- a/tests-pl/issue841-occure-check.pl
+++ b/tests-pl/issue841-occure-check.pl
@@ -0,0 +1,3 @@
+:- set_prolog_flag(occurs_check, true).
+
+f(X, g(X)).
--- a/tests-pl/issue852-throw_e.pl
+++ b/tests-pl/issue852-throw_e.pl
@@ -0,0 +1 @@
+:- initialization(throw(e)).