Reply to thank-you's

Raku · Aug 22, 2019 · c1e3457 · c1e3457
1 parent 9d16c7c
commit c1e3457
Show file tree

Hide file tree

Showing 2 changed files with 27 additions and 0 deletions.
diff --git a/lib/Whateverable.pm6 b/lib/Whateverable.pm6
@@ -106,6 +106,25 @@ multi method irc-to-me(Message $msg where .text ~~ /:i^ uptime \s* $/) {
         ~ “implementing {.language_name} {.language_version}.”
      })
 }
+#| You're welcome!
+sub you're-welcome is export {
+    «
+    ‘You're welcome!’
+    ‘I'm happy to help!’
+    ‘Anytime!’
+    ‘It's my pleasure!’
+    ‘Thank you! You love me, you really love me!’
+    ‘\o/’
+    »
+}
+#| Replying to thanks
+multi method irc-to-me(Message $msg where .text ~~ /:i^ [‘thank you’|‘thanks’] \s* /) {
+    you're-welcome.pick
+}
+#| Replying to thanks
+multi method irc-privmsg-channel($msg where .text ~~ /:i [‘thank you’|‘thanks’] .* $($msg.server.current-nick) /) {
+    you're-welcome.pick
+}
 #↓ Notices
 multi method irc-notice-me( $ --> Nil)                             {} # Issue #321
 #↓ Private messages

diff --git a/xt/lib/Testable.pm6 b/xt/lib/Testable.pm6
@@ -206,6 +206,14 @@ class Testable {
                   “$.bot-nick,url”,
                   “$.our-nick, https://github.com/perl6/whateverable”);
 
+        use Whateverable;
+        self.test(‘thank you (directly)’,
+                  “$.bot-nick: thank you!”,
+                  /^“{$.our-nick}, ”@(you're-welcome)/);
+
+        self.test(‘thank you (indirectly)’,
+                  “thanks, $.bot-nick!”,
+                  /^“{$.our-nick}, ”@(you're-welcome)/);
 
         self.test(‘uptime’,
                   “{$.bot-nick}: uptime”,