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 Raku#197.
MasterDuke17 · Sep 20, 2017 · c6aa350 · c6aa350
1 parent 69330d1
commit c6aa350
Show file tree

Hide file tree

Showing 2 changed files with 6 additions and 1 deletion.
diff --git 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
@@ -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