view release on metacpan or  search on metacpan

t/30-util-vars-testset1.t  view on Meta::CPAN

use Test::More;
use Modern::Perl;
use Data::Printer alias => 'pdump';

use lib 't/';
use Local::Ansible::Test1;

#########################################

use_ok('Ansible::Util::Vars');

my $vars = Ansible::Util::Vars->new;
isa_ok( $vars, 'Ansible::Util::Vars' );

#
# verify default cache setting is enabled
#
ok($vars->cacheEnabled);
ok($vars->Cache->enabled);

#
# disableCache
#
my $prev;
ok( $prev = $vars->disableCache );    # $prev should be true
ok(!$vars->Cache->enabled);

#
# enableCache
#
$prev = $vars->enableCache;
ok( !$prev );    # prev should be false
ok($vars->Cache->enabled);

#
# clearCache
#
ok( $vars->clearCache );    # always returns true

my $test1 = Local::Ansible::Test1->new;

SKIP: {
	skip "ansible-playbook executable not found"
	  unless $test1->ansiblePlaybookExeExists;

	$test1->chdir;

	getVars($vars);
	getVar($vars);
	getValue($vars);

    #
    # ensure tempfile cleanup worked
    #
	my @files = @{ $vars->_tempFiles };
	$vars = undef;
	
	foreach my $file (@files) {
		ok( !-f $file );
	}
}