fenix/cpdf-source
1
0
Fork 0
mirror of https://github.com/johnwhitington/cpdf-source.git synced 2025-02-01 11:07:12 +01:00
Code Issues Packages Projects Releases Wiki Activity

Remove two false positives in Matterhorn tests

Browse Source
This commit is contained in:
John Whitington 2024-07-18 17:44:05 +01:00
parent 6f1be1e6c3
commit 44438f5cef
1 changed files with 3 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
cpdfua.ml
View File

@ -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