Attachment 7226 Details for Bug 5327 – Added unit tests for C4/Creators/PDF.pm

[patch] Added unit tests for C4/Creators/PDF.pm

0001-Bug-5327-added-unit-tests-for-C4-Creators-PDF.pm.patch (text/plain), 1.82 KB, created by Jono Mingard on 2012-01-19 01:33:24 UTC

(hide)

Description:

Filename:

MIME Type:

Creator: Jono Mingard

Created: 2012-01-19 01:33:24 UTC

Size: 1.82 KB

patch

obsolete

>From 4412c2f3b997a13b4da84168d950b01a80bd689e Mon Sep 17 00:00:00 2001
>From: Jono Mingard <reason.koan@gmail.com>
>Date: Thu, 19 Jan 2012 14:31:57 +1300
>Subject: [PATCH] Bug 5327 added unit tests for C4/Creators/PDF.pm
>Content-Type: text/plain; charset="utf-8"
>
>---
> t/Creators.t |   33 ++++++++++++++++++++++++++++++++-
> 1 files changed, 32 insertions(+), 1 deletions(-)
>
>diff --git a/t/Creators.t b/t/Creators.t
>index 5264d32..720aa2c 100755
>--- a/t/Creators.t
>+++ b/t/Creators.t
>@@ -6,9 +6,40 @@
> use strict;
> use warnings;
> 
>-use Test::More tests => 1;
>+use Test::More tests => 15;
> 
> BEGIN {
>         use_ok('C4::Creators');
>+        use_ok('C4::Creators::PDF');
> }
> 
>+my $pdf_creator = C4::Creators::PDF->new('test.pdf' => '', InitVars => 0);
>+ok($pdf_creator, "testing new() works");
>+if (-e 'test.pdf') {
>+  pass('testing pdf file created');
>+}
>+else {
>+  fail('testing pdf file created');
>+}
>+
>+ok($pdf_creator->Add(""), "testing Add() works");
>+ok($pdf_creator->Bookmark({}), "testing Bookmark() works");
>+ok($pdf_creator->Compress(1), "testing Compress() works");
>+
>+is($pdf_creator->Font("H"), "Ft1", "testing Font() works");
>+is($pdf_creator->FontSize(), '12', "testing FontSize() is set to 12 by default");
>+my @result = $pdf_creator->FontSize(14);
>+is($result[0], '14', "testing FontSize() can be set to a different value");
>+$pdf_creator->FontSize(); # Reset font size before testing text width etc below
>+
>+ok($pdf_creator->Page(), "testing Page() works");
>+
>+is($pdf_creator->StrWidth("test", "H", 12), '19.344', "testing StrWidth() returns correct point width");
>+
>+@result = $pdf_creator->Text(10, 10, "test");
>+is($result[0], '10', "testing Text() writes from a given x-value");
>+is($result[1], '29.344', "testing Text() writes to the correct x-value");
>+
>+ok($pdf_creator->End(), "testing End() works");
>+
>+unlink 'test.pdf';
>-- 
>1.7.5.4
>

Actions: View | Diff | Splinter Review

Attachments on bug 5327: 2716 | 2726 | 5485 | 6236 | 6237 | 6373 | 6560 | 6561 | 6562 | 6563 | 6613 | 6614 | 6616 | 6620 | 6621 | 6622 | 6643 | 6650 | 6655 | 6679 | 6681 | 6682 | 6683 | 6726 | 6727 | 6728 | 6729 | 6730 | 6731 | 6732 | 6795 | 6799 | 6805 | 6819 | 6826 | 6827 | 6828 | 6834 | 7179 | 7180 | 7181 | 7182 | 7183 | 7184 | 7185 | 7186 | 7187 | 7188 | 7189 | 7190 | 7191 | 7192 | 7194 | 7195 | 7203 | 7206 | 7208 | 7209 | 7220 | 7221 | 7222 | 7223 | 7224 | 7225 | 7226 | 7227 | 7228 | 7229 | 7230 | 7231 | 7232 | 7233 | 7234 | 7235 | 7236 | 7237 | 7238 | 7239 | 7240 | 7241 | 7242 | 7400 | 7402 | 7403 | 7405 | 7573 | 7592 | 7593 | 7594 | 9897 | 10234 | 10616 | 10656 | 10659 | 10660 | 10661 | 10680 | 11141 | 11186 | 11212 | 11213 | 11278 | 11279 | 11280 | 11281 | 11339 | 11340 | 11341 | 11440 | 11467 | 11469 | 11470 | 11471 | 11472 | 11473 | 11500 | 11503 | 11505 | 11506 | 11633 | 11762 | 11763 | 11764 | 11765 | 11846 | 11985 | 11993 | 12002 | 12003