view release on metacpan or search on metacpan
t/00compact.t view on Meta::CPAN
# -*- perl -*-
use lib qw(t lib);
use strict;
use Test;
plan test => 1;
use TestPreproc;
my $obj = new TestPreproc -expand => [qw(compact)];
ok($obj->dump_raw, $obj->dump_expect);
__DATA__
!>httpd.conf
t/01include00.t view on Meta::CPAN
# -*- perl -*-
use lib qw(t lib);
use strict;
use Test;
plan test => 1;
use TestPreproc;
my $obj = new TestPreproc -expand => [qw(include)];
ok($obj->dump_raw, $obj->dump_expect);
__DATA__
t/01include01.t view on Meta::CPAN
# -*- perl -*-
use lib qw(t lib);
use strict;
use Test;
plan test => 1;
use TestPreproc;
# Test include by globbing pattern
my $obj = new TestPreproc -expand => [qw(include)];
ok($obj->dump_raw, $obj->dump_expect);
__DATA__
!>httpd.conf
t/01include02.t view on Meta::CPAN
# -*- perl -*-
use lib qw(t lib);
use strict;
use Test;
plan test => 1;
use TestPreproc;
# Test nested includes
my $obj = new TestPreproc -expand => [qw(include)];
ok($obj->dump_raw, $obj->dump_expect);
__DATA__
t/01include03.t view on Meta::CPAN
# -*- perl -*-
use lib qw(t lib);
use strict;
use Test;
plan test => 2;
use TestPreproc;
# Test recursive inclusion handling
ok(!new TestPreproc '-expect_fail', -expand => [qw(include)]);
ok($Apache::Admin::Config::ERROR, qr/level1.conf already included/);
__DATA__
!>httpd.conf
t/01include04.t view on Meta::CPAN
# -*- perl -*-
use lib qw(t lib);
use strict;
use Test;
plan test => 1;
use TestPreproc;
# Test whether a file can be included non-recursively multiple times
my $obj = new TestPreproc -expand => [qw(include)];
ok($obj->dump_raw, $obj->dump_expect);
__DATA__
t/02incopt00.t view on Meta::CPAN
# -*- perl -*-
use lib qw(t lib);
use strict;
use Test;
plan test => 1;
use TestPreproc;
# Test IncludeOptional
my $obj = new TestPreproc '-compact';
ok($obj->dump_raw, $obj->dump_expect);
__DATA__
!>httpd.conf
t/02incopt01.t view on Meta::CPAN
# -*- perl -*-
use lib qw(t lib);
use strict;
use Test;
plan test => 1;
use TestPreproc;
my $obj = new TestPreproc '-compact';
ok($obj->dump_raw, $obj->dump_expect);
__DATA__
!>httpd.conf
t/03ifmodule00.t view on Meta::CPAN
# -*- perl -*-
use lib qw(t lib);
use strict;
use Test;
plan test => 1;
use TestPreproc;
my $obj = new TestPreproc -expand => [qw(ifmodule)];
ok($obj->dump_raw, $obj->dump_expect);
__DATA__
t/03ifmodule01.t view on Meta::CPAN
# -*- perl -*-
use lib qw(t lib);
use strict;
use Test;
plan test => 4;
use TestPreproc;
my $obj = new TestPreproc -expand => [qw(ifmodule)];
ok($obj->dump_raw, $obj->dump_expect);
$obj = new TestPreproc -expand => [qw(ifmodule)];
t/04macro00.t view on Meta::CPAN
# -*- perl -*-
use lib qw(t lib);
use strict;
use Test;
plan test => 1;
use TestPreproc;
my $obj = new TestPreproc -expand => ['macro'];
ok($obj->dump_raw, $obj->dump_expect);
__DATA__
t/04macro01.t view on Meta::CPAN
# -*- perl -*-
use lib qw(t lib);
use strict;
use Test;
plan test => 1;
use TestPreproc;
my $obj = new TestPreproc -expand => ['macro'];
ok($obj->dump_raw, $obj->dump_expect);
__DATA__
t/04macro02.t view on Meta::CPAN
# -*- perl -*-
use lib qw(t lib);
use strict;
use Test;
plan test => 1;
use TestPreproc;
my $obj = new TestPreproc -expand => [ { macro => [ keep => 'SSL' ] } ];
ok($obj->dump_raw, $obj->dump_expect);
__DATA__
!>httpd.conf
t/05ifdefine00.t view on Meta::CPAN
# -*- perl -*-
use lib qw(t lib);
use strict;
use Test;
plan test => 3;
use TestPreproc;
my $obj = new TestPreproc -expand => ['ifdefine'];
ok($obj->dump_raw, $obj->dump_expect);
$obj = new TestPreproc -expand => [ { ifdefine => [qw(VAR)] } ];
t/05ifdefine01.t view on Meta::CPAN
# -*- perl -*-
use lib qw(t lib);
use strict;
use Test;
plan test => 1;
use TestPreproc;
my $obj = new TestPreproc -expand => ['ifdefine'];
ok($obj->dump_raw, $obj->dump_expect);
__DATA__
t/05ifdefine02.t view on Meta::CPAN
# -*- perl -*-
use lib qw(t lib);
use strict;
use Test;
plan test => 1;
use TestPreproc;
my $obj = new TestPreproc -expand => ['ifdefine'];
ok($obj->dump_raw, $obj->dump_expect);
__DATA__
t/06locus00.t view on Meta::CPAN
# -*- perl -*-
use lib qw(t lib);
use strict;
use Test;
plan test => 1;
use TestPreproc;
my $obj = new TestPreproc -expand => [qw(locus)];
ok($obj->dump_reformat_synclines, $obj->dump_expect)
__DATA__
!>httpd.conf
t/06locus01.t view on Meta::CPAN
# -*- perl -*-
use lib qw(t lib);
use strict;
use Test;
plan test => 1;
use TestPreproc;
my $obj = new TestPreproc -expand => [qw(locus)],
'-no-comment-grouping' => 1,
'-no-blank-grouping' => 1;
ok($obj->dump_reformat_synclines, $obj->dump_expect)
t/06locus02.t view on Meta::CPAN
# -*- perl -*-
use lib qw(t lib);
use strict;
use Test;
plan test => 1;
use TestPreproc;
my $obj = new TestPreproc -expand => [qw(locus)];
ok($obj->dump_reformat_synclines eq $obj->dump_expect);
__DATA__
!>httpd.conf
t/06locus03.t view on Meta::CPAN
# -*- perl -*-
use lib qw(t lib);
use strict;
use Test;
plan test => 1;
use TestPreproc;
my $obj = new TestPreproc -expand => [qw(locus include)];
ok($obj->dump_reformat_synclines,$obj->dump_expect);
__DATA__
!>httpd.conf
t/06locus04.t view on Meta::CPAN
# -*- perl -*-
use lib qw(t lib);
use strict;
use Test;
plan test => 1;
use TestPreproc;
my $obj = new TestPreproc -expand => [qw(locus macro)];
ok($obj->dump_reformat_synclines,$obj->dump_expect);
__DATA__
!>httpd.conf
t/06locus05.t view on Meta::CPAN
# -*- perl -*-
use lib qw(t lib);
use strict;
use Test;
plan test => 3;
use TestPreproc;
my $obj = new TestPreproc -expand => ['locus', 'ifdefine'];
ok($obj->dump_reformat_synclines, $obj->dump_expect);
$obj = new TestPreproc -expand => [ 'locus', { ifdefine => [qw(VAR)] } ];
t/06locus06.t view on Meta::CPAN
# -*- perl -*-
use lib qw(t lib);
use strict;
use Test;
plan test => 1;
use TestPreproc;
my $obj = new TestPreproc -expand => [qw(locus ifmodule)];
ok($obj->dump_reformat_synclines, $obj->dump_expect);
__DATA__
t/99all00.t view on Meta::CPAN
# -*- perl -*-
use lib qw(t lib);
use strict;
use Test;
plan test => 1;
use TestPreproc;
my $obj = new TestPreproc -expand => [qw(compact include ifmodule macro ifdefine)];
ok($obj->dump_raw, $obj->dump_expect);
__DATA__
!>httpd.conf