correct tests 259 and 304 of tests-pl/iso-conformity-tests.pl
This commit is contained in:
@@ -551,8 +551,8 @@ test_213 :- read_from_chars("X is 0'\\\n+'1.", T),
|
|||||||
T = (_ is 0+1),
|
T = (_ is 0+1),
|
||||||
call(T).
|
call(T).
|
||||||
|
|
||||||
test_259 :- read_from_chars("X is 0'\\\n+'/*'. % */1.", T),
|
test_259 :- read_from_chars("X = 0'\\\n+'/*'. %*/1.", T),
|
||||||
T = (_ is 0+1),
|
T = (_ = 0+1),
|
||||||
call(T).
|
call(T).
|
||||||
|
|
||||||
test_303 :- test_syntax_error("X = 0'\\\na.", syntax_error(incomplete_reduction)).
|
test_303 :- test_syntax_error("X = 0'\\\na.", syntax_error(incomplete_reduction)).
|
||||||
@@ -973,7 +973,7 @@ test_302 :- [] = '[]'.
|
|||||||
test_304 :- setup_call_cleanup(op(300,fy,~),
|
test_304 :- setup_call_cleanup(op(300,fy,~),
|
||||||
( read_from_chars("~ (a = b).", T),
|
( read_from_chars("~ (a = b).", T),
|
||||||
writeq_term_to_chars(T, C),
|
writeq_term_to_chars(T, C),
|
||||||
C == "~(a=b)"
|
C == "~ (a=b)"
|
||||||
),
|
),
|
||||||
op(0,fy,~)).
|
op(0,fy,~)).
|
||||||
|
|
||||||
|
|||||||
Reference in New Issue
Block a user