t/App-Statsbot.t

   1 #!/usr/bin/perl
   2 use strict;
   3 use warnings;
   4
   5 use Test::More tests => 6;
   6 BEGIN { use_ok('App::Statsbot') };
   7
   8 my ($time, $reply);
   9
  10 BEGIN {
  11         no warnings 'redefine';
  12         *App::Statsbot::_nick_name = sub { 'statsbot' };
  13         *App::Statsbot::_yield     = sub { $reply = $_[2] };
  14         *App::Statsbot::_uptime    = sub { $time };
  15 }
  16
  17 sub runtest {
  18         my ($uptime, $msg, $exp_re) = @_;
  19         $time = $uptime;
  20         $reply = '';
  21         my @args;
  22         @args[App::Statsbot::ARG1, App::Statsbot::ARG2] = ('', $msg);
  23         App::Statsbot::on_public(@args);
  24         like $reply, $exp_re, "$msg with 0 seconds";
  25 }
  26
  27 my $magicnr = 13980000;
  28
  29 runtest 0, '!presence mgv', qr/mgv was here 0 hours during the last 1 day/;
  30 runtest $magicnr, '!presence mgv "1 year"', qr/here 3883 hours during/;
  31 runtest $magicnr, '!presence mgv "1 year" 1', qr/here 162 days during/;
  32 runtest $magicnr, '!presence mgv "1 year" 2', qr/here 161 days and 19 hours during/;
  33 runtest $magicnr, '!presence mgv "1 year" 20', qr/here 161 days, 19 hours, and 20 minutes during/;