diff options
-rw-r--r-- | t/01include04.t | 38 |
1 files changed, 38 insertions, 0 deletions
diff --git a/t/01include04.t b/t/01include04.t new file mode 100644 index 0000000..79d430a --- /dev/null +++ b/t/01include04.t @@ -0,0 +1,38 @@ +# -*- 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__ +!>httpd.conf +ServerType standalone +ServerRoot "$server_root" +<VirtualHost *:80> + ServerName foo.bar.example.com + Include req.conf +</VirtualHost> +<VirtualHost *:80> + ServerName quux.example.com + Include req.conf +</VirtualHost> +!>req.conf +Require all granted +!= +ServerType standalone +ServerRoot "$server_root" +<VirtualHost *:80> + ServerName foo.bar.example.com +Require all granted +</VirtualHost> +<VirtualHost *:80> + ServerName quux.example.com +Require all granted +</VirtualHost> +!$ + |