X-Git-Url: http://git.ieval.ro/?p=app-statsbot.git;a=blobdiff_plain;f=t%2FApp-Statsbot.t;fp=t%2FApp-Statsbot.t;h=cf8e1dd07181162802d23a27783fac2f4eca1559;hp=2f005c68a73bb899fc5c08e01f02271c3fd521ed;hb=6e23c401b100443891e08cae05b36a1e2b1c43ea;hpb=490e26f9bf344184da03c64458dbe28e3f49f208

diff --git a/t/App-Statsbot.t b/t/App-Statsbot.t
index 2f005c6..cf8e1dd 100644
--- a/t/App-Statsbot.t
+++ b/t/App-Statsbot.t
@@ -2,6 +2,32 @@
 use strict;
 use warnings;
 
-use Test::More tests => 1;
+use Test::More tests => 6;
 BEGIN { use_ok('App::Statsbot') };
 
+my ($time, $reply);
+
+BEGIN {
+	no warnings 'redefine';
+	*App::Statsbot::_nick_name = sub { 'statsbot' };
+	*App::Statsbot::_yield     = sub { $reply = $_[2] };
+	*App::Statsbot::_uptime    = sub { $time };
+}
+
+sub runtest {
+	my ($uptime, $msg, $exp_re) = @_;
+	$time = $uptime;
+	$reply = '';
+	my @args;
+	@args[App::Statsbot::ARG1, App::Statsbot::ARG2] = ('', $msg);
+	App::Statsbot::on_public(@args);
+	like $reply, $exp_re, "$msg with 0 seconds";
+}
+
+my $magicnr = 13980000;
+
+runtest 0, '!presence mgv', qr/mgv was here 0 hours during the last 1 day/;
+runtest $magicnr, '!presence mgv "1 year"', qr/here 3883 hours during/;
+runtest $magicnr, '!presence mgv "1 year" 1', qr/here 162 days during/;
+runtest $magicnr, '!presence mgv "1 year" 2', qr/here 161 days and 19 hours during/;
+runtest $magicnr, '!presence mgv "1 year" 20', qr/here 161 days, 19 hours, and 20 minutes during/;