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