rishi/scryer-prolog
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

print dot after errors, fix tests (#1408)

Browse Source
This commit is contained in:
Mark Thom
2022-04-10 10:15:00 -06:00
parent 8bf3d4ea71
commit 56681af1b6
3 changed files with 7 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
src/loader.pl
View File

@@ -28,8 +28,10 @@ write_error(Error) :-
), ),
( nonvar(Error), ( nonvar(Error),
functor(Error, error, 2) -> functor(Error, error, 2) ->
writeq(Error) writeq(Error),
; writeq(throw(Error)) write('.')
; writeq(throw(Error)),
write('.')
). ).
'$print_message_and_fail'(Error) :- '$print_message_and_fail'(Error) :-

4
tests/scryer/issues.rs
View File

@@ -29,7 +29,7 @@ fn do_not_duplicate_path_components() {
['tests-pl/issue852-throw_e.pl'].\n\ ['tests-pl/issue852-throw_e.pl'].\n\
halt.\n\ halt.\n\
", ",
" throw(e)\n false.\n throw(e)\n false.\n", " throw(e).\n false.\n throw(e).\n false.\n",
); );
} }
@@ -165,6 +165,6 @@ fn ignored_constraint() {
fn call_0() { fn call_0() {
load_module_test( load_module_test(
"tests-pl/issue831-call0.pl", "tests-pl/issue831-call0.pl",
" error(existence_error(procedure,call/0),call/0)\n", " error(existence_error(procedure,call/0),call/0).\n",
); );
} }

2
tests/scryer/src_tests.rs
View File

@@ -30,7 +30,7 @@ fn hello_world() {
fn syntax_error() { fn syntax_error() {
load_module_test( load_module_test(
"tests-pl/syntax_error.pl", "tests-pl/syntax_error.pl",
" error(syntax_error(incomplete_reduction),read_term/3:6)\n", " error(syntax_error(incomplete_reduction),read_term/3:6).\n",
); );
} }