fenix
/
cpdf-source
mirror of https://github.com/johnwhitington/cpdf-source.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

Remove two false positives in Matterhorn tests

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 let parent_tree = read_parent_tree pdf in
Pdf.objiter Pdf.objiter
(fun n obj -> (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 match Pdf.lookup_direct pdf "/Subtype" obj with
| Some (Pdf.Name | Some (Pdf.Name
("/Stamp" | "/Line" | "Square" | "/Circle" | "/Polygon" | "/PolyLine" | ("/Stamp" | "/Line" | "Square" | "/Circle" | "/Polygon" | "/PolyLine" |
@ -673,9 +673,8 @@ let matterhorn_28_004 _ _ pdf =
end end
| None -> merror () | None -> merror ()
end end
| _ -> merror () | _ -> () (* Ok, since not part of structure tree. *)
end end
end end
| _ -> ()) | _ -> ())
pdf pdf
@ -766,7 +765,7 @@ let matterhorn_28_011 _ _ pdf =
end end
| _ -> merror () | _ -> merror ()
end end
| _ -> merror () | _ -> () (* Not part of structure tree. That's ok. *)
end end
| _ -> ()) | _ -> ())
pdf pdf