From 442636c131ccbd4f0447e1bb02d0222f8edcc840 Mon Sep 17 00:00:00 2001 From: =?utf8?q?Bennet=20Ble=C3=9Fmann?= Date: Fri, 4 Oct 2024 19:09:35 +0200 Subject: [PATCH] add test for load_html --- tests-pl/issue2588.pl | 5 +++++ tests/scryer/issues.rs | 5 +++++ 2 files changed, 10 insertions(+) create mode 100644 tests-pl/issue2588.pl 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,[],[])])]"); +} -- 2.54.0