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

(-)a/t/Creators.t (-5 / +21 lines)
Lines 1-12 Link Here
1
#!/usr/bin/perl
1
#!/usr/bin/perl
2
#
2
#
3
# This Koha test module is a stub!  
3
# This module will excercise pdf creation routines
4
# Add more tests here!!!
4
#
5
# When run with KEEP_PDF enviroment variable it will keep
6
# test.pdf for manual inspection. This can be used to verify
7
# that ttf font configuration is complete like:
8
#
9
# KEEP_PDF=1 KOHA_CONF=/etc/koha/sites/srvgit/koha-conf.xml prove t/Creators.t
10
#
11
# sample of utf-8 text, font name and type will be on bottom of second page
5
12
6
use strict;
13
use strict;
7
use warnings;
14
use warnings;
8
15
9
use Test::More tests => 16;
16
use Test::More tests => 41;
10
17
11
BEGIN {
18
BEGIN {
12
        use_ok('C4::Creators');
19
        use_ok('C4::Creators');
Lines 50-55 is($pdf_creator->StrWidth("test", "H", 12), $expected_width, "testing StrWidth() Link Here
50
is($result[0], '10', "testing Text() writes from a given x-value");
57
is($result[0], '10', "testing Text() writes from a given x-value");
51
is($result[1], $expected_offset, "testing Text() writes to the correct x-value");
58
is($result[1], $expected_offset, "testing Text() writes to the correct x-value");
52
59
60
my $font_types = C4::Creators::Lib::get_font_types();
61
isa_ok( $font_types, 'ARRAY', 'get_font_types' );
62
63
my $y = 50;
64
foreach my $font ( @$font_types ) {
65
	ok( $pdf_creator->Font( $font->{type} ), 'Font ' . $font->{type} );
66
	ok( $pdf_creator->Text(10, $y, "\x{10C}evap\x{10D}i\x{107} " . $font->{name} . ' - ' . $font->{type} ), 'Text ' . $font->{name});
67
	$y += $pdf_creator->FontSize() * 1.2;
68
}
69
53
open(my $fh, '>', 'test.pdf');
70
open(my $fh, '>', 'test.pdf');
54
select $fh;
71
select $fh;
55
72
Lines 58-61 ok($pdf_creator->End(), "testing End() works"); Link Here
58
close($fh);
75
close($fh);
59
ok( -s 'test.pdf', 'test.pdf created' );
76
ok( -s 'test.pdf', 'test.pdf created' );
60
77
61
unlink 'test.pdf';
78
unlink 'test.pdf' unless $ENV{KEEP_PDF};
62
- 

Return to bug 12194