fixes fusion tests (#104)

* fixes fusion tests

* fixes headings

Author: ringabout

src/fusion/matching.rst

@@ -243,7 +243,7 @@ subpatterns or have trailing ``.._`` in pattern.
 ============= ============== ==============
 
 Use examples
-~~~~~~~~~~~~
+############
 
 - capture all elements in sequence: ``[all @elems]``
 - get all elements until (not including "d"): ``[until @a is "d"]``
@@ -419,7 +419,7 @@ Predicates and infix operators
 ------------------------------
 
 Infix operators
-~~~~~~~~~~~~~~~
+###############
 
 By default object fields are either matched using recursive pattern, or
 compared for equality (when ``field: "some value"`` is used). It is also
@@ -437,7 +437,7 @@ visible in the case branch.
 
 
 Custom predicates
-~~~~~~~~~~~~~~~~~
+#################
 
 Matching expressions using custom predicates is also possible. If it is not
 necessary to capture matched element placeholder ``_.`` should be used as a

tests/tmatching.nim

@@ -904,6 +904,9 @@ suite "Matching":
       text*: string
       subn*: seq[HtmlNode]
 
+  proc `==`(x, y: HtmlNode): bool {.noSideEffect.} =
+    x.kind == y.kind and x.text == y.text and x.subn == y.subn
+
   func add(n: var HtmlNode, s: HtmlNode) = n.subn.add s
 
   func len(n: HtmlNode): int = n.subn.len