Make sure committable does not answer on “what,”

I've fixed this in the past, but no test was added. The result is predictable.

Author: AlexDaniel

Committable.p6

@@ -37,9 +37,11 @@ method help($msg) {
     “Like this: {$msg.server.current-nick}: f583f22,HEAD say ‘hello’; say ‘world’”
 }
 
-multi method irc-to-me($msg where { .args[1].starts-with(any shortcuts.keys X~ ‘:’)
-                                    and .text ~~ /^ \s* $<code>=.+ / }) is default {
-    my $value = self.process: $msg, shortcuts{$msg.args[1].split(‘:’, 2)[0]}, ~$<code>;
+multi method irc-to-me($msg where .args[1] ~~ ?(my $prefix = m/^ $<shortcut>=<{shortcuts.keys}>
+                                                                 $<delim>=[‘:’ | ‘,’]/)
+                                  && .text ~~ /^ \s* $<code>=.+ /) is default {
+    return if $prefix<delim> eq ‘,’;
+    my $value = self.process: $msg, shortcuts{$prefix<shortcut>}, ~$<code>;
     return without $value;
     return $value but Reply($msg)
 }

t/committable.t

@@ -175,6 +175,16 @@ $t.test(‘“6c” query’,
         ‘commit: 6c say $*PERL’,
         /^ <{$t.our-nick}> ‘, ¦6c (’\d+‘ commits): «Perl 6 (6.c)»’ $/);
 
+$t.test(‘“what:” query’,
+        ‘what: say $*PERL’,
+        /^ <{$t.our-nick}> ‘, ¦6c (’\d+‘ commits): «Perl 6 (6.c)»’ $/);
+
+$t.test(‘“what,” does not work’,
+        ‘what, say ‘what, is actually working…’’);
+
+$t.test(‘“6c,” does not work’,
+        ‘6c, say ‘6c, is actually working…’’);
+
 $t.test(‘“all” query (same output everywhere)’,
         ‘commit: all say 'hi'’, # ASCII quotes because they are supported everywhere
         /^ <{$t.our-nick}> ‘, ¦all (’\d+‘ commits): «hi»’ $/,