Clarify the status of "produce"

And add tests

Changes

@@ -8,6 +8,7 @@ Revision history for ParaSeq
     - Updated status of ".flat" and added tests
     - Updated status of ".invert" and added tests
     - Updated status of ".permutations" and added tests
+    - Updated status of ".produce" and added tests
 
 0.0.7  2024-05-30T14:24:50+02:00
     - Added optimized ".batch" and tests

README.md

@@ -295,7 +295,7 @@ pick
 produce
 -------
 
-[`.produce`](https://docs.raku.org/type/Any#routine_produce)
+**Status**: the nature of the [`.produce`](https://docs.raku.org/type/Any#routine_produce) method basically makes it impossible to hyper. Therefore, **no** specific hypering logic has been added for this method.
 
 repeated
 --------

doc/ParaSeq.rakudoc

@@ -369,7 +369,10 @@ hypering logic has been added for this method.
 
 =head2 produce
 
-L<C<.produce>|https://docs.raku.org/type/Any#routine_produce>
+B<Status>: the nature of the
+L<C<.produce>|https://docs.raku.org/type/Any#routine_produce> method
+basically makes it impossible to hyper.  Therefore, B<no> specific
+hypering logic has been added for this method.
 
 =head2 repeated
 

t/42-produce.rakutest

@@ -0,0 +1,17 @@
+use Test;
+use ParaSeq;
+
+plan 4;
+
+my constant $elems    = 200000;
+my constant @list     = (^$elems).List;
+my constant @produced = @list.produce(&[+]).List;
+my constant $batch    = 16;
+
+for 1, ParaSeq.default-degree {
+    my $seq := @list.&hyperize($batch, $_).produce(&[+]);
+    isa-ok $seq, $_ == 1 ?? Seq !! ParaSeq;
+    is-deeply $seq.List, @produced, ".produce(&[+]) with degree = $_";
+}
+
+# vim: expandtab shiftwidth=4