From Code to Community: Sponsoring The Perl and Raku Conference 2025 Learn more

#!/perl
use strict;
use File::Temp qw/ tempdir /;
use Test::More 'no_plan';
use YAML;
{
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}"
);
}