3 # This Koha test module is a stub!
4 # Add more tests here!!!
9 use Test
::More tests
=> 7;
12 use_ok
('C4::TmplToken');
15 ok
(my $token = C4
::TmplToken
->new('test',C4
::TmplTokenType
::TEXT
,10,'/tmp/translate.txt'), "Create new");
16 ok
($token->string eq 'test', "String works");
17 ok
($token->type == C4
::TmplTokenType
::TEXT
, "Token works");
18 ok
($token->line_number == 10, "Line number works");
19 ok
($token->pathname eq '/tmp/translate.txt', "Path works");
22 ok
($token->text_p, "text_p works");