1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42
|
#!/usr/bin/perl -T
# 05_purge.t
use Test::More tests => 10;
use Paranoid;
use Parse::PlainConfig::Legacy;
use strict;
use warnings;
psecureEnv();
my $testrc = "./t/v2_testrc";
my $conf = Parse::PlainConfig::Legacy->new(FILE => $testrc);
my (@params, $p);
ok( $conf->read, 'read 1' );
@params = $conf->parameters;
ok( scalar @params > 1, 'has parameters 1' );
ok( $conf->purge, 'purge 1');
@params = $conf->parameters;
ok( scalar @params == 0, 'has parameters 2' );
$conf = Parse::PlainConfig::Legacy->new(
FILE => $testrc,
DEFAULTS => {
'SCALAR 1' => 'foo',
'SCALAR 2' => 'bar',
'UNDEC' => 5,
},
);
ok( $conf->read, 'read 2' );
ok( $conf->purge, 'purge 2');
@params = $conf->parameters;
ok( scalar @params > 1, 'has parameters 3' );
($p) = grep /^UNDEC$/, @params;
ok( $p eq 'UNDEC', 'has default parameter' );
is( $conf->parameter( 'UNDEC' ), 5, 'default param value match' );
@params = $conf->parameters;
ok( scalar @params == 3, 'has parameters 4' );
# end 05_purge.t
|