From: Steve Hancock <perltidy@users.sourceforge.net>
Date: Sun, 23 Aug 2020 22:33:58 +0000 (-0700)
Subject: Add test for RT #133166, RT #133171, git #35; encoded -st output
X-Git-Tag: 20200907~43
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=0cad8334b4878ccb683a4913b1f1f0dcff7c754e;p=perltidy.git

Add test for RT #133166, RT #133171, git #35; encoded -st output
---

diff --git a/t/testwide.t b/t/testwide.t
index 7f7e3e72..f194d0ed 100755
--- a/t/testwide.t
+++ b/t/testwide.t
@@ -4,7 +4,7 @@ use Test;
 use Carp;
 use FindBin;
 BEGIN {unshift @INC, "./"}
-BEGIN {plan tests => 2}
+BEGIN {plan tests => 3}
 use Perl::Tidy; 
 
 
@@ -48,3 +48,34 @@ Perl::Tidy::perltidy(
 
 ok($output, $expected_output);
 
+# Test writing encoded output to stdout with the -st flag
+# References: RT #133166, RT #133171, git #35
+$output = "";
+do {
+
+    # Send STDOUT to a temporary file
+    use File::Temp ();
+    my $fh      = new File::Temp();
+    my $tmpfile = $fh->filename;
+
+    # Note that we are not specifying an encoding here. Perltidy should do that.
+    local *STDOUT;
+    open STDOUT, '>', $tmpfile or die "Can't open tmpfile: $!";
+
+    Perl::Tidy::perltidy(
+        source => \$source,
+        ##destination => ... we are using -st, so no destination is specified
+        perltidyrc => \$perltidyrc,
+        argv       => '-nsyn -st',  # added -st
+    );
+    close STDOUT;
+
+    # Read the temporary file back in. Note that here we need to specify
+    # the encoding.
+    open TMP, '<', $tmpfile;
+    binmode TMP, ":raw:encoding(UTF-8)";
+    while ( my $line = <TMP> ) { $output .= $line }
+};
+
+ok($output, $expected_output);
+