Send output via warn to see in github actions

Author: cbrandtbuffalo

t/mail/dashboard-jschart.t

@@ -113,41 +113,46 @@ my $bar_color  = $imager->getpixel( x => 300, y => 200 );
         return defined $p ? sprintf( '%d/%d/%d', ( $p->rgba )[ 0, 1, 2 ] ) : 'oob';
     };
 
-    diag sprintf( 'Image: %dx%d channels=%d bits=%d type=%s',
+    # RT::Test reconfigures Test::Builder's output handles, so Test::More's
+    # diag() is swallowed by the harness. Write straight to STDERR with warn
+    # instead (trailing "\n" suppresses the "at FILE line N" suffix).
+    my $w = sub { warn @_, "\n" };
+
+    $w->( sprintf( 'Image: %dx%d channels=%d bits=%d type=%s',
         $imager->getwidth, $imager->getheight, $imager->getchannels,
-        $imager->bits, $imager->type );
+        $imager->bits, $imager->type ) );
 
-    diag 'PNG tags:';
+    $w->('PNG tags:');
     for my $t ( $imager->tags ) {
-        diag sprintf( '  %s = %s',
-            $t->[0], defined $t->[1] ? $t->[1] : '(undef)' );
+        $w->( sprintf( '  %s = %s',
+            $t->[0], defined $t->[1] ? $t->[1] : '(undef)' ) );
     }
 
-    diag sprintf( 'Sampled pixel (300,200): %s '
+    $w->( sprintf( 'Sampled pixel (300,200): %s '
             . '(expected ~166/206/227; ranges red 150-180, green 190-220, blue 210-240)',
-        $px->( 300, 200 ) );
+        $px->( 300, 200 ) ) );
 
     # Neighborhood around the sample point.
     for my $y ( 180, 190, 200, 210, 220 ) {
-        diag join ' ', "neighborhood y=$y:",
-            map { "x=$_:" . $px->( $_, $y ) } ( 260, 280, 300, 320, 340 );
+        $w->( join ' ', "neighborhood y=$y:",
+            map { "x=$_:" . $px->( $_, $y ) } ( 260, 280, 300, 320, 340 ) );
     }
 
     # Horizontal scan across the middle row to locate the bars.
     for ( my $x = 0 ; $x < $imager->getwidth ; $x += 25 ) {
-        diag sprintf( 'hscan y=200 x=%d: %s', $x, $px->( $x, 200 ) );
+        $w->( sprintf( 'hscan y=200 x=%d: %s', $x, $px->( $x, 200 ) ) );
     }
 
     # Vertical scan down x=300 to see the bar's height/position.
     for ( my $y = 0 ; $y < $imager->getheight ; $y += 25 ) {
-        diag sprintf( 'vscan x=300 y=%d: %s', $y, $px->( 300, $y ) );
+        $w->( sprintf( 'vscan x=300 y=%d: %s', $y, $px->( 300, $y ) ) );
     }
 
     # Raw PNG as a single base64 line between sentinels. To recover the image:
     #   grep -o 'PNGB64 [A-Za-z0-9+/=]*' log | awk '{print $2}' | base64 -d > chart.png
     require MIME::Base64;
-    diag 'PNGB64 '
-        . MIME::Base64::encode_base64( $mail_image->bodyhandle->as_string, '' );
+    $w->( 'PNGB64 '
+        . MIME::Base64::encode_base64( $mail_image->bodyhandle->as_string, '' ) );
 }
 # -----------------------------------------------------------------------------