From 71d410c43e83502c35408e019394405101ac1b7a Mon Sep 17 00:00:00 2001
From: Steve Hancock <perltidy@users.sourceforge.net>
Date: Wed, 6 May 2020 07:07:08 -0700
Subject: [PATCH] activated 'filter_example.t' (caused install problems at one
 time)

---
 t/{filter_example.t.SKIP => filter_example.t} | 19 ++++++++++++-------
 1 file changed, 12 insertions(+), 7 deletions(-)
 rename t/{filter_example.t.SKIP => filter_example.t} (70%)

diff --git a/t/filter_example.t.SKIP b/t/filter_example.t
similarity index 70%
rename from t/filter_example.t.SKIP
rename to t/filter_example.t
index d6b63942..825c2c14 100755
--- a/t/filter_example.t.SKIP
+++ b/t/filter_example.t
@@ -1,8 +1,9 @@
-# Test use of prefilter and postfilter parameters 
+# Test use of prefilter and postfilter parameters
 use strict;
 use Carp;
 use Perl::Tidy;
-use Test;
+use Test::More;
+my $name = 'filter_example';
 
 BEGIN {
     plan tests => 1;
@@ -47,19 +48,23 @@ ENDE
 my $output;
 my $stderr_string;
 my $errorfile_string;
-my $err = Perl::Tidy::perltidy(
-    argv => '-npro',  # fix for RT#127679, avoid reading unwanted .perltidyrc
+my $params = "";
+my $err    = Perl::Tidy::perltidy(
+
+    #argv => '-npro',  # fix for RT#127679, avoid reading unwanted .perltidyrc
+    argv       => '',
+    perltidyrc => \$params,    # avoid reading unwanted .perltidyrc
     prefilter =>
       sub { $_ = $_[0]; s/^\s*method\s+(\w.*)/sub METHOD_$1/gm; return $_ },
     postfilter  => sub { $_ = $_[0]; s/sub\s+METHOD_/method /gm; return $_ },
     source      => \$source,
     destination => \$output,
-    stderr    => \$stderr_string,
-    errorfile => \$errorfile_string,   # not used when -se flag is set
+    stderr      => \$stderr_string,
+    errorfile => \$errorfile_string,    # not used when -se flag is set
 );
 if ( $err || $stderr_string || $errorfile_string ) {
     ok(0);
 }
 else {
-    ok( $output, $expect );
+    is( $output, $expect, $name );
 }
-- 
2.39.5