File: comment.t

package info (click to toggle)
libapache-admin-config-perl 0.94-1
  • links: PTS
  • area: main
  • in suites: etch, etch-m68k
  • size: 188 kB
  • ctags: 67
  • sloc: perl: 881; makefile: 3
file content (17 lines) | stat: -rw-r--r-- 331 bytes parent folder | download | duplicates (5) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
use strict;
use Test;
plan test => 5;

use Apache::Admin::Config;
ok(1);

my $apache = new Apache::Admin::Config ('t/httpd.conf-dist');
ok(defined $apache);

my @list = $apache->comment;
ok(@list, 85);

my $sec = $apache->section(-which=>1);
ok(defined $sec);
my $comment = $sec->comment(-which=>0);
ok($comment->first_line, 304);