use strict;
use warnings;
use Hubot::Robot;
use lib 't/lib';
use Test::More tests => 4;
my $robot = Hubot::Robot->new(
{
adapter => 'helper',
name => 'hubot'
}
);
$robot->loadHubotScripts( [ "help", "googleImage" ] );
$robot->adapter->interval(3);
push @{ $robot->{receive} },
(
'hubot help image',
"hubot image psy",
"hubot animate psy",
"hubot mustache psy",
);
$robot->run;
my $got;
$got = shift @{ $robot->{sent} };
ok( "@$got", 'containing help messages' );
$got = shift @{ $robot->{sent} };
like( "@$got", qr/http/, 'got image url from query' );
$got = shift @{ $robot->{sent} };
like( "@$got", qr/http/, 'got gif url from query' );
$got = shift @{ $robot->{sent} };
like( "@$got", qr/http/, 'got mutache url from query' );