view release on metacpan or  search on metacpan

lib/Test/AnsibleModule.pm  view on Meta::CPAN

package Test::AnsibleModule;

use Mojo::Base -base;
use Test::More;
use Mojo::JSON qw/decode_json encode_json/;
use Mojo::Asset::File;
use Carp qw/croak/;
use Data::Dumper qw/Dumper/;
$Data::Dumper::Sortkeys++;

has 'last_response';
has 'success';

sub fail_ok {
  my $self = shift;
  my $rc   = $self->exec_module(@_);
  $self->_test('ok', $rc, 'Returned non-zero return code');
}

t/02_test.t  view on Meta::CPAN

use Test::More;
use strict;
use warnings;
use Data::Dumper qw/Dumper/;

use_ok('Test::AnsibleModule');
my $t = Test::AnsibleModule->new;
$t->run_ok('t/ext/exit_json', {});
$t->is_response({changed => 0, msg => "exit_json"}, 'Response as expected');
$t->fail_ok('t/ext/fail_json', {});
$t->is_response({msg => "fail_json", failed => 1}, 'Response as expected');
$t->run_ok('t/ext/echo', {hello => 'world'});
$t->is_response({changed => 0, msg => "echo", hello => 'world'},
  'Response as expected');