From: Bennet Bleßmann Date: Fri, 4 Oct 2024 17:09:35 +0000 (+0200) Subject: add test for load_html X-Git-Tag: v0.10.0~109^2~3 X-Git-Url: https://git.sagredo.dev/?a=commitdiff_plain;h=442636c131ccbd4f0447e1bb02d0222f8edcc840;p=scryer-prolog.git add test for load_html --- diff --git a/tests-pl/issue2588.pl b/tests-pl/issue2588.pl new file mode 100644 index 00000000..4e87a39a --- /dev/null +++ b/tests-pl/issue2588.pl @@ -0,0 +1,5 @@ +:- use_module(library(sgml)). + +test :- load_html("Hello!", Es, []), write(Es). + +:- initialization(test). \ No newline at end of file diff --git a/tests/scryer/issues.rs b/tests/scryer/issues.rs index 821bbbf3..24600d5d 100644 --- a/tests/scryer/issues.rs +++ b/tests/scryer/issues.rs @@ -170,3 +170,8 @@ fn call_0() { " error(existence_error(procedure,call/0),call/0).\n", ); } + +#[test] +fn issue2588_load_html() { + load_module_test("tests-pl/issue2588.pl", "[element(html,[],[element(head,[],[element(title,[],[[H,e,l,l,o,!]])]),element(body,[],[])])]"); +}