[app-statsbot.git] / t / App-Statsbot.t

#!/usr/bin/perl
use strict;
use warnings;

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/;
Commit	Line	Data
3cdbe256 MG	1	#!/usr/bin/perl
	2	use strict;
	3	use warnings;
	4
6e23c401	5	use Test::More tests => 6;
3cdbe256 MG	6	BEGIN { use_ok('App::Statsbot') };
3cdbe256 MG	7
6e23c401 MG	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/;