File: 11expandvars.t

package info (click to toggle)
libconfig-apacheformat-perl 1.2-4
  • links: PTS, VCS
  • area: main
  • in suites: jessie, jessie-kfreebsd, lenny, squeeze, wheezy
  • size: 828 kB
  • ctags: 19
  • sloc: perl: 408; makefile: 45
file content (24 lines) | stat: -rwxr-xr-x 818 bytes parent folder | download | duplicates (4)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24

use Test::More tests => 13;
BEGIN { use_ok 'Config::ApacheFormat' };

my $config = Config::ApacheFormat->new(expand_vars => 1);
$config->read("t/expandvars.conf");

is($config->get('Onevar'), 'A/B');
is($config->get('twovar'), 'A/A');

is($config->get('website'), 'http://my.own.dom');
is($config->get('JScript'), 'http://my.own.dom/js');
is($config->get('Images'), 'http://my.own.dom/images');
is($config->get('private'), 'http://my.own.dom/prv');

is($config->get('basedir'), '/etc');
is($config->get('fullconfig'), '/etc/apache/httpd.conf');
is($config->get('baseconfig'), '/etc/apache/base.httpd.conf');

is($config->block(subcontext => 'Vartest')->get('kiffy'), '/etc/apache/vhost.conf');

is($config->get('money'), '$12.00');
is($config->get('another'), 'The A $String is http://my.own.dom/prvly ${escaped}');