The London Perl and Raku Workshop takes place on 26th Oct 2024. If your company depends on Perl, please consider sponsoring and/or attending.
use Test::More tests=>13;
eval {
	require Test::NoWarnings;
	Test::NoWarnings->import();
	1;
} or do {
	SKIP: {
		skip "Test::NoWarnings is not installed", 1;
		fail "This shouldn't really happen at all";
	};
};
chdir "t";
no warnings;


require Dtest;
use warnings;
use strict;
$Dotiac::DTL::ALLOWED_INCLUDE_ROOTS=1;
dtest("tag_ssi.html","AB\nACA\nB\nA\n",{var1=>B=>var2=>C=>inc_name=>"inc_more.html",inc_object=>"inc_var.html"});
dtest("tag_ssi_static.html","A{{ var1 }}\nA{{ var2 }}A\n{{ var1 }}\nA\n",{var1=>B=>var2=>C=>inc_name=>"inc_more.html",inc_object=>"inc_var.html"});
my $inc=Dotiac::DTL->new("inc_var.html");
$Dotiac::DTL::ALLOWED_INCLUDE_ROOTS=0;