trunk/t/5-output-tt.t

#!/usr/bin/perl -w

use Test::More tests => 5;
use Test::Exception;
use Cwd qw/abs_path/;
use blib;
use strict;

BEGIN {
use_ok( 'WebPAC::Output::TT' );
}

ok(my $abs_path = abs_path($0), "abs_path");
$abs_path =~ s#/[^/]*$#/#;
diag "abs_path: $abs_path";

ok(my $tt = new WebPAC::Output::TT(
        include_path => "$abs_path../conf/output/tt",
        no_log => 1,
), "new");

my $ds = {
        'Source' => {
                'name' => 'Izvor: ',
                'tag' => 'Source',
                'display' => [ 'foo' ]
                },
        'ID' => {
                'name' => 'ID',
                'tag' => 'IDths',
                'swish' => [ 'bar' ],
                'lookup_key' => [ 'bar' ]
                },
        'filename' => [ 'out/thes/001.html' ],
        'name' => 'filename',
        'tag' => 'filename'
};

throws_ok { $tt->apply( template => 'foo', data => [] ) } qr/error.*foo/, "apply without template";

cmp_ok(my $text = $tt->apply( template => 'text.tt', data => $ds ), '=~', qr/Source.*foo/, "apply");

diag $text;

1	#!/usr/bin/perl -w
2
3	use Test::More tests => 5;
4	use Test::Exception;
5	use Cwd qw/abs_path/;
6	use blib;
7	use strict;
8
9	BEGIN {
10	use_ok( 'WebPAC::Output::TT' );
11	}
12
13	ok(my $abs_path = abs_path($0), "abs_path");
14	$abs_path =~ s#/[^/]*$#/#;
15	diag "abs_path: $abs_path";
16
17	ok(my $tt = new WebPAC::Output::TT(
18	include_path => "$abs_path../conf/output/tt",
19	no_log => 1,
20	), "new");
21
22	my $ds = {
23	'Source' => {
24	'name' => 'Izvor: ',
25	'tag' => 'Source',
26	'display' => [ 'foo' ]
27	},
28	'ID' => {
29	'name' => 'ID',
30	'tag' => 'IDths',
31	'swish' => [ 'bar' ],
32	'lookup_key' => [ 'bar' ]
33	},
34	'filename' => [ 'out/thes/001.html' ],
35	'name' => 'filename',
36	'tag' => 'filename'
37	};
38
39	throws_ok { $tt->apply( template => 'foo', data => [] ) } qr/error.*foo/, "apply without template";
40
41	cmp_ok(my $text = $tt->apply( template => 'text.tt', data => $ds ), '=~', qr/Source.*foo/, "apply");
42
43	diag $text;
44