rishi/scryer-prolog
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Merge pull request #2596 from Skgland/issue-2588

Browse Source 
fix issue #2588
This commit is contained in:
Mark Thom
2024-10-05 22:12:45 -06:00
committed by GitHub
parent 2f47343cb5 6dd0ec0b98
commit 9785a04b3a
3 changed files with 12 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
src/machine/system_calls.rs
View File

@@ -7758,7 +7758,7 @@ impl Machine {
.value_to_str_like(self.machine_st.registers[1]) .value_to_str_like(self.machine_st.registers[1])
{ {
let document = scraper::Html::parse_document(&string.as_str()); let document = scraper::Html::parse_document(&string.as_str());
let result = self.html_node_to_term(document.tree.root()); let result = self.html_node_to_term(document.tree.root().first_child().unwrap());
unify!(self.machine_st, self.machine_st.registers[2], result); unify!(self.machine_st, self.machine_st.registers[2], result);
} else { } else {

5
tests-pl/issue2588.pl Normal file
View File

@@ -0,0 +1,5 @@
:- use_module(library(sgml)).
test :- load_html("<html><head><title>Hello!</title></head></html>", Es, []), write(Es).
:- initialization(test).

6
tests/scryer/issues.rs
View File

@@ -12,6 +12,12 @@ fn call_0() {
); );
} }
#[test]
#[cfg_attr(miri, ignore = "unsupported operation when isolation is enabled")]
fn issue2588_load_html() {
load_module_test("tests-pl/issue2588.pl", "[element(html,[],[element(head,[],[element(title,[],[[H,e,l,l,o,!]])]),element(body,[],[])])]");
}
// issue #2361 // issue #2361
#[serial] #[serial]
#[test] #[test]