view release on metacpan or  search on metacpan

t/40-util-vars-keeptempfiles.t  view on Meta::CPAN

use Test::More;
use Modern::Perl;
use Data::Printer alias => 'pdump';
use File::Temp 'tempdir';
use Util::Medley::File;

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

use vars qw($File);

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

$File = Util::Medley::File->new;

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

my $vars = Ansible::Util::Vars->new(keepTempFiles => 1);
ok($vars);
ok($vars->clearCache);

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

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

	$test1->chdir;

    my $href = $vars->getVars(['states']);
    ok( exists $href->{states} );
    
    #
    # ensure tempfiles were not cleaned up
    #
    my @files = @{ $vars->_tempFiles };
    my $tempDir = $vars->_tempDir;
    $vars = undef;
    
    foreach my $file (@files) {
        ok( -f $file );
        $File->unlink($file);
    }
    
    $File->rmdir($tempDir);
}

done_testing();

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

sub _getVars {
    my $vars = shift;
    
    eval {
        $vars->getVars;	
    }	;
    ok($@);
}

sub getVars {
	my $vars = shift;