add test for load_html
This commit is contained in:
5
tests-pl/issue2588.pl
Normal file
5
tests-pl/issue2588.pl
Normal file
@@ -0,0 +1,5 @@
|
|||||||
|
:- use_module(library(sgml)).
|
||||||
|
|
||||||
|
test :- load_html("<html><head><title>Hello!</title></head></html>", Es, []), write(Es).
|
||||||
|
|
||||||
|
:- initialization(test).
|
||||||
@@ -170,3 +170,8 @@ fn call_0() {
|
|||||||
" error(existence_error(procedure,call/0),call/0).\n",
|
" 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,[],[])])]");
|
||||||
|
}
|
||||||
|
|||||||
Reference in New Issue
Block a user