#!/perl
use
strict;
use
Test::Differences;
use
YAML;
use
Wubot::Logger;
{
ok(
my
$check
= Wubot::Plugin::OsxActiveApp->new( {
class
=>
'Wubot::Plugin::OsxActiveApp'
,
cache_file
=>
'/dev/null'
,
key
=>
'OsxActiveApp-test'
,
} ),
"Creating a new OSX Active App check instance"
);
ok(
my
$results
=
$check
->check( {} ),
"Calling check() method"
);
ok(
$results
->{react}->{application},
"Checking that an active application was found: $results->{react}->{application}"
);
}