From a1f0a4801100496d96e47c8686b041b54396b7a9 Mon Sep 17 00:00:00 2001
From: Steve Hancock <perltidy@users.sourceforge.net>
Date: Mon, 24 Aug 2020 08:16:36 -0700
Subject: [PATCH] remove test-pod2html.t, trouble w/appveyor test; file
 unlinking problem?

---
 t/test-pod2html.t | 75 -----------------------------------------------
 1 file changed, 75 deletions(-)
 delete mode 100644 t/test-pod2html.t

diff --git a/t/test-pod2html.t b/t/test-pod2html.t
deleted file mode 100644
index 35310e6b..00000000
--- a/t/test-pod2html.t
+++ /dev/null
@@ -1,75 +0,0 @@
-use strict;
-use Test::More;
-use Carp;
-use Perl::Tidy;
-BEGIN { plan tests => 1 }
-
-# Check that pod2html is working.
-# Added to check for issue RT #133161, in which pod2html 
-# was not getting called.
-
-my $source = <<'----------';
-=head1 APPENDIX
-
-The rest of the documentation details each of the object
-methods. Internal methods are usually preceded with a _
-
-=cut
-
-# Let the code begin...
-
-package Astro::Circus;
-use vars qw(@ISA);
-use strict;
-----------
-
-my $output;
-my $params = '-html';
-my $stderr_string;
-my $errorfile_string;
-my $err = Perl::Tidy::perltidy(
-    source      => \$source,
-    destination => \$output,
-    perltidyrc  => \$params,
-    argv        => '',                 # for safety; hide any ARGV from perltidy
-    stderr      => \$stderr_string,
-    errorfile   => \$errorfile_string, # not used when -se flag is set
-);
-if ( $err==1 || $stderr_string || $errorfile_string || !$output ) {
-    print STDERR "Error output received\n";
-    if ($err) {
-        print STDERR "An error flag '$err' was returned\n";
-        ok( !$err );
-    }
-    if ($stderr_string) {
-        print STDERR "---------------------\n";
-        print STDERR "<<STDERR>>\n$stderr_string\n";
-        print STDERR "---------------------\n";
-        ok( !$stderr_string );
-    }
-    if ($errorfile_string) {
-        print STDERR "---------------------\n";
-        print STDERR "<<.ERR file>>\n$errorfile_string\n";
-        print STDERR "---------------------\n";
-        ok( !$errorfile_string );
-    }
-    if ( !$output ) {
-        print STDERR "---------------------\n";
-        print STDERR "No output produced\n";
-        print STDERR "---------------------\n";
-        ok($output);
-    }
-}
-else {
-
-    # The html header content can vary with system, so we will
-    # just make sure the output looks like html
-    if ( $output =~ /<\/html>\s*$/ ) {
-        ok( 1, "looks like html" );
-    }
-    else {
-        print STDERR "---------------------\n";
-        print STDERR "output does not seem to be html\n";
-        print STDERR "---------------------\n";
-    }
-}
-- 
2.39.5