talexander/organic
1
0
Fork 0
Code Issues Pull Requests Releases Activity

Remove some underscores from wasm schema to match elisp.

Browse Source
This commit is contained in:
Tom Alexander
2023-12-29 15:41:41 -05:00
parent adcd0de7e4
commit 5d31db39a4
3 changed files with 9 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
src/wasm_test/compare.rs
View File

@@ -87,7 +87,7 @@ fn compare_json_value<'b, 's>(
emacs: &'b Token<'s>,
) -> Result<WasmDiffResult<'s>, Box<dyn std::error::Error>> {
match (value, emacs) {
(serde_json::Value::Object(wasm), Token::List(el)) if wasm.contains_key("ast_node") => {
(serde_json::Value::Object(wasm), Token::List(el)) if wasm.contains_key("ast-node") => {
// We hit a regular ast node.
compare_ast_node(source, el, wasm)
}
@@ -139,7 +139,7 @@ fn compare_ast_node<'b, 's, 'p>(
.ok_or("Should have a name as the first child.")?
.as_atom()?;
let wasm_name = wasm
.get("ast_node")
.get("ast-node")
.ok_or("Should have a ast node type.")?
.as_str()
.ok_or("Ast node type should be a string.")?;
@@ -248,9 +248,9 @@ fn compare_ast_node<'b, 's, 'p>(
for (emacs_value, wasm_name) in [
(emacs_standard_properties.begin, "begin"),
(emacs_standard_properties.end, "end"),
(emacs_standard_properties.contents_begin, "contents_begin"),
(emacs_standard_properties.contents_end, "contents_end"),
(emacs_standard_properties.post_blank, "post_blank"),
(emacs_standard_properties.contents_begin, "contents-begin"),
(emacs_standard_properties.contents_end, "contents-end"),
(emacs_standard_properties.post_blank, "post-blank"),
] {
match (emacs_value, wasm_standard_properties.get(wasm_name)) {
(None, None) => {}