Add and run Supply.collate tests

Author: lizmat

S17-supply/collate.t

@@ -0,0 +1,23 @@
+use v6;
+use Test;
+use lib $?FILE.IO.parent(2).add("packages/Test-Helpers");
+use Test::Tap;
+use Test::Util;
+
+plan 7;
+
+is-eqv Supply.collate, (Supply,).Seq, 'can sort a Supply type object';
+
+for ThreadPoolScheduler.new, CurrentThreadScheduler -> $*SCHEDULER {
+    diag "**** scheduling with {$*SCHEDULER.WHAT.raku}";
+
+    tap-ok Supply.from-list(10...1).collate, [1,10,2,3,4,5,6,7,8,9],
+      "we can collate numbers (always treated as strings)";
+    tap-ok Supply.from-list("z"..."a").collate, ["a" .. "z"],
+      "we can collate strings";
+    tap-ok Supply.from-list(flat("a".."d", "A" .. "D")).collate,
+      [<a A b B c C d D>],
+      "we can collate mixed case";
+}
+
+# vim: ft=perl6 expandtab sw=4

spectest.data

@@ -897,6 +897,7 @@ S17-supply/batch.t       # slow
 S17-supply/categorize.t
 S17-supply/Channel.t
 S17-supply/classify.t
+S17-supply/collate.t
 S17-supply/comb.t
 S17-supply/decode.t
 S17-supply/delayed.t     # slow