Gecko [ dp-client.com ]

Name	Size	Permission
lib	[ DIR ]	drwxr-xr-x
test	[ DIR ]	drwxr-xr-x
vmethods	[ DIR ]	drwxr-xr-x
README	3.15 KB	-rw-r--r--
anycase.t	2.16 KB	-rw-r--r--
args.t	2.41 KB	-rw-r--r--
assert.t	2.53 KB	-rw-r--r--
base.t	3.58 KB	-rw-r--r--
binop.t	4.82 KB	-rw-r--r--
block.t	2.71 KB	-rw-r--r--
block_duplicate.t	476 B	-rw-r--r--
blocks.t	2.2 KB	-rw-r--r--
capture.t	1.59 KB	-rw-r--r--
case.t	1.46 KB	-rw-r--r--
cgi.t	2.11 KB	-rw-r--r--
chomp.t	7.71 KB	-rw-r--r--
compile1.t	2.12 KB	-rw-r--r--
compile2.t	2.67 KB	-rw-r--r--
compile3.t	3.75 KB	-rw-r--r--
compile4.t	2.38 KB	-rw-r--r--
compile5.t	3.28 KB	-rw-r--r--
config.t	6.46 KB	-rw-r--r--
constants.t	5.07 KB	-rw-r--r--
context.t	5.87 KB	-rw-r--r--
datafile.t	1.63 KB	-rw-r--r--
date.t	6.73 KB	-rw-r--r--
date_offset.t	2.17 KB	-rw-r--r--
debug.t	3.86 KB	-rw-r--r--
directive.t	4.76 KB	-rw-r--r--
directry.t	5.48 KB	-rw-r--r--
document.t	3.57 KB	-rw-r--r--
dumper.t	1.34 KB	-rw-r--r--
error.t	953 B	-rw-r--r--
evalperl.t	3.73 KB	-rw-r--r--
exception.t	1.52 KB	-rw-r--r--
factory.t	1.4 KB	-rw-r--r--
file.t	2.87 KB	-rw-r--r--
fileline.t	2.96 KB	-rw-r--r--
filter.t	17.76 KB	-rw-r--r--
foreach.t	10.32 KB	-rw-r--r--
format.t	1.8 KB	-rw-r--r--
html.t	2.51 KB	-rw-r--r--
image.t	2.22 KB	-rw-r--r--
include.t	6.04 KB	-rw-r--r--
iterator.t	3.67 KB	-rw-r--r--
leak.t	5.01 KB	-rw-r--r--
list.t	4.41 KB	-rw-r--r--
macro.t	2.93 KB	-rw-r--r--
math.t	1.22 KB	-rw-r--r--
math_rand.t	476 B	-rw-r--r--
mtime-zero.t	1.04 KB	-rw-r--r--
object.t	7.23 KB	-rw-r--r--
outline.t	2.29 KB	-rw-r--r--
output.t	2.66 KB	-rw-r--r--
parser.t	4.74 KB	-rw-r--r--
parser2.t	981 B	-rw-r--r--
plugins.t	6.12 KB	-rw-r--r--
plusfile.t	1.91 KB	-rw-r--r--
pod.t	2.05 KB	-rw-r--r--
prefix.t	1.46 KB	-rw-r--r--
proc.t	867 B	-rw-r--r--
process-relative.t	2.05 KB	-rw-r--r--
process.t	1.88 KB	-rw-r--r--
process_dir.t	1.84 KB	-rw-r--r--
provider.t	11.08 KB	-rw-r--r--
ref.t	1.63 KB	-rw-r--r--
scalar.t	2.56 KB	-rw-r--r--
service.t	5.07 KB	-rw-r--r--
skel.t	947 B	-rw-r--r--
stash-xs-unicode.t	1.83 KB	-rw-r--r--
stash-xs.t	8.23 KB	-rw-r--r--
stash.t	7.91 KB	-rw-r--r--
stashc.t	1.6 KB	-rw-r--r--
stop.t	2.53 KB	-rw-r--r--
strcat.t	758 B	-rw-r--r--
strict.t	1.52 KB	-rw-r--r--
string.t	7.38 KB	-rw-r--r--
switch.t	3.83 KB	-rw-r--r--
table.t	2.68 KB	-rw-r--r--
tags.t	3.43 KB	-rw-r--r--
template.t	1.49 KB	-rw-r--r--
text.t	2.89 KB	-rw-r--r--
throw.t	1.94 KB	-rw-r--r--
tiedhash.t	5.09 KB	-rw-r--r--
trace_vars.t	1.11 KB	-rw-r--r--
try.t	9.83 KB	-rw-r--r--
unicode.t	4.55 KB	-rw-r--r--
url.t	4.08 KB	-rw-r--r--
vars.t	11.36 KB	-rw-r--r--
varsv1.t	8.96 KB	-rw-r--r--
view.t	17.43 KB	-rw-r--r--
while.t	3.18 KB	-rw-r--r--
wrap.t	2.65 KB	-rw-r--r--
wrapper.t	3.95 KB	-rw-r--r--
zz-plugin-cycle.t	1.36 KB	-rw-r--r--
zz-plugin-leak-gh-213.t	2.77 KB	-rw-r--r--
zz-plugin-leak-rt-46691.t	2.95 KB	-rw-r--r--
zz-plugin-leak.t	2.02 KB	-rw-r--r--
zz-pmv.t	1.15 KB	-rw-r--r--
zz-pod-coverage.t	1.64 KB	-rw-r--r--
zz-pod-kwalitee.t	776 B	-rw-r--r--
zz-stash-xs-leak.t	1.59 KB	-rw-r--r--
zz-url2.t	3.72 KB	-rw-r--r--

