File: 1001_fix_skip_test_pdf_for_newline.patch

package info (click to toggle)
libmodule-install-readmefrompod-perl 0.30-3
  • links: PTS, VCS
  • area: main
  • in suites: bullseye, buster
  • size: 268 kB
  • sloc: perl: 1,735; sh: 6; makefile: 2
file content (26 lines) | stat: -rw-r--r-- 777 bytes parent folder | download | duplicates (2)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
Description: Avoid bogusly testing if PDF file contains only unix newlines
Author: Jonas Smedegaard <dr@jones.dk>
Forwarded: no
Last-Update: 2019-01-17
---
This patch header follows DEP-3: http://dep.debian.net/deps/dep3/
--- a/t/05_cleanpdf.t
+++ b/t/05_cleanpdf.t
@@ -14,7 +14,7 @@
 eval { require App::pod2pdf; };
 plan skip_all => 'App::pod2pdf not installed' if $@;
 
-plan tests => 13;
+plan tests => 12;
 
 {
 my $make = $Config{make};
@@ -70,7 +70,7 @@
 ok( -e 'Foobar.pdf', 'There is a Foobar.pdf file' );
 
 unlike io->file($_)->all, qr/\r\n/, "$_ contains only unix newlines"
-  for qw( Foobar.txt Foobar.htm Foobar.man Foobar.pdf );
+  for qw( Foobar.txt Foobar.htm Foobar.man );
 
 my $distclean = capture_merged { system "$make distclean" };
 diag("$distclean");