Introduce functions to compare children and assert there are no children.

src/compare/diff.rs

@@ -15,6 +15,8 @@ use super::elisp_fact::ElispFact;
 use super::elisp_fact::GetElispFact;
 use super::sexp::unquote;
 use super::sexp::Token;
+use super::util::assert_no_children;
+use super::util::compare_children;
 use super::util::compare_standard_properties;
 use super::util::get_property;
 use super::util::get_property_boolean;
@@ -336,7 +338,7 @@ fn artificial_diff_scope<'b, 's>(
     .into())
 }
 
-fn compare_ast_node<'b, 's>(
+pub(crate) fn compare_ast_node<'b, 's>(
     source: &'s str,
     emacs: &'b Token<'s>,
     rust: AstNode<'b, 's>,
@@ -2906,6 +2908,15 @@ fn compare_radio_target<'b, 's>(
     let mut child_status = Vec::new();
     let mut message = None;
 
+    compare_children(
+        source,
+        emacs,
+        &rust.children,
+        &mut child_status,
+        &mut this_status,
+        &mut message,
+    )?;
+
     if let Some((new_status, new_message)) = compare_properties!(
         emacs,
         rust,
@@ -3220,6 +3231,8 @@ fn compare_export_snippet<'b, 's>(
     let mut this_status = DiffStatus::Good;
     let mut message = None;
 
+    assert_no_children(emacs, &mut this_status, &mut message)?;
+
     if let Some((new_status, new_message)) = compare_properties!(
         emacs,
         rust,