]> Repositorios git - scryer-prolog.git/commitdiff
projects / scryer-prolog.git / commitdiff
? search:
summary | shortlog | log | commit | commitdiff | tree
raw | patch | inline | side by side (parent: 126d7bb)
add test for load_html
authorBennet Bleßmann <[email protected]>
Fri, 4 Oct 2024 17:09:35 +0000 (19:09 +0200)
committerBennet Bleßmann <[email protected]>
Fri, 4 Oct 2024 17:09:35 +0000 (19:09 +0200)
tests-pl/issue2588.pl [new file with mode: 0644] patch | blob
tests/scryer/issues.rs patch | blob | history

diff --git a/tests-pl/issue2588.pl b/tests-pl/issue2588.pl
new file mode 100644 (file)
index 0000000..4e87a39
--- /dev/null
+++ b/tests-pl/issue2588.pl
@@ -0,0 +1,5 @@
+:- use_module(library(sgml)).
+
+test :- load_html("<html><head><title>Hello!</title></head></html>", Es, []), write(Es).
+
+:- initialization(test).
\ No newline at end of file
diff --git a/tests/scryer/issues.rs b/tests/scryer/issues.rs
index 821bbbf301a83ef7cb03e0e1aa2a91437aaa8f57..24600d5de29b3ab382487185948ab396122c894d 100644 (file)
--- 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,[],[])])]");
+}
FORK: A modern Prolog implementation written mostly in Rust