View | Details | Raw Unified | Return to bug 5327
Collapse All | Expand All

(-)a/t/TmplToken.t (-2 / +32 lines)
Lines 6-12 Link Here
6
use strict;
6
use strict;
7
use warnings;
7
use warnings;
8
use C4::TmplTokenType;
8
use C4::TmplTokenType;
9
use Test::More tests => 7;
9
use Test::More tests => 19;
10
10
11
BEGIN {
11
BEGIN {
12
        use_ok('C4::TmplToken');
12
        use_ok('C4::TmplToken');
Lines 20-22 ok ($token->pathname eq '/tmp/translate.txt', "Path works"); Link Here
20
20
21
21
22
ok ($token->text_p, "text_p works");
22
ok ($token->text_p, "text_p works");
23
- 
23
24
is($token-> children(), undef, "testing children returns undef when given argument");
25
26
ok($token-> set_children(), "testing set_children with no arguments");
27
28
is($token-> parameters_and_fields(), "0", "testing Parameters and fields returns 0 when given argument");
29
30
is($token-> anchors(), "0", "testing anchors returns 0 when given argument");
31
32
is($token-> form(),undef, "testing form returns undef when given argument");
33
34
ok($token-> set_form(), "testing set_form with no arguments");
35
36
is($token-> js_data(),undef, "testing form returns undef when given argument");
37
38
ok($token-> set_js_data(), "testing set_js_data with no arguments");
39
40
is($token-> tag_p(),"", "testing tag_p returns '' when given argument");
41
42
is($token-> cdata_p(),"", "testing cdata_p returns '' when given argument");
43
44
is($token-> text_parametrized_p(),"", "testing text_parametrized returns '' when given argument");
45
46
is($token-> directive_p(),"", "testing directive_p returns '' when given argument");
47
48
49
50
51
52
53

Return to bug 5327