From 44438f5cef84609c7e244ac9d0351e09e64b4538 Mon Sep 17 00:00:00 2001
From: John Whitington <john@coherentgraphics.co.uk>
Date: Thu, 18 Jul 2024 17:44:05 +0100
Subject: [PATCH] Remove two false positives in Matterhorn tests

---
 cpdfua.ml | 7 +++----
 1 file changed, 3 insertions(+), 4 deletions(-)

diff --git a/cpdfua.ml b/cpdfua.ml
index 809394c..9224674 100644
--- a/cpdfua.ml
+++ b/cpdfua.ml
@@ -653,7 +653,7 @@ let matterhorn_28_004 _ _ pdf =
   let parent_tree = read_parent_tree pdf in
     Pdf.objiter
       (fun n obj ->
-        (*flprint (Pdfwrite.string_of_pdf obj ^ "\n");*)
+       (*flprint (Pdfwrite.string_of_pdf obj ^ "\n");*)
       match Pdf.lookup_direct pdf "/Subtype" obj with
       | Some (Pdf.Name
                 ("/Stamp" | "/Line" | "Square" | "/Circle" | "/Polygon" | "/PolyLine" |
@@ -673,9 +673,8 @@ let matterhorn_28_004 _ _ pdf =
                   end
               | None -> merror ()
               end
-          | _ -> merror ()
+          | _ -> () (* Ok, since not part of structure tree. *)
           end
-
         end
       | _ -> ())
       pdf
@@ -766,7 +765,7 @@ let matterhorn_28_011 _ _ pdf =
                      end
                  | _ -> merror ()
                  end
-             | _ -> merror ()
+             | _ -> () (* Not part of structure tree. That's ok. *)
              end
          | _ -> ())
       pdf