[latex3-commits] [git/LaTeX3-latex3-pdfresources] develop: improve regression test for dvips (dabe858)

[Ulrike Fischer]

Repository : https://github.com/latex3/pdfresources
On branch  : develop
Link       : https://github.com/latex3/pdfresources/commit/dabe8581511e45c950270adccdc67ec9d9ab6cd1

>---------------------------------------------------------------

commit dabe8581511e45c950270adccdc67ec9d9ab6cd1
Author: Ulrike Fischer <fischer at troubleshooting-tex.de>
Date:   Mon Feb 27 18:38:46 2023 +0100

    improve regression test for dvips


>---------------------------------------------------------------

dabe8581511e45c950270adccdc67ec9d9ab6cd1
 l3backend-testphase.dtx             | 1 +
 testfiles-dvips/annot-last.tlg      | 2 +-
 testfiles-dvips/dict_if_empty.tlg   | 2 +-
 testfiles-dvips/show.tlg            | 4 ++--
 testfiles-dvips/version-compare.tlg | 2 +-
 5 files changed, 6 insertions(+), 5 deletions(-)

diff --git a/l3backend-testphase.dtx b/l3backend-testphase.dtx
index 504b785..f5fae68 100644
--- a/l3backend-testphase.dtx
+++ b/l3backend-testphase.dtx
@@ -1965,6 +1965,7 @@
     \pdfmanagement_add:nnn{Info}{Creator}{(TeX)}
 %</drivers>
 %<*dvips>
+    \AddToHook{begindocument}{\pdfmanagement_add:nnn{Info}{Producer}{(pdfTeX+dvips)}}
     \__kernel_backend_literal:e{!~<</DocumentUUID~(DocumentUUID)>>~setpagedevice}
     \__kernel_backend_literal:e{!~<</InstanceUUID~(InstanceUUID)>>~setpagedevice}
 %</dvips>
diff --git a/testfiles-dvips/annot-last.tlg b/testfiles-dvips/annot-last.tlg
index 6b8a49a..934b768 100644
--- a/testfiles-dvips/annot-last.tlg
+++ b/testfiles-dvips/annot-last.tlg
@@ -141,7 +141,7 @@ Completed box being shipped out [1]
 .\kern 0.0
 .\kern -633.0
 .\hbox(0.0+0.0)x0.0
-..\special{ps:SDict begin mark/Producer (pdftex-1.4.24)/DOCINFO pdfmark end}
+..\special{ps:SDict begin mark/Producer (pdfTeX+dvips)/DOCINFO pdfmark end}
 ..\special{ps:SDict begin mark/Creator (TeX)/DOCINFO pdfmark end}
 ..\special{ps:SDict begin mark/CreationDate (D:20010101205959-00'00')/DOCINFO pd\ETC.}
 ..\special{ps:SDict begin mark/ModDate (D:20010101205959-00'00')/DOCINFO pdfmark\ETC.}
diff --git a/testfiles-dvips/dict_if_empty.tlg b/testfiles-dvips/dict_if_empty.tlg
index 026c928..b095eff 100644
--- a/testfiles-dvips/dict_if_empty.tlg
+++ b/testfiles-dvips/dict_if_empty.tlg
@@ -112,7 +112,7 @@ Completed box being shipped out [1]
 .\kern 0.0
 .\kern -633.0
 .\hbox(0.0+0.0)x0.0
-..\special{ps:SDict begin mark/Producer (pdftex-1.4.24)/DOCINFO pdfmark end}
+..\special{ps:SDict begin mark/Producer (pdfTeX+dvips)/DOCINFO pdfmark end}
 ..\special{ps:SDict begin mark/Creator (TeX)/DOCINFO pdfmark end}
 ..\special{ps:SDict begin mark/CreationDate (D:20010101205959-00'00')/DOCINFO pd\ETC.}
 ..\special{ps:SDict begin mark/ModDate (D:20010101205959-00'00')/DOCINFO pdfmark\ETC.}
diff --git a/testfiles-dvips/show.tlg b/testfiles-dvips/show.tlg
index eef541f..3e06ffc 100644
--- a/testfiles-dvips/show.tlg
+++ b/testfiles-dvips/show.tlg
@@ -9,7 +9,7 @@ braces):
 l. ...\pdfdict_show:n{g__pdf_Core/Catalog}
 The global dictionary 'g__pdf_Core/Info' contains the pairs (without outer
 braces):
->  {Producer}  =>  {(pdftex-1.4.24)}
+>  {Producer}  =>  {(pdfTeX+dvips)}
 >  {Creator}  => 
 {<FEFF004C006100540065005800200077006900740068002000680079007000650072007200650066>}
 >  {CreationDate}  =>  {(D:20010101205959-00'00')}
@@ -106,7 +106,7 @@ Completed box being shipped out [1]
 .\kern -633.0
 .\hbox(0.0+0.0)x0.0
 ..\special{PSfile=show.out.ps}
-..\special{ps:SDict begin mark/Producer (pdftex-1.4.24)/DOCINFO pdfmark end}
+..\special{ps:SDict begin mark/Producer (pdfTeX+dvips)/DOCINFO pdfmark end}
 ..\special{ps:SDict begin mark/Creator <FEFF004C00610054006500580020007700690074\ETC.}
 ..\special{ps:SDict begin mark/CreationDate (D:20010101205959-00'00')/DOCINFO pd\ETC.}
 ..\special{ps:SDict begin mark/ModDate (D:20010101205959-00'00')/DOCINFO pdfmark\ETC.}
diff --git a/testfiles-dvips/version-compare.tlg b/testfiles-dvips/version-compare.tlg
index 26924d1..a6f47ec 100644
--- a/testfiles-dvips/version-compare.tlg
+++ b/testfiles-dvips/version-compare.tlg
@@ -174,7 +174,7 @@ Completed box being shipped out [1]
 .\kern 0.0
 .\kern -633.0
 .\hbox(0.0+0.0)x0.0
-..\special{ps:SDict begin mark/Producer (pdftex-1.4.24)/DOCINFO pdfmark end}
+..\special{ps:SDict begin mark/Producer (pdfTeX+dvips)/DOCINFO pdfmark end}
 ..\special{ps:SDict begin mark/Creator (TeX)/DOCINFO pdfmark end}
 ..\special{ps:SDict begin mark/CreationDate (D:20010101205959-00'00')/DOCINFO pd\ETC.}
 ..\special{ps:SDict begin mark/ModDate (D:20010101205959-00'00')/DOCINFO pdfmark\ETC.}