Use a more elaborate with different types

to showcase how is-deeply tests all of it

Author: zoffixznet

doc/Language/testing.pod6

@@ -401,11 +401,20 @@ use v6.c;
 use Test;
 plan 1;
 
-sub count-chars(Str() $x) {
-    $x.comb.Bag
+sub string-info(Str() $_) {
+    Map.new: (
+      length  =>  .chars,
+      char-counts => Bag.new-from-pairs: (
+          letters => +.comb(/<[\w]-[_]>/),
+          digits  => +.comb(/\d/),
+          other   => +.comb(/<.-[\w\d]+[_]>/),
+    ))
 }
-my $expected = bag <f l e e e c>;
-is-deeply count-chars('fleece'), $expected, 'count-chars works on "fleece"';
+
+is-deeply string-info('I ♥ Perl 6'), Map.new((
+    :10length,
+    char-counts => Bag.new-from-pairs: ( :6letters, :1digits, :4other, )
+)), 'string-info gives right info';
 =end code
 
 B<Note:> for L<historical