...

#============================================================= -*-perl-*-
#
# t/block.t
#
# Template script testing BLOCK definitions.  A BLOCK defined in a 
# template incorporated via INCLUDE should not be visible (i.e. 
# exported) to the calling template.  In the same case for PROCESS,
# the block should become visible.
#
# Written by Andy Wardley <abw@wardley.org>
#
# Copyright (C) 1996-2000 Andy Wardley.  All Rights Reserved.
# Copyright (C) 1998-2000 Canon Research Centre Europe Ltd.
#
# This is free software; you can redistribute it and/or modify it
# under the same terms as Perl itself.
#
# $Id$
#
#========================================================================

use strict;
use lib qw( ./lib ../lib );
use Template::Test;
$^W = 1;

$Template::Test::DEBUG = 0;
#$Template::Parser::DEBUG = 1;
#$Template::Directive::PRETTY = 1;

my $ttcfg = {
    INCLUDE_PATH => [ qw( t/test/lib test/lib ) ],	
    POST_CHOMP   => 1,
    BLOCKS       => {
	header   => '<html><head><title>[% title %]</title></head><body>',
	footer   => '</body></html>',
	block_a  => sub { return 'this is block a' },
	block_b  => sub { return 'this is block b' },
    },
};

test_expect(\*DATA, $ttcfg, &callsign);

__DATA__

-- test --
[% BLOCK block1 %]
This is the original block1
[% END %]
[% INCLUDE block1 %]
[% INCLUDE blockdef %]
[% INCLUDE block1 %]

-- expect --
This is the original block1
start of blockdef
end of blockdef
This is the original block1

-- test --
[% BLOCK block1 %]
This is the original block1
[% END %]
[% INCLUDE block1 %]
[% PROCESS blockdef %]
[% INCLUDE block1 %]

-- expect --
This is the original block1
start of blockdef
end of blockdef
This is block 1, defined in blockdef, a is alpha

-- test --
[% INCLUDE block_a +%]
[% INCLUDE block_b %]
-- expect --
this is block a
this is block b

-- test --
[% INCLUDE header 
   title = 'A New Beginning'
+%]
A long time ago in a galaxy far, far away...
[% PROCESS footer %]

-- expect --
<html><head><title>A New Beginning</title></head><body>
A long time ago in a galaxy far, far away...
</body></html>

-- test --
[% BLOCK foo:bar %]
blah
[% END %]
[% PROCESS foo:bar %]
-- expect --
blah

-- test --
[% BLOCK 'hello html' -%]
Hello World!
[% END -%]
[% PROCESS 'hello html' %]
-- expect --
Hello World!

-- test --
<[% INCLUDE foo %]>
[% BLOCK foo %][% END %]
-- expect --
<>

-- stop --
# these test the experimental BLOCK args feature which will hopefully allow
# parser/eval options to be set for different blocks

-- test --
[% BLOCK foo eval_perl=0 tags="star" -%]
This is the foo block
[% END -%]
foo: [% INCLUDE foo %]
-- expect --
foo: This is the foo block

-- test --
[% BLOCK eval_perl=0 tags="star" -%]
This is an anonymous block
[% END -%]
-- expect --
This is an anonymous block

.	Edit
..	Edit
README	Edit
anycase.t	Edit
args.t	Edit
assert.t	Edit
base.t	Edit
binop.t	Edit
block.t	Edit
block_duplicate.t	Edit
blocks.t	Edit
capture.t	Edit
case.t	Edit
chomp.t	Edit
compile1.t	Edit
compile2.t	Edit
compile3.t	Edit
compile4.t	Edit
compile5.t	Edit
config.t	Edit
constants.t	Edit
context.t	Edit
datafile.t	Edit
date.t	Edit
date_offset.t	Edit
date_utf8.t	Edit
debug.t	Edit
directive.t	Edit
directry.t	Edit
document.t	Edit
dumper.t	Edit
error.t	Edit
evalperl.t	Edit
exception.t	Edit
factory.t	Edit
file.t	Edit
fileline.t	Edit
filter.t	Edit
foreach.t	Edit
format.t	Edit
html.t	Edit
image.t	Edit
include.t	Edit
iterator.t	Edit
leak.t	Edit
lib	Edit
list.t	Edit
load_order_vmethods_stash.t	Edit
macro.t	Edit
math.t	Edit
math_rand.t	Edit
meta.t	Edit
mtime-zero.t	Edit
object.t	Edit
outline.t	Edit
outline_line.t	Edit
output.t	Edit
parser.t	Edit
parser2.t	Edit
plugins.t	Edit
plusfile.t	Edit
pod.t	Edit
prefix.t	Edit
proc.t	Edit
process-relative.t	Edit
process.t	Edit
process_dir.t	Edit
provider.t	Edit
ref.t	Edit
scalar.t	Edit
service.t	Edit
skel.t	Edit
stash-xs-unicode.t	Edit
stash-xs.t	Edit
stash.t	Edit
stashc.t	Edit
stop.t	Edit
strcat.t	Edit
strict.t	Edit
string.t	Edit
switch.t	Edit
table.t	Edit
tags.t	Edit
template.t	Edit
test	Edit
text.t	Edit
throw.t	Edit
tiedhash.t	Edit
trace_vars.t	Edit
try.t	Edit
unicode.t	Edit
url.t	Edit
vars.t	Edit
varsv1.t	Edit
view.t	Edit
vmethods	Edit
while.t	Edit
wrap.t	Edit
wrapper.t	Edit
zz-plugin-cycle.t	Edit
zz-plugin-leak-gh-213.t	Edit
zz-plugin-leak-rt-46691.t	Edit
zz-plugin-leak.t	Edit
zz-pmv.t	Edit
zz-pod-coverage.t	Edit
zz-pod-kwalitee.t	Edit
zz-stash-xs-leak.t	Edit
zz-url2.t	Edit