Code Editor : include.t

#============================================================= -*-perl-*-
#
# t/include.t
#
# Template script testing the INCLUDE and PROCESS directives.
#
# 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 );
use Template::Constants qw( :status );
use Template;
use Template::Test;
$^W = 1;

#$Template::Test::DEBUG = 0;
#$Template::Context::DEBUG = 0;

# sample data
my ($a, $b, $c, $d, $e, $f, $g, $h, $i, $j, $k, $l, $m, 
    $n, $o, $p, $q, $r, $s, $t, $u, $v, $w, $x, $y, $z) = 
	qw( alpha bravo charlie delta echo foxtrot golf hotel india 
	    juliet kilo lima mike november oscar papa quebec romeo 
	    sierra tango umbrella victor whisky x-ray yankee zulu );

my $replace = { 
    'a' => $a,
    'b' => $b,
    'c' => {
	'd' => $d,
	'e' => $e,
	'f' => {
	    'g' => $g,
	    'h' => $h,
	},
    },
    'r'    => $r,
    's'	   => $s,
    't'    => $t,
};

# script may be being run in distribution root or 't' directory
my $dir   = -d 't' ? 't/test' : 'test';
my $tproc = Template->new({ 
    INTERPOLATE  => 1,
    INCLUDE_PATH => "$dir/src:$dir/lib",
    TRIM         => 1,
    AUTO_RESET   => 0,
    DEFAULT      => 'default',
});

my $incpath = [ "$dir/src", '/nowhere' ];
my $tt_reset = Template->new({ 
    INTERPOLATE  => 1,
    INCLUDE_PATH => $incpath,
    TRIM         => 1,
    RECURSION    => 1,
    DEFAULT      => 'bad_default',
});
$incpath->[1] = "$dir/lib";

# we want to process 'metadata' directly so that the correct top-level
# 'template' reference is set instead of 'input text'
my $output;
$tproc->process('metadata', $replace, \$output);
$replace->{ metaout } = $output;
$replace->{ metamod } = (stat("$dir/src/metadata"))[9];

test_expect(\*DATA, [ default => $tproc, reset => $tt_reset ], $replace);

__DATA__
-- test --
[% a %]
[% PROCESS incblock -%]
[% b %]
[% INCLUDE first_block %]
-- expect --
alpha
bravo
this is my first block, a is set to 'alpha'

-- test --
[% INCLUDE first_block %]
-- expect --
this is my first block, a is set to 'alpha'

-- test --
[% INCLUDE first_block a = 'abstract' %]
[% a %]
-- expect --
this is my first block, a is set to 'abstract'
alpha

-- test --
[% INCLUDE 'first_block' a = t %]
[% a %]
-- expect --
this is my first block, a is set to 'tango'
alpha

-- test --
[% INCLUDE 'second_block' %]
-- expect --
this is my second block, a is initially set to 'alpha' and 
then set to 'sierra'  b is bravo  m is 98

-- test --
[% INCLUDE second_block a = r, b = c.f.g, m = 97 %]
[% a %]
-- expect --
this is my second block, a is initially set to 'romeo' and 
then set to 'sierra'  b is golf  m is 97
alpha

