diff --git a/src/wasm_test/macros.rs b/src/wasm_test/macros.rs index cf2bf12..e1b43a8 100644 --- a/src/wasm_test/macros.rs +++ b/src/wasm_test/macros.rs @@ -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)?)?; )* }