From 4b2b72a3c19a69b00fb8bf49d9be8b2ef4a6423e Mon Sep 17 00:00:00 2001
From: Ed J <mohawk2@users.noreply.github.com>
Date: Mon, 22 Jan 2024 21:17:31 +0000
Subject: [PATCH] t/primitive-selector.t better diag helping for rare failure
 as random input

---
 t/primitive-selector.t | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/t/primitive-selector.t b/t/primitive-selector.t
index 5692aa767..cda12d87a 100644
--- a/t/primitive-selector.t
+++ b/t/primitive-selector.t
@@ -57,7 +57,8 @@ subtest 'where' => sub {
             my $x = sequence( 4, 3, 2 );
             my $y = ( random($x) < 0.3 );
             my $c = whereND( $x, $y );
-            ok tapprox( $c->squeeze, where( $x, $y ) ), "vs where";
+            my $where = where( $x, $y );
+            ok tapprox( $c->squeeze, $where ), "vs where" or diag "x=$x\ny=$y\nwhere=$where\nc=$c";
         };
 
         subtest 'lvalue' => sub {