From c6aa350dee1fdf6651554b0691995b2e50f36bb4 Mon Sep 17 00:00:00 2001
From: Daniel Green <ddgreen@gmail.com>
Date: Tue, 19 Sep 2017 23:36:20 -0400
Subject: [PATCH] Add memory used to uptime command

Also log the output of the uptime command at the end of a test run for
each bot.

Addresses part of #197.
---
 lib/Whateverable.pm6 | 3 ++-
 t/lib/Testable.pm6   | 4 ++++
 2 files changed, 6 insertions(+), 1 deletion(-)

diff --git a/lib/Whateverable.pm6 b/lib/Whateverable.pm6
index d850c44..f0b0aa7 100644
--- a/lib/Whateverable.pm6
+++ b/lib/Whateverable.pm6
@@ -156,7 +156,8 @@ multi method irc-to-me(Message $msg where .text ~~ /:i^ help ‘?’? $/) {
 }
 multi method irc-to-me(Message $msg where .text ~~ /:i^ uptime $/) {
     use nqp;
-    (denominate now - INIT now) ~ ‘. ’
+    (denominate now - INIT now) ~ ‘, ’
+    ~ nqp::atpos_i(nqp::getrusage(), nqp::const::RUSAGE_MAXRSS).fmt(‘%.2f’)/1000 ~ ‘KB maxrss. ’
     ~ (with nqp::getcomp("perl6") {
         “This is {.implementation} version {.config<version>} ”
         ~ “built on {.backend.version_string} ”
diff --git a/t/lib/Testable.pm6 b/t/lib/Testable.pm6
index 1a0026d..525aed1 100644
--- a/t/lib/Testable.pm6
+++ b/t/lib/Testable.pm6
@@ -94,6 +94,10 @@ class Testable {
     }
 
     method end {
+        my $answer;
+        self.test(‘_’, “{$.bot-nick}: uptime”, {$answer=$_; True});
+        “logs/tests/$!bot-nick-{now.DateTime}.log”.IO.spurt: $answer;
+
         $!bot-proc.kill;
         $!irc-client.quit;
         sleep 2