]>
Commit | Line | Data |
---|---|---|
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/; |