view release on metacpan or  search on metacpan

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__
!>httpd.conf
ServerName localhost
<Macro SSL $domain>
SSLEngine on
SSLCertificateFile /etc/ssl/acme/$domain.pem
</Macro>
<Macro vhost $name $port $dir>
<VirtualHost *:$port>
ServerName $name
DocumentRoot $dir
Use SSL $name
</VirtualHost>
</Macro>

Use vhost foo 80 /var/www/foo
!=
ServerName localhost

<VirtualHost *:80>
ServerName foo
DocumentRoot /var/www/foo
SSLEngine on
SSLCertificateFile /etc/ssl/acme/foo.pem
</VirtualHost>
!$