File: 05autoload.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 (18 lines) | stat: -rwxr-xr-x 413 bytes parent folder | download | duplicates (4) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 

use Test::More tests => 8;
BEGIN { use_ok('Config::ApacheFormat'); }

my $config = Config::ApacheFormat->new();
isa_ok($config, 'Config::ApacheFormat');
$config->autoload_support(1);
$config->read("t/basic.conf");

is($config->foo, "bar");
is(($config->biff)[0], "baz");
is(($config->biff)[1], "bop");

my @bopbop = $config->bopbop;
is($bopbop[1], 'hello "world"');
is($bopbop[3], 'to');

is($config->get(), 4);