| 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/; |