Starting the wasm_compare macro.

src/wasm_test/macros.rs

@@ -0,0 +1,69 @@
+macro_rules! wasm_compare {
+    ($source:expr, $emacs:expr, $wasm:expr, $(($emacs_field:expr, $wasm_value_getter:expr, $compare_fn: expr)),*) => {{
+        let mut result = WasmDiffResult::default();
+        let emacs_list = $emacs.as_list()?;
+        let mut emacs_list_iter = emacs_list.iter();
+        let emacs_name = emacs_list_iter
+            .next()
+            .ok_or("Should have an attributes child.")?
+            .as_atom()?;
+        let emacs_attributes_map = emacs_list_iter
+            .next()
+            .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();
+
+        {
+            // Compare name
+            let wasm_name = $wasm.get_elisp_name();
+
+            if emacs_name != wasm_name {
+                result.status.push(WasmDiffStatus::Bad(
+                    format!(
+                        "AST node name mismatch. Emacs=({emacs}) Wasm=({wasm}).",
+                        emacs = emacs_name,
+                        wasm = wasm_name,
+                    )
+                    .into(),
+                ));
+            }
+        }
+
+        {
+            // Compare children
+            result.extend(wasm_compare_list(
+                $source,
+                emacs_list_iter,
+                $wasm.children.iter(),
+            )?)?;
+        }
+
+        {
+            // Compare fields
+            $(
+            match $emacs_field {
+                EmacsField::Required(name) if emacs_keys.contains(name) => {
+                    emacs_keys.remove(name);
+                }
+                EmacsField::Optional(name) if emacs_keys.contains(name) => {
+                    emacs_keys.remove(name);
+                }
+                EmacsField::Required(name) => {
+                result.status.push(WasmDiffStatus::Bad(
+                    format!(
+                        "Emacs node lacked required field ({name}).",
+                        name = name,
+                    )
+                    .into(),
+                ));
+                }
+                EmacsField::Optional(_name) => {}
+            }
+            )*
+        }
+
+        result
+    }};
+}
+pub(crate) use wasm_compare;