fenix/cpdf-source
1
0
Fork 0
mirror of https://github.com/johnwhitington/cpdf-source.git synced 2025-06-05 22:09:39 +02:00
Code Issues Packages Projects Releases Wiki Activity

XMP tests

Browse Source
This commit is contained in:
John Whitington
2024-05-31 16:08:27 +01:00
parent 05effc7eb1
commit 29ca08432c
2 changed files with 47 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

18
cpdfmetadata.mli
View File

@@ -86,3 +86,21 @@ val get_catalog_item : string -> Pdf.t -> string
val get_viewer_pref_item : string -> Pdf.t -> string val get_viewer_pref_item : string -> Pdf.t -> string
val determine_subformats : Pdf.t -> string list val determine_subformats : Pdf.t -> string list
val adobe : string
val xmp : string
val dc : string
val rdf : string
val pdfaid : string
val pdfxid : string
val pdfe : string
val pdfuaid : string
val pdfvtid : string
type xmltree =
E of Cpdfxmlm.tag * xmltree list
| D of string
val xmltree_of_bytes : Pdfio.bytes -> Cpdfxmlm.dtd * xmltree
val get_data_for : string -> string -> xmltree -> string option

34
cpdfua.ml
View File

@@ -11,16 +11,34 @@ let matterhorn_01_007 pdf = ()
let matterhorn_02_001 pdf = () let matterhorn_02_001 pdf = ()
let matterhorn_02_003 pdf = () let matterhorn_02_003 pdf = ()
(* Document does not contain an XMP metadata stream *) (* Document does not contain an XMP metadata stream *)
let matterhorn_06_001 pdf = () let matterhorn_06_001 pdf =
match Cpdfmetadata.get_metadata pdf with
| Some _ -> ()
| None -> merror ()
(* The XMP metadata stream in the Catalog dictionary does not include the (* The XMP metadata stream in the Catalog dictionary does not include the
PDF/UA identifier. *) PDF/UA identifier. *)
let matterhorn_06_002 pdf = () let matterhorn_06_002 pdf =
match Cpdfmetadata.get_metadata pdf with
| Some metadata ->
let _, tree = Cpdfmetadata.xmltree_of_bytes metadata in
begin match Cpdfmetadata.get_data_for Cpdfmetadata.pdfuaid "part" tree with
| Some _ -> ()
| None -> merror ()
end
| None -> () (* case covered by test 06_001 above, no need for two failures *)
(* XMP metadata stream does not contain dc:title *) (* XMP metadata stream does not contain dc:title *)
let matterhorn_06_003 pdf = () let matterhorn_06_003 pdf =
match Cpdfmetadata.get_metadata pdf with
| Some metadata ->
let _, tree = Cpdfmetadata.xmltree_of_bytes metadata in
begin match Cpdfmetadata.get_data_for Cpdfmetadata.dc "title" tree with
| Some _ -> ()
| None -> merror ()
end
| None -> () (* case covered by test 06_001 above, no need for two failures *)
(* ViewerPreferences dictionary of the Catalog dictionary does not contain a (* ViewerPreferences dictionary of the Catalog dictionary does not contain a
DisplayDocTitle entry. *) DisplayDocTitle entry. *)
@@ -98,10 +116,16 @@ let matterhorn_25_001 pdf = ()
(* The file is encrypted but does not contain a P entry in its encryption (* The file is encrypted but does not contain a P entry in its encryption
dictionary. *) dictionary. *)
let matterhorn_26_001 pdf = () let matterhorn_26_001 pdf = ()
(* Would already have failed at this point, because CamlPDF does not allow
the decryption of a file with no /P *)
(* The file is encrypted and does contain a P entry but the 10th bit position (* The file is encrypted and does contain a P entry but the 10th bit position
of the P entry is false. *) of the P entry is false. *)
let matterhorn_26_002 pdf = () let matterhorn_26_002 pdf =
match pdf.Pdf.saved_encryption with
| None -> ()
| Some {Pdf.from_get_encryption_values = (_, _, _, p, _, _, _)} ->
if mem Pdfcrypt.NoExtract (Pdfcrypt.banlist_of_p p) then merror ()
let matterhorn_28_002 pdf = () let matterhorn_28_002 pdf = ()
let matterhorn_28_004 pdf = () let matterhorn_28_004 pdf = ()