t/primitive-selector.t better diag helping for rare failure as random…

… input
PDLPorters · Jan 22, 2024 · 4b2b72a · 4b2b72a
1 parent 710c348
commit 4b2b72a
Showing 1 changed file with 2 additions and 1 deletion.
diff --git 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 {