Skip to content
Newer
Older
100644 35 lines (30 sloc) 754 Bytes
a2ca2c1 @abw commit for 2.06b
authored Nov 29, 2001
1 #============================================================= -*-perl-*-
2 #
3 # t/strcat.t
4 #
5 # Test the string concatenation operator ' _ '.
6 #
7 # Written by Andy Wardley <abw@kfs.org>
8 #
9 # Copyright (C) 1996-2000 Andy Wardley. All Rights Reserved.
10 # Copyright (C) 1998-2000 Canon Research Centre Europe Ltd.
11 #
12 # This is free software; you can redistribute it and/or modify it
13 # under the same terms as Perl itself.
14 #
15 # $Id$
16 #
17 #========================================================================
18
19 use strict;
20 use lib qw( ./lib ../lib );
21 use Template::Test;
22
23 test_expect(\*DATA);
24
25 __DATA__
26 -- test --
27 [% foo = 'the foo string'
28 bar = 'the bar string'
29 baz = foo _ ' and ' _ bar
30 -%]
31 baz: [% baz %]
32 -- expect --
33 baz: the foo string and the bar string
34
Something went wrong with that request. Please try again.