Record the property comparisons.

This commit is contained in:
Tom Alexander 2023-12-27 16:40:55 -05:00
parent badeaf8246
commit 423f65046e
Signed by: talexander
GPG Key ID: D3A179C9A53C0EDE

View File

@ -12,7 +12,16 @@ macro_rules! wasm_compare {
.ok_or("Should have an attributes child.")?
.as_map()?;
let mut emacs_keys: std::collections::BTreeSet<&str> =
emacs_attributes_map.keys().map(|s| *s).collect();
emacs_attributes_map.keys().map(|s| *s).collect();
// Mark :standard-properties as seen because it will be handled separately.
if emacs_keys.contains(":standard-properties") {
emacs_keys.remove(":standard-properties");
} else {
result.status.push(WasmDiffStatus::Bad(
"Emacs node lacked :standard-properties field.".into(),
));
}
{
// Compare name.
@ -90,8 +99,7 @@ macro_rules! wasm_compare {
name
},
};
let result = $compare_fn($source, $emacs, $wasm, emacs_name, $wasm_value_getter)?;
// TODO: record this result.
result.extend($compare_fn($source, $emacs, $wasm, emacs_name, $wasm_value_getter)?)?;
)*
}