view release on metacpan or  search on metacpan

t/lib/cgi/application/plugin/config/std.t  view on Meta::CPAN

# 2..11
# ok, set the environment variable to make sure we can get that 
{
    $ENV{CGIAPP_CONFIG_FILE} = 't/test.ini';
    my $value = $self->config_file();
    is($value, 't/test.ini', 'Config file name from %ENV');
  
    # now let's get a few parameters
    $value = $self->config_param('block1.param11');
    is($value, 'value11', 'Simple ini-file param 1');
    $value = $self->config_param('block2.param22');
    is($value, 'value22', 'Simple ini-file param 2');
    
    # now let's set some parameters
    $value = $self->config_param( 'block1.param11' => 'testing11'
                                , 'block2.param22' => 'testing22');
    ok($value, 'Set ini-file params 1');
    # and test their values
    $value = $self->config_param('block1.param11');
    is($value, 'testing11', 'Simple ini-file param 1');
    $value = $self->config_param('block2.param22');
    is($value, 'testing22', 'Simple ini-file param 2');
    # now let's set them back
    $value = $self->config_param('block1.param11' => 'value11', 'block2.param22' => 'value22');
    ok($value, 'Set ini-file params 2');
    
    # now let's get all of the values in a hash
    $value = $self->config_param();
    is(ref($value), 'HASH', 'Get all ini-file params');

    # now let's test this hash's values
    is($value->{block1}{param11}, 'value11', 'Testing individual elements of entire config hash 1');
    is($value->{block2}{param22}, 'value22', 'Testing individual elements of entire config hash 2');
}

# 12..16
# now let's change config files
{
    my $value = $self->config_file('t/test.conf');
    is($value, 't/test.conf', 'Change config file');

    # now let's test these values
    $value = $self->config_param('base.param1');
    is($value, 'value1', 'Simple config param 1');
    $value = $self->config_param('base.param2');
    is($value, 'value2', 'Simple config param 2');
    $value = $self->config_param('base.param3');
    is($value, 'value3', 'Simple config param 3');
    
    # now let's test the config() method to see if we get a Config::Simple object
    $value = $self->config();
    is(ref($value), 'Config::Std::Hash', 'config() returned expected object');
}

# 17..20
# lets cause some errors
SKIP: {
    # try to change it's permissions
    my $new_file = 't/test_unwriteable.ini';
    chmod(0000, $new_file) || die "Could not chmod $new_file! $!";
    # skip these tests if we can still read the file
    # cause we're probably running as root
    skip('user wont have permission issues', 4) if( -r $new_file );

    # un readable file
    $self->config_file($new_file);
    throws_ok { $self->config_param('param1') }
              qr/Permission denied/i, 'un readable file';

    # un writeable file
    chmod(0400, $new_file)
        || die "Could not chmod $new_file! $!";
    my $value = $self->config_file($new_file);
    is($value, $new_file, 'new unwriteable file');
    lives_ok  { $self->config_param(param1 => 'xyz') }
              'Set param ok';
    throws_ok { $self->commit_config() }
              qr/\(permission denied\)/i, 'could not write';

    # don't specify a config file
    $ENV{CGIAPP_CONFIG_FILE} = '';
    $self->config_file('');
    throws_ok  { $self->config_param('param1') }
              qr/No config file/i, 'no file given';
}


done_testing;