view release on metacpan or  search on metacpan

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

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);