Add compare for document category.

src/wasm/document.rs

@@ -18,7 +18,7 @@ pub struct WasmDocument<'s, 'p> {
     standard_properties: WasmStandardProperties,
     additional_properties: Vec<(String, &'s str)>,
     pub(crate) children: Vec<WasmAstNode<'s, 'p>>,
-    category: Option<&'p str>,
+    pub(crate) category: Option<&'p str>,
     pub(crate) path: Option<PathBuf>,
 }
 

src/wasm_test/compare.rs

@@ -247,6 +247,11 @@ impl<'s, 'p> WasmElispCompare<'s, 'p> for WasmDocument<'s, 'p> {
                 EmacsField::Required(":path"),
                 |w| w.path.as_ref().and_then(|p| p.to_str()),
                 wasm_compare_property_quoted_string
+            ),
+            (
+                EmacsField::Required(":CATEGORY"),
+                |w| w.category.as_ref(),
+                wasm_compare_property_quoted_string
             )
         );
         Ok(result)