Compare section.

src/wasm/section.rs

@@ -4,6 +4,9 @@ use super::ast_node::WasmAstNode;
 use super::macros::to_wasm;
 use super::standard_properties::WasmStandardProperties;
 use super::to_wasm::ToWasm;
+use super::AdditionalProperties;
+#[cfg(feature = "wasm_test")]
+use crate::compare::ElispFact;
 use crate::types::Section;
 use crate::wasm::to_wasm::ToWasmStandardProperties;
 
@@ -11,8 +14,9 @@ use crate::wasm::to_wasm::ToWasmStandardProperties;
 #[serde(tag = "ast_node")]
 #[serde(rename = "section")]
 pub struct WasmSection<'s, 'p> {
-    standard_properties: WasmStandardProperties,
-    children: Vec<WasmAstNode<'s, 'p>>,
+    pub(crate) standard_properties: WasmStandardProperties,
+    pub(crate) additional_properties: AdditionalProperties<'s, 'p>,
+    pub(crate) children: Vec<WasmAstNode<'s, 'p>>,
 }
 
 to_wasm!(
@@ -22,9 +26,20 @@ to_wasm!(
     wasm_context,
     standard_properties,
     {
+        let children = original
+            .children
+            .iter()
+            .map(|child| {
+                child
+                    .to_wasm(wasm_context.clone())
+                    .map(Into::<WasmAstNode<'_, '_>>::into)
+            })
+            .collect::<Result<Vec<_>, _>>()?;
+
         Ok(WasmSection {
             standard_properties,
-            children: Vec::new(),
+            additional_properties: AdditionalProperties::default(),
+            children,
         })
     }
 );
@@ -34,3 +49,10 @@ impl<'s, 'p> Into<WasmAstNode<'s, 'p>> for WasmSection<'s, 'p> {
         WasmAstNode::Section(self)
     }
 }
+
+#[cfg(feature = "wasm_test")]
+impl<'s, 'p> ElispFact<'s> for WasmSection<'s, 'p> {
+    fn get_elisp_name<'b>(&'b self) -> std::borrow::Cow<'s, str> {
+        "section".into()
+    }
+}