From 97e6c1a723c6ba4a4de79c265956283404bf9fd9 Mon Sep 17 00:00:00 2001
From: Steve Hancock <perltidy@users.sourceforge.net>
Date: Fri, 18 Feb 2022 17:47:07 -0800
Subject: [PATCH] fix failing tests by adding -npro

---
 t/testwide-passthrough.t | 6 +++---
 t/testwide-tidy.t        | 6 +++---
 2 files changed, 6 insertions(+), 6 deletions(-)

diff --git a/t/testwide-passthrough.t b/t/testwide-passthrough.t
index 6a006001..643023d3 100644
--- a/t/testwide-passthrough.t
+++ b/t/testwide-passthrough.t
@@ -43,7 +43,7 @@ sub test_file2file {
     note("Testing file2file: '$source' => '$destination'\n");
 
     my $tidyresult = Perl::Tidy::perltidy(
-        argv        => '-utf8',
+        argv        => '-utf8 -npro',
         source      => $source,
         destination => $destination
     );
@@ -68,7 +68,7 @@ sub test_scalar2scalar {
     note("Testing scalar2scalar\n");
 
     my $tidyresult = Perl::Tidy::perltidy(
-        argv        => '-utf8 -eos',
+        argv        => '-utf8 -eos -npro',
         source      => \$source,
         destination => \$destination
     );
@@ -90,7 +90,7 @@ sub test_scalararray2scalararray {
     note("Testing scalararray2scalararray\n");
 
     my $tidyresult = Perl::Tidy::perltidy(
-        argv        => '-utf8 -eos',
+        argv        => '-utf8 -eos -npro',
         source      => $source,
         destination => $destination
     );
diff --git a/t/testwide-tidy.t b/t/testwide-tidy.t
index 723d0887..1dd12dc9 100644
--- a/t/testwide-tidy.t
+++ b/t/testwide-tidy.t
@@ -45,7 +45,7 @@ sub test_file2file {
     note("Testing file2file: '$source' => '$destination'\n");
 
     my $tidyresult = Perl::Tidy::perltidy(
-        argv        => '-utf8',
+        argv        => '-utf8 -npro',
         source      => $source,
         destination => $destination
     );
@@ -70,7 +70,7 @@ sub test_scalar2scalar {
     note("Testing scalar2scalar\n");
 
     my $tidyresult = Perl::Tidy::perltidy(
-        argv        => '-utf8 -eos',
+        argv        => '-utf8 -eos -npro',
         source      => \$source,
         destination => \$destination
     );
@@ -94,7 +94,7 @@ sub test_scalararray2scalararray {
     note("Testing scalararray2scalararray\n");
 
     my $tidyresult = Perl::Tidy::perltidy(
-        argv        => '-utf8 -eos',
+        argv        => '-utf8 -eos -npro',
         source      => $source,
         destination => $destination
     );
-- 
2.39.5