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

(-)a/t/TmplToken.t (+22 lines)
Line 0 Link Here
1
#!/usr/bin/perl
2
#
3
# This Koha test module is a stub!  
4
# Add more tests here!!!
5
6
use strict;
7
use warnings;
8
use C4::TmplTokenType;
9
use Test::More tests => 7;
10
11
BEGIN {
12
        use_ok('C4::TmplToken');
13
}
14
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");
20
21
22
ok ($token->text_p, "text_p works");
(-)a/t/db_dependent/UploadedFile.t (-2 / +2 lines)
Lines 6-14 Link Here
6
use strict;
6
use strict;
7
use warnings;
7
use warnings;
8
8
9
use Test::More tests => 1;
9
use Test::More tests => 2;
10
10
11
BEGIN {
11
BEGIN {
12
        use_ok('C4::UploadedFile');
12
        use_ok('C4::UploadedFile');
13
}
13
}
14
14
15
- 
15
ok(my $file = C4::UploadedFile->new());

Return to bug 5327