File: 03_tname.t

package info (click to toggle)
libcgi-application-plugin-tt-perl 1.05%2B~cs1.3-1
  • links: PTS, VCS
  • area: main
  • in suites: bookworm
  • size: 440 kB
  • sloc: perl: 806; makefile: 17
file content (59 lines) | stat: -rw-r--r-- 2,408 bytes parent folder | download | duplicates (5)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
use Test::More tests => 27;

use lib './t';
use strict;

$ENV{CGI_APP_RETURN_ONLY} = 1;

use TestAppTName;
my $t1_obj = TestAppTName->new();
my $t1_output = $t1_obj->run();

like($t1_output, qr/file: test_mode\.tmpl/, 'correct template file');
like($t1_output, qr/:template param:/, 'template parameter');
like($t1_output, qr/:template param hash:/, 'template parameter hash');
like($t1_output, qr/:template param hashref:/, 'template parameter hashref');
like($t1_output, qr/:pre_process param:/, 'pre process parameter');
like($t1_output, qr/:post_process param:/, 'post process parameter');
like($t1_output, qr/:TestAppTName[\/\\]test_mode\.tmpl:/, 'template name ok');


my $t2_obj = TestAppTName::CustName->new();
my $t2_output = $t2_obj->run();

like($t2_output, qr/file: test\.tmpl/, 'correct template file');
like($t2_output, qr/:template param:/, 'template parameter');
like($t2_output, qr/:template param hash:/, 'template parameter hash');
like($t2_output, qr/:template param hashref:/, 'template parameter hashref');
like($t2_output, qr/:pre_process param:/, 'pre process parameter');
like($t2_output, qr/:post_process param:/, 'post process parameter');
like($t2_output, qr/:TestAppTName[\/\\]test\.tmpl:/, 'template name ok');


my $t3_obj = TestAppTName::NoVars->new();
my $t3_output = $t3_obj->run();

like($t3_output, qr/file: test_mode\.tmpl/, 'correct template file');
like($t3_output, qr/:pre_process param:/, 'pre process parameter');
like($t3_output, qr/:post_process param:/, 'post process parameter');


my $t4_obj = TestAppTName::NoNameNoVars->new();
my $t4_output = $t4_obj->run();

like($t4_output, qr/file: test_mode\.tmpl/, 'correct template file');
like($t4_output, qr/:pre_process param:/, 'pre process parameter');
like($t4_output, qr/:post_process param:/, 'post process parameter');

my $t5_obj = TestAppTName::UpLevel->new();
my $t5_output = $t5_obj->run();

like($t5_output, qr/file: test_mode\.tmpl/, 'correct template file');
like($t5_output, qr/:template param:/, 'template parameter');
like($t5_output, qr/:template param hash:/, 'template parameter hash');
like($t5_output, qr/:template param hashref:/, 'template parameter hashref');
like($t5_output, qr/:pre_process param:/, 'pre process parameter');
like($t5_output, qr/:post_process param:/, 'post process parameter');
like($t5_output, qr/:TestAppTName[\/\\]UpLevel[\/\\]test_mode\.tmpl:/, 'template name ok');