1#============================================================= -*-perl-*-
2#
3# t/proc.t
4#
5# Template script testing the procedural template plugin
6#
7# Written by Mark Fowler <mark@twoshortplanks.com>
8#
9# Copyright (C) 2002 Makr Fowler.  All Rights Reserved.
10#
11# This is free software; you can redistribute it and/or modify it
12# under the same terms as Perl itself.
13#
14# $Id$
15#
16#========================================================================
17
18use strict;
19use lib qw( ./lib ../lib t/lib );
20use Template::Test;
21$^W = 1;
22
23my $ttcfg = {};
24
25test_expect(\*DATA, $ttcfg, &callsign());
26
27__DATA__
28-- test --
29[% USE ProcFoo -%]
30[% ProcFoo.foo %]
31[% ProcFoo.bar %]
32-- expect --
33This is procfoofoo
34This is procfoobar
35-- test --
36[% USE ProcBar -%]
37[% ProcBar.foo %]
38[% ProcBar.bar %]
39[% ProcBar.baz %]
40-- expect --
41This is procfoofoo
42This is procbarbar
43This is procbarbaz
44
45