-- test --
FOO: [% INCLUDE foo +%]
FOO: [% INCLUDE foo a = b -%]
-- expect --
FOO: This is the foo file, a is alpha
FOO: This is the foo file, a is bravo

-- test --
GOLF: [% INCLUDE $c.f.g %]
GOLF: [% INCLUDE $c.f.g  g = c.f.h %]
[% DEFAULT g = "a new $c.f.g" -%]
[% g %]
-- expect --
GOLF: This is the golf file, g is golf
GOLF: This is the golf file, g is hotel
a new golf

-- test --
BAZ: [% INCLUDE bar/baz %]
BAZ: [% INCLUDE bar/baz word='wizzle' %]
BAZ: [% INCLUDE "bar/baz" %]
-- expect --
BAZ: This is file baz
The word is 'qux'
BAZ: This is file baz
The word is 'wizzle'
BAZ: This is file baz
The word is 'qux'

-- test --
BAZ: [% INCLUDE bar/baz.txt %]
BAZ: [% INCLUDE bar/baz.txt time = 'nigh' %]
-- expect --
BAZ: This is file baz
The word is 'qux'
The time is now
BAZ: This is file baz
The word is 'qux'
The time is nigh

-- test --
[% BLOCK bamboozle -%]
This is bamboozle
[%- END -%]
Block defined...
[% blockname = 'bamboozle' -%]
[% INCLUDE $blockname %]
End
-- expect --
Block defined...
This is bamboozle
End

# test that BLOCK definitions get AUTO_RESET (i.e. cleared) by default
-- test --
-- use reset --
[% a %]
[% PROCESS incblock -%]
[% INCLUDE first_block %]
[% INCLUDE second_block %]
[% b %]
-- expect --
alpha
this is my first block, a is set to 'alpha'
this is my second block, a is initially set to 'alpha' and 
then set to 'sierra'  b is bravo  m is 98
bravo

-- test --
[% TRY %]
[% INCLUDE first_block %]
[% CATCH file %]
ERROR: [% error.info %]
[% END %]
-- expect --
ERROR: first_block: not found

-- test --
-- use default --
[% metaout %]
-- expect --
-- process --
TITLE: The cat sat on the mat
metadata last modified [% metamod %]

-- test -- 
[% TRY %]
[% PROCESS recurse counter = 1 %]
[% CATCH file -%]
[% error.info %]
[% END %]
-- expect --
recursion count: 1
recursion into 'my file'

-- test --
[% INCLUDE nosuchfile %]
-- expect --
This is the default file

-- test -- 
-- use reset --
[% TRY %]
[% PROCESS recurse counter = 1 %]
[% CATCH file %]
[% error.info %]
[% END %]
-- expect --
recursion count: 1
recursion count: 2
recursion count: 3

-- test --
[% TRY;
   INCLUDE nosuchfile;
   CATCH;
   "ERROR: $error";
   END
%]
-- expect --
ERROR: file error - nosuchfile: not found

-- test --
[% INCLUDE src:foo %]
[% BLOCK src:foo; "This is foo!"; END %]
-- expect --
This is foo!

-- test --
[% a = ''; b = ''; d = ''; e = 0 %]
[% INCLUDE foo name = a or b or 'c'
               item = d or e or 'f' -%]
[% BLOCK foo; "name: $name  item: $item\n"; END %]
-- expect --
name: c  item: f

-- test --
[% style = 'light'; your_title="Hello World" -%]
[% INCLUDE foo 
         title = my_title or your_title or default_title
         bgcol = (style == 'dark' ? '#000000' : '#ffffff') %]
[% BLOCK foo; "title: $title\nbgcol: $bgcol\n"; END %]
-- expect --
title: Hello World
bgcol: #ffffff

-- test --
[% myhash = {
    name  = 'Tom'
    item  = 'teacup'
   }
-%]
[% INCLUDE myblock
    name = 'Fred'
    item = 'fish'
%]
[% INCLUDE myblock
     import=myhash
%]
import([% import %])
[% PROCESS myblock
     import={ name = 'Tim', item = 'teapot' }
%]
import([% import %])
[% BLOCK myblock %][% name %] has a [% item %][% END %]
-- expect --
Fred has a fish
Tom has a teacup
import()
Tim has a teapot
import()

-- test --

${this.title}

Code Editor : include.t