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,[],[])])]"); +}