Debug chart color tests

Author: cbrandtbuffalo

t/mail/dashboard-jschart.t

@@ -102,6 +102,55 @@ is( $imager->bits, 8, 'Image bit depth is 8' );
 # Here we test if each channel is in range
 my $bar_color  = $imager->getpixel( x => 300, y => 200 );
 
+# --- Temporary diagnostics for the chromium-rendering investigation ----------
+# The retest cycle is long, so gather everything in one run: image geometry,
+# PNG tags (gamma/color-profile), the color landscape around and across the
+# sampled point, and the raw PNG (base64) so the chart can be reconstructed.
+{
+    my $px = sub {    # "r/g/b" for a pixel, or "oob" if out of bounds
+        my ( $x, $y ) = @_;
+        my $p = $imager->getpixel( x => $x, y => $y );
+        return defined $p ? sprintf( '%d/%d/%d', ( $p->rgba )[ 0, 1, 2 ] ) : 'oob';
+    };
+
+    diag sprintf( 'Image: %dx%d channels=%d bits=%d type=%s',
+        $imager->getwidth, $imager->getheight, $imager->getchannels,
+        $imager->bits, $imager->type );
+
+    diag 'PNG tags:';
+    for my $t ( $imager->tags ) {
+        diag sprintf( '  %s = %s',
+            $t->[0], defined $t->[1] ? $t->[1] : '(undef)' );
+    }
+
+    diag sprintf( 'Sampled pixel (300,200): %s '
+            . '(expected ~166/206/227; ranges red 150-180, green 190-220, blue 210-240)',
+        $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 );
+    }
+
+    # 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 ) );
+    }
+
+    # 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 ) );
+    }
+
+    # 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, '' );
+}
+# -----------------------------------------------------------------------------
+
 ok( $bar_color->red >= 150   && $bar_color->red <= 180,   'Image bar red channel is in range' );
 ok( $bar_color->green >= 190 && $bar_color->green <= 220, 'Image bar green channel is in range' );
 ok( $bar_color->blue >= 210  && $bar_color->blue <= 240,  'Image bar blue channel is in range' );