File-oriented testing
inspired by #2191 but for the `run_top_level_test_with_args`s and `run_top_level_test_no_args instead of the `load_module_test`s
This commit is contained in:
@@ -0,0 +1 @@
|
||||
helloworld
|
||||
@@ -0,0 +1,3 @@
|
||||
# issue 820
|
||||
args = ["-f", "--no-add-history", "-g", "test,halt", "tests-pl/issue820-goals.pl"]
|
||||
binary = true
|
||||
@@ -0,0 +1,5 @@
|
||||
X = 1.
|
||||
use_module(library(dif)).
|
||||
X = 1.
|
||||
dif(X,1).
|
||||
halt.
|
||||
@@ -0,0 +1,4 @@
|
||||
X = 1.
|
||||
true.
|
||||
X = 1.
|
||||
dif:dif(X,1).
|
||||
@@ -0,0 +1,3 @@
|
||||
# issue 857
|
||||
args = ["-f", "--no-add-history"]
|
||||
binary = true
|
||||
@@ -0,0 +1,3 @@
|
||||
['tests-pl/issue852-throw_e.pl'].
|
||||
['tests-pl/issue852-throw_e.pl'].
|
||||
halt.
|
||||
@@ -0,0 +1,2 @@
|
||||
throw(e).
|
||||
throw(e).
|
||||
@@ -0,0 +1,3 @@
|
||||
# issue 852
|
||||
args = ["-f", "--no-add-history"]
|
||||
binary = true
|
||||
@@ -0,0 +1,11 @@
|
||||
use_module(library(dif)).
|
||||
use_module(library(atts)).
|
||||
-X\=X.
|
||||
-X=X.
|
||||
dif(-X,X).
|
||||
dif(-X,X), -X=X.
|
||||
call_residue_vars(dif(-X,X), Vars).
|
||||
set_prolog_flag(occurs_check, true).
|
||||
-X\=X.
|
||||
dif(-X,X).
|
||||
halt.
|
||||
@@ -0,0 +1,10 @@
|
||||
true.
|
||||
true.
|
||||
false.
|
||||
X = -X.
|
||||
dif:dif(-X,X).
|
||||
false.
|
||||
Vars = [X], dif:dif(-X,X).
|
||||
true.
|
||||
true.
|
||||
true.
|
||||
@@ -0,0 +1,3 @@
|
||||
# issue 844
|
||||
args = ["-f", "--no-add-history"]
|
||||
binary = true
|
||||
@@ -0,0 +1,2 @@
|
||||
use_module(library(freeze)), freeze(X,false), X \=a.
|
||||
halt.
|
||||
@@ -0,0 +1 @@
|
||||
freeze:freeze(X,false).
|
||||
@@ -0,0 +1,3 @@
|
||||
# issue 807
|
||||
args = ["-f", "--no-add-history"]
|
||||
binary = true
|
||||
@@ -0,0 +1 @@
|
||||
helloworld
|
||||
@@ -0,0 +1,3 @@
|
||||
# issue 820
|
||||
args = ["-f", "--no-add-history", "-g", "test", "-g", "halt", "tests-pl/issue820-goals.pl"]
|
||||
binary = true
|
||||
@@ -0,0 +1,2 @@
|
||||
write(a), write(b), false.
|
||||
halt.
|
||||
@@ -0,0 +1 @@
|
||||
ab false.
|
||||
@@ -0,0 +1,3 @@
|
||||
# issue 815
|
||||
args = ["-f", "--no-add-history"]
|
||||
binary = true
|
||||
@@ -0,0 +1,2 @@
|
||||
f(X, X).
|
||||
halt.
|
||||
@@ -0,0 +1 @@
|
||||
false.
|
||||
@@ -0,0 +1,3 @@
|
||||
# issue 841
|
||||
args = ["-f", "--no-add-history", "tests-pl/issue841-occurs-check.pl"]
|
||||
binary = true
|
||||
@@ -0,0 +1,6 @@
|
||||
set_prolog_flag(occurs_check, true).
|
||||
X = -X.
|
||||
asserta(f(X,g(X))).
|
||||
f(X,X).
|
||||
X-X = X-g(X).
|
||||
halt.
|
||||
@@ -0,0 +1,5 @@
|
||||
true.
|
||||
false.
|
||||
true.
|
||||
false.
|
||||
false.
|
||||
@@ -0,0 +1,3 @@
|
||||
# issue 841
|
||||
args = ["-f", "--no-add-history"]
|
||||
binary = true
|
||||
@@ -0,0 +1,3 @@
|
||||
# issue 839
|
||||
args = ["-f", "--no-add-history", "tests-pl/issue839-op3.pl", "-g", "halt"]
|
||||
binary = true
|
||||
@@ -0,0 +1,2 @@
|
||||
['tests-pl/issue812-singleton-warning.pl'].
|
||||
halt.
|
||||
@@ -0,0 +1,2 @@
|
||||
Warning: singleton variables X at line 4 of issue812-singleton-warning.pl
|
||||
true.
|
||||
@@ -0,0 +1,3 @@
|
||||
# issue 812
|
||||
args = ["-f", "--no-add-history"]
|
||||
binary = true
|
||||
Reference in New Issue
Block a user