fix failing tests by adding -npro

diff --git a/t/testwide-passthrough.t b/t/testwide-passthrough.t
index 6a0060015cc3fb83cae569a161ace34016f3ad25..643023d393ee12464d6a70e9c28bd3896a2750c4 100644 (file)
--- 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 723d0887f110139a4b1b9e7e2eb03a88c1a0c449..1dd12dc9d4419bcd63292b3956902af58cb4c2a0 100644 (file)
--- 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
     );