Lines 1-13
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 File::Temp qw/ tempfile /; |
16 |
use File::Temp qw/ tempfile /; |
10 |
use Test::More tests => 16; |
17 |
use Test::More tests => 41; |
11 |
|
18 |
|
12 |
BEGIN { |
19 |
BEGIN { |
13 |
use_ok('C4::Creators'); |
20 |
use_ok('C4::Creators'); |
Lines 51-56
is($pdf_creator->StrWidth("test", "H", 12), $expected_width, "testing StrWidth()
Link Here
|
51 |
is($result[0], '10', "testing Text() writes from a given x-value"); |
58 |
is($result[0], '10', "testing Text() writes from a given x-value"); |
52 |
is($result[1], $expected_offset, "testing Text() writes to the correct x-value"); |
59 |
is($result[1], $expected_offset, "testing Text() writes to the correct x-value"); |
53 |
|
60 |
|
|
|
61 |
my $font_types = C4::Creators::Lib::get_font_types(); |
62 |
isa_ok( $font_types, 'ARRAY', 'get_font_types' ); |
63 |
|
64 |
my $y = 50; |
65 |
foreach my $font ( @$font_types ) { |
66 |
ok( $pdf_creator->Font( $font->{type} ), 'Font ' . $font->{type} ); |
67 |
ok( $pdf_creator->Text(10, $y, "\x{10C}evap\x{10D}i\x{107} " . $font->{name} . ' - ' . $font->{type} ), 'Text ' . $font->{name}); |
68 |
$y += $pdf_creator->FontSize() * 1.2; |
69 |
} |
70 |
|
54 |
my ($fh, $filename) = tempfile(); |
71 |
my ($fh, $filename) = tempfile(); |
55 |
open( $fh, '>', $filename ); |
72 |
open( $fh, '>', $filename ); |
56 |
select $fh; |
73 |
select $fh; |
Lines 59-62
ok($pdf_creator->End(), "testing End() works");
Link Here
|
59 |
|
76 |
|
60 |
close($fh); |
77 |
close($fh); |
61 |
ok( -s $filename , "test file $filename created OK" ); |
78 |
ok( -s $filename , "test file $filename created OK" ); |
62 |
unlink $filename ; |
79 |
unlink $filename unless $ENV{KEEP_PDF}; |
63 |
- |
|
|