30 lines
1.0 KiB
Diff
30 lines
1.0 KiB
Diff
From 46785bfe6b4a12be606344819e785ec173bffa2b Mon Sep 17 00:00:00 2001
|
|
From: Nicolas R <nicolas@atoomic.org>
|
|
Date: Mon, 19 Oct 2020 10:29:57 -0600
|
|
Subject: [PATCH] Output should be empty
|
|
|
|
diff -rNu Pod-Usage-2.01/t/pod/pod2usage2.t Pod-Usage-2.01_new/t/pod/pod2usage2.t
|
|
--- Pod-Usage-2.01/t/pod/pod2usage2.t 2020-10-14 07:14:10.000000000 +0800
|
|
+++ Pod-Usage-2.01_new/t/pod/pod2usage2.t 2021-07-28 16:03:42.000000000 +0800
|
|
@@ -361,6 +361,7 @@
|
|
*Pod::Usage::initialize = sub { 1; };
|
|
}
|
|
|
|
+our $TODO;
|
|
SKIP: {
|
|
my $perldoc = $^X . 'doc';
|
|
skip "Missing perldoc binary", 2 unless -x $perldoc;
|
|
@@ -378,8 +379,11 @@
|
|
} );
|
|
is ($exit, 0, "Exit status pod2usage with special perldoc case");
|
|
# output went to devnull
|
|
- like ($text, qr/^\s*$/s, "Output test pod2usage with special perldoc case") or diag "Got:\n$text\n";
|
|
|
|
+ TODO: {
|
|
+ local $TODO = q[Can get output from stty view #14];
|
|
+ is( length($text), 0, "Output test pod2usage with special perldoc case") or diag "Got:\n$text\n";
|
|
+ }
|
|
}
|
|
|
|
# bad regexp syntax
|