r599 - packages/libpdf-api2-perl/trunk/t
Gunnar Wolf
gwolf at costa.debian.org
Sun Jul 17 08:08:55 UTC 2005
Author: gwolf
Date: 2005-01-06 07:22:38 +0100 (Thu, 06 Jan 2005)
New Revision: 599
Removed:
packages/libpdf-api2-perl/trunk/t/020corecobi.t
packages/libpdf-api2-perl/trunk/t/020corecobo.t
packages/libpdf-api2-perl/trunk/t/020corecoit.t
packages/libpdf-api2-perl/trunk/t/020corecour.t
packages/libpdf-api2-perl/trunk/t/020corehebi.t
packages/libpdf-api2-perl/trunk/t/020corehebo.t
packages/libpdf-api2-perl/trunk/t/020coreheit.t
packages/libpdf-api2-perl/trunk/t/020corehelv.t
packages/libpdf-api2-perl/trunk/t/020coretibi.t
packages/libpdf-api2-perl/trunk/t/020coretibo.t
packages/libpdf-api2-perl/trunk/t/020coretiit.t
packages/libpdf-api2-perl/trunk/t/020coretiro.t
packages/libpdf-api2-perl/trunk/t/020coretrbi.t
packages/libpdf-api2-perl/trunk/t/020coretrbo.t
packages/libpdf-api2-perl/trunk/t/020coretreb.t
packages/libpdf-api2-perl/trunk/t/020coretrit.t
packages/libpdf-api2-perl/trunk/t/020corevebi.t
packages/libpdf-api2-perl/trunk/t/020corevebo.t
packages/libpdf-api2-perl/trunk/t/020coreveit.t
packages/libpdf-api2-perl/trunk/t/020coreverd.t
packages/libpdf-api2-perl/trunk/t/022core____.t
packages/libpdf-api2-perl/trunk/t/028psf_all.t
packages/libpdf-api2-perl/trunk/t/029ttf_all.t
Log:
The cruft that stayed from the previous release
Deleted: packages/libpdf-api2-perl/trunk/t/020corecobi.t
===================================================================
--- packages/libpdf-api2-perl/trunk/t/020corecobi.t 2005-01-06 06:05:36 UTC (rev 598)
+++ packages/libpdf-api2-perl/trunk/t/020corecobi.t 2005-01-06 06:22:38 UTC (rev 599)
@@ -1,121 +0,0 @@
-#!/usr/bin/perl
-#=======================================================================
-# ____ ____ _____ _ ____ ___ ____
-# | _ \| _ \| ___| _ _ / \ | _ \_ _| |___ \
-# | |_) | | | | |_ (_) (_) / _ \ | |_) | | __) |
-# | __/| |_| | _| _ _ / ___ \| __/| | / __/
-# |_| |____/|_| (_) (_) /_/ \_\_| |___| |_____|
-#
-# A Perl Module Chain to faciliate the Creation and Modification
-# of High-Quality "Portable Document Format (PDF)" Files.
-#
-# Copyright 1999-2004 Alfred Reibenschuh <areibens at cpan.org>.
-#
-#=======================================================================
-#
-# PERMISSION TO USE, COPY, MODIFY, AND DISTRIBUTE THIS FILE FOR
-# ANY PURPOSE WITH OR WITHOUT FEE IS HEREBY GRANTED, PROVIDED THAT
-# THE ABOVE COPYRIGHT NOTICE AND THIS PERMISSION NOTICE APPEAR IN ALL
-# COPIES.
-#
-# THIS FILE IS PROVIDED ``AS IS'' AND ANY EXPRESSED OR IMPLIED
-# WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF
-# MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED.
-# IN NO EVENT SHALL THE AUTHORS AND COPYRIGHT HOLDERS AND THEIR
-# CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL,
-# SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT
-# LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF
-# USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND
-# ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY,
-# OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT
-# OF THE USE OF THIS FILE, EVEN IF ADVISED OF THE POSSIBILITY OF
-# SUCH DAMAGE.
-#
-# $Id: 020coreuse.t,v 1.3 2004/04/18 14:11:34 fredo Exp $
-#
-#=======================================================================
-use Encode qw(:all);
-use utf8;
-
-use PDF::API2;
-use PDF::API2::Util;
-use Unicode::UCD 'charinfo';
-
- at encodings=qw|
- latin1 latin2 latin3 latin4 latin5 latin6 latin7 latin8 latin9 latin10
- iso-8859-5 iso-8859-6 iso-8859-7 iso-8859-8
- koi8-f koi8-r koi8-u
- cp424 cp437 cp737 cp775
- cp850 cp852 cp855 cp856 cp857
- cp860 cp861 cp862 cp863 cp864 cp865 cp866 cp869 cp874
- WinLatin2 WinCyrillic WinLatin1 WinGreek WinTurkish WinHebrew WinArabic WinBaltic WinVietnamese
- MacArabic MacCentralEurRoman MacCroatian MacCyrillic MacFarsi MacGreek MacIcelandic MacRoman MacSami MacTurkish MacUkrainian
- AdobeStandardEncoding nextstep hp-roman8
-|;
-# MacHebrew MacThai MacRomanian MacRumanian
-sub encodingToMaps ($) {
- my $e=shift @_;
- my @c=();
- my %c=();
- map{
- my $x=unpack('U',decode($e,chr($_)));
- $c[$_]=$x;
- $c{$x}=$_;
- } (0..255);
- return(\@c,\%c);
-}
-
-sub esc {
- my $newtext=shift @_;
- $newtext=~s/\\/\\\\/go;
- $newtext=~s/([\x00-\x1f])/sprintf('\%03lo',ord($1))/ge;
- $newtext=~s/([\{\}\[\]\(\)])/\\$1/g;
- return("($newtext)");
-}
-
-my @fonts=qw( Courier-BoldOblique );
-
-use Test::More qw(no_plan);
-
-foreach my $fn (@fonts) {
-
- foreach my $enc (@encodings) {
- $pdf=PDF::API2->new;
-
- my $fnt=$pdf->corefont($fn,-encode => $enc);
- ok(defined($fnt),"font=$fn enc=$enc.");
- my ($m,$h)=encodingToMaps($enc);
- foreach my $c (0..255) {
- my $t=chr($c);
- my $u=$fnt->strByUtf(chr($m->[$c]));
- ok(($t eq $u) || (nameByUni($fnt->uniByEnc($c)) eq nameByUni($m->[$c])),"font=$fn enc=$enc c=$c u=$m->[$c] t='$t'(".nameByUni($m->[$c]).")[".charinfo($m->[$c])->{name}."] u='$u'(".nameByUni($fnt->uniByEnc($c)).")[".charinfo($fnt->uniByEnc($c))->{name}."].");
- }
- eval {
- $fnt=$pdf->corefont("$fn illegal",-encode => $enc);
- };
- ok($@,"font=$fn enc=$enc illegal.");
-
- eval {
- $fnt=$pdf->corefont("$fn",-encode => "$enc illegal");
- };
- ok($@,"font=$fn illegal enc=$enc.");
-
- $pdf->end();
- }
-}
-
-exit;
-
-__END__
-
- $Log: 020coreuse.t,v $
- Revision 1.3 2004/04/18 14:11:34 fredo
- fixed test for symbol fonts
-
- Revision 1.2 2004/04/18 14:01:14 fredo
- added defined/undefined test
-
- Revision 1.1 2004/04/18 13:54:21 fredo
- genesis
-
-
\ No newline at end of file
Deleted: packages/libpdf-api2-perl/trunk/t/020corecobo.t
===================================================================
--- packages/libpdf-api2-perl/trunk/t/020corecobo.t 2005-01-06 06:05:36 UTC (rev 598)
+++ packages/libpdf-api2-perl/trunk/t/020corecobo.t 2005-01-06 06:22:38 UTC (rev 599)
@@ -1,121 +0,0 @@
-#!/usr/bin/perl
-#=======================================================================
-# ____ ____ _____ _ ____ ___ ____
-# | _ \| _ \| ___| _ _ / \ | _ \_ _| |___ \
-# | |_) | | | | |_ (_) (_) / _ \ | |_) | | __) |
-# | __/| |_| | _| _ _ / ___ \| __/| | / __/
-# |_| |____/|_| (_) (_) /_/ \_\_| |___| |_____|
-#
-# A Perl Module Chain to faciliate the Creation and Modification
-# of High-Quality "Portable Document Format (PDF)" Files.
-#
-# Copyright 1999-2004 Alfred Reibenschuh <areibens at cpan.org>.
-#
-#=======================================================================
-#
-# PERMISSION TO USE, COPY, MODIFY, AND DISTRIBUTE THIS FILE FOR
-# ANY PURPOSE WITH OR WITHOUT FEE IS HEREBY GRANTED, PROVIDED THAT
-# THE ABOVE COPYRIGHT NOTICE AND THIS PERMISSION NOTICE APPEAR IN ALL
-# COPIES.
-#
-# THIS FILE IS PROVIDED ``AS IS'' AND ANY EXPRESSED OR IMPLIED
-# WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF
-# MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED.
-# IN NO EVENT SHALL THE AUTHORS AND COPYRIGHT HOLDERS AND THEIR
-# CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL,
-# SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT
-# LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF
-# USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND
-# ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY,
-# OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT
-# OF THE USE OF THIS FILE, EVEN IF ADVISED OF THE POSSIBILITY OF
-# SUCH DAMAGE.
-#
-# $Id: 020coreuse.t,v 1.3 2004/04/18 14:11:34 fredo Exp $
-#
-#=======================================================================
-use Encode qw(:all);
-use utf8;
-
-use PDF::API2;
-use PDF::API2::Util;
-use Unicode::UCD 'charinfo';
-
- at encodings=qw|
- latin1 latin2 latin3 latin4 latin5 latin6 latin7 latin8 latin9 latin10
- iso-8859-5 iso-8859-6 iso-8859-7 iso-8859-8
- koi8-f koi8-r koi8-u
- cp424 cp437 cp737 cp775
- cp850 cp852 cp855 cp856 cp857
- cp860 cp861 cp862 cp863 cp864 cp865 cp866 cp869 cp874
- WinLatin2 WinCyrillic WinLatin1 WinGreek WinTurkish WinHebrew WinArabic WinBaltic WinVietnamese
- MacArabic MacCentralEurRoman MacCroatian MacCyrillic MacFarsi MacGreek MacIcelandic MacRoman MacSami MacTurkish MacUkrainian
- AdobeStandardEncoding nextstep hp-roman8
-|;
-# MacHebrew MacThai MacRomanian MacRumanian
-sub encodingToMaps ($) {
- my $e=shift @_;
- my @c=();
- my %c=();
- map{
- my $x=unpack('U',decode($e,chr($_)));
- $c[$_]=$x;
- $c{$x}=$_;
- } (0..255);
- return(\@c,\%c);
-}
-
-sub esc {
- my $newtext=shift @_;
- $newtext=~s/\\/\\\\/go;
- $newtext=~s/([\x00-\x1f])/sprintf('\%03lo',ord($1))/ge;
- $newtext=~s/([\{\}\[\]\(\)])/\\$1/g;
- return("($newtext)");
-}
-
-my @fonts=qw( Courier-Bold );
-
-use Test::More qw(no_plan);
-
-foreach my $fn (@fonts) {
-
- foreach my $enc (@encodings) {
- $pdf=PDF::API2->new;
-
- my $fnt=$pdf->corefont($fn,-encode => $enc);
- ok(defined($fnt),"font=$fn enc=$enc.");
- my ($m,$h)=encodingToMaps($enc);
- foreach my $c (0..255) {
- my $t=chr($c);
- my $u=$fnt->strByUtf(chr($m->[$c]));
- ok(($t eq $u) || (nameByUni($fnt->uniByEnc($c)) eq nameByUni($m->[$c])),"font=$fn enc=$enc c=$c u=$m->[$c] t='$t'(".nameByUni($m->[$c]).")[".charinfo($m->[$c])->{name}."] u='$u'(".nameByUni($fnt->uniByEnc($c)).")[".charinfo($fnt->uniByEnc($c))->{name}."].");
- }
- eval {
- $fnt=$pdf->corefont("$fn illegal",-encode => $enc);
- };
- ok($@,"font=$fn enc=$enc illegal.");
-
- eval {
- $fnt=$pdf->corefont("$fn",-encode => "$enc illegal");
- };
- ok($@,"font=$fn illegal enc=$enc.");
-
- $pdf->end();
- }
-}
-
-exit;
-
-__END__
-
- $Log: 020coreuse.t,v $
- Revision 1.3 2004/04/18 14:11:34 fredo
- fixed test for symbol fonts
-
- Revision 1.2 2004/04/18 14:01:14 fredo
- added defined/undefined test
-
- Revision 1.1 2004/04/18 13:54:21 fredo
- genesis
-
-
\ No newline at end of file
Deleted: packages/libpdf-api2-perl/trunk/t/020corecoit.t
===================================================================
--- packages/libpdf-api2-perl/trunk/t/020corecoit.t 2005-01-06 06:05:36 UTC (rev 598)
+++ packages/libpdf-api2-perl/trunk/t/020corecoit.t 2005-01-06 06:22:38 UTC (rev 599)
@@ -1,121 +0,0 @@
-#!/usr/bin/perl
-#=======================================================================
-# ____ ____ _____ _ ____ ___ ____
-# | _ \| _ \| ___| _ _ / \ | _ \_ _| |___ \
-# | |_) | | | | |_ (_) (_) / _ \ | |_) | | __) |
-# | __/| |_| | _| _ _ / ___ \| __/| | / __/
-# |_| |____/|_| (_) (_) /_/ \_\_| |___| |_____|
-#
-# A Perl Module Chain to faciliate the Creation and Modification
-# of High-Quality "Portable Document Format (PDF)" Files.
-#
-# Copyright 1999-2004 Alfred Reibenschuh <areibens at cpan.org>.
-#
-#=======================================================================
-#
-# PERMISSION TO USE, COPY, MODIFY, AND DISTRIBUTE THIS FILE FOR
-# ANY PURPOSE WITH OR WITHOUT FEE IS HEREBY GRANTED, PROVIDED THAT
-# THE ABOVE COPYRIGHT NOTICE AND THIS PERMISSION NOTICE APPEAR IN ALL
-# COPIES.
-#
-# THIS FILE IS PROVIDED ``AS IS'' AND ANY EXPRESSED OR IMPLIED
-# WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF
-# MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED.
-# IN NO EVENT SHALL THE AUTHORS AND COPYRIGHT HOLDERS AND THEIR
-# CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL,
-# SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT
-# LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF
-# USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND
-# ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY,
-# OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT
-# OF THE USE OF THIS FILE, EVEN IF ADVISED OF THE POSSIBILITY OF
-# SUCH DAMAGE.
-#
-# $Id: 020coreuse.t,v 1.3 2004/04/18 14:11:34 fredo Exp $
-#
-#=======================================================================
-use Encode qw(:all);
-use utf8;
-
-use PDF::API2;
-use PDF::API2::Util;
-use Unicode::UCD 'charinfo';
-
- at encodings=qw|
- latin1 latin2 latin3 latin4 latin5 latin6 latin7 latin8 latin9 latin10
- iso-8859-5 iso-8859-6 iso-8859-7 iso-8859-8
- koi8-f koi8-r koi8-u
- cp424 cp437 cp737 cp775
- cp850 cp852 cp855 cp856 cp857
- cp860 cp861 cp862 cp863 cp864 cp865 cp866 cp869 cp874
- WinLatin2 WinCyrillic WinLatin1 WinGreek WinTurkish WinHebrew WinArabic WinBaltic WinVietnamese
- MacArabic MacCentralEurRoman MacCroatian MacCyrillic MacFarsi MacGreek MacIcelandic MacRoman MacSami MacTurkish MacUkrainian
- AdobeStandardEncoding nextstep hp-roman8
-|;
-# MacHebrew MacThai MacRomanian MacRumanian
-sub encodingToMaps ($) {
- my $e=shift @_;
- my @c=();
- my %c=();
- map{
- my $x=unpack('U',decode($e,chr($_)));
- $c[$_]=$x;
- $c{$x}=$_;
- } (0..255);
- return(\@c,\%c);
-}
-
-sub esc {
- my $newtext=shift @_;
- $newtext=~s/\\/\\\\/go;
- $newtext=~s/([\x00-\x1f])/sprintf('\%03lo',ord($1))/ge;
- $newtext=~s/([\{\}\[\]\(\)])/\\$1/g;
- return("($newtext)");
-}
-
-my @fonts=qw( Courier-Oblique );
-
-use Test::More qw(no_plan);
-
-foreach my $fn (@fonts) {
-
- foreach my $enc (@encodings) {
- $pdf=PDF::API2->new;
-
- my $fnt=$pdf->corefont($fn,-encode => $enc);
- ok(defined($fnt),"font=$fn enc=$enc.");
- my ($m,$h)=encodingToMaps($enc);
- foreach my $c (0..255) {
- my $t=chr($c);
- my $u=$fnt->strByUtf(chr($m->[$c]));
- ok(($t eq $u) || (nameByUni($fnt->uniByEnc($c)) eq nameByUni($m->[$c])),"font=$fn enc=$enc c=$c u=$m->[$c] t='$t'(".nameByUni($m->[$c]).")[".charinfo($m->[$c])->{name}."] u='$u'(".nameByUni($fnt->uniByEnc($c)).")[".charinfo($fnt->uniByEnc($c))->{name}."].");
- }
- eval {
- $fnt=$pdf->corefont("$fn illegal",-encode => $enc);
- };
- ok($@,"font=$fn enc=$enc illegal.");
-
- eval {
- $fnt=$pdf->corefont("$fn",-encode => "$enc illegal");
- };
- ok($@,"font=$fn illegal enc=$enc.");
-
- $pdf->end();
- }
-}
-
-exit;
-
-__END__
-
- $Log: 020coreuse.t,v $
- Revision 1.3 2004/04/18 14:11:34 fredo
- fixed test for symbol fonts
-
- Revision 1.2 2004/04/18 14:01:14 fredo
- added defined/undefined test
-
- Revision 1.1 2004/04/18 13:54:21 fredo
- genesis
-
-
\ No newline at end of file
Deleted: packages/libpdf-api2-perl/trunk/t/020corecour.t
===================================================================
--- packages/libpdf-api2-perl/trunk/t/020corecour.t 2005-01-06 06:05:36 UTC (rev 598)
+++ packages/libpdf-api2-perl/trunk/t/020corecour.t 2005-01-06 06:22:38 UTC (rev 599)
@@ -1,121 +0,0 @@
-#!/usr/bin/perl
-#=======================================================================
-# ____ ____ _____ _ ____ ___ ____
-# | _ \| _ \| ___| _ _ / \ | _ \_ _| |___ \
-# | |_) | | | | |_ (_) (_) / _ \ | |_) | | __) |
-# | __/| |_| | _| _ _ / ___ \| __/| | / __/
-# |_| |____/|_| (_) (_) /_/ \_\_| |___| |_____|
-#
-# A Perl Module Chain to faciliate the Creation and Modification
-# of High-Quality "Portable Document Format (PDF)" Files.
-#
-# Copyright 1999-2004 Alfred Reibenschuh <areibens at cpan.org>.
-#
-#=======================================================================
-#
-# PERMISSION TO USE, COPY, MODIFY, AND DISTRIBUTE THIS FILE FOR
-# ANY PURPOSE WITH OR WITHOUT FEE IS HEREBY GRANTED, PROVIDED THAT
-# THE ABOVE COPYRIGHT NOTICE AND THIS PERMISSION NOTICE APPEAR IN ALL
-# COPIES.
-#
-# THIS FILE IS PROVIDED ``AS IS'' AND ANY EXPRESSED OR IMPLIED
-# WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF
-# MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED.
-# IN NO EVENT SHALL THE AUTHORS AND COPYRIGHT HOLDERS AND THEIR
-# CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL,
-# SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT
-# LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF
-# USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND
-# ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY,
-# OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT
-# OF THE USE OF THIS FILE, EVEN IF ADVISED OF THE POSSIBILITY OF
-# SUCH DAMAGE.
-#
-# $Id: 020coreuse.t,v 1.3 2004/04/18 14:11:34 fredo Exp $
-#
-#=======================================================================
-use Encode qw(:all);
-use utf8;
-
-use PDF::API2;
-use PDF::API2::Util;
-use Unicode::UCD 'charinfo';
-
- at encodings=qw|
- latin1 latin2 latin3 latin4 latin5 latin6 latin7 latin8 latin9 latin10
- iso-8859-5 iso-8859-6 iso-8859-7 iso-8859-8
- koi8-f koi8-r koi8-u
- cp424 cp437 cp737 cp775
- cp850 cp852 cp855 cp856 cp857
- cp860 cp861 cp862 cp863 cp864 cp865 cp866 cp869 cp874
- WinLatin2 WinCyrillic WinLatin1 WinGreek WinTurkish WinHebrew WinArabic WinBaltic WinVietnamese
- MacArabic MacCentralEurRoman MacCroatian MacCyrillic MacFarsi MacGreek MacIcelandic MacRoman MacSami MacTurkish MacUkrainian
- AdobeStandardEncoding nextstep hp-roman8
-|;
-# MacHebrew MacThai MacRomanian MacRumanian
-sub encodingToMaps ($) {
- my $e=shift @_;
- my @c=();
- my %c=();
- map{
- my $x=unpack('U',decode($e,chr($_)));
- $c[$_]=$x;
- $c{$x}=$_;
- } (0..255);
- return(\@c,\%c);
-}
-
-sub esc {
- my $newtext=shift @_;
- $newtext=~s/\\/\\\\/go;
- $newtext=~s/([\x00-\x1f])/sprintf('\%03lo',ord($1))/ge;
- $newtext=~s/([\{\}\[\]\(\)])/\\$1/g;
- return("($newtext)");
-}
-
-my @fonts=qw( Courier );
-
-use Test::More qw(no_plan);
-
-foreach my $fn (@fonts) {
-
- foreach my $enc (@encodings) {
- $pdf=PDF::API2->new;
-
- my $fnt=$pdf->corefont($fn,-encode => $enc);
- ok(defined($fnt),"font=$fn enc=$enc.");
- my ($m,$h)=encodingToMaps($enc);
- foreach my $c (0..255) {
- my $t=chr($c);
- my $u=$fnt->strByUtf(chr($m->[$c]));
- ok(($t eq $u) || (nameByUni($fnt->uniByEnc($c)) eq nameByUni($m->[$c])),"font=$fn enc=$enc c=$c u=$m->[$c] t='$t'(".nameByUni($m->[$c]).")[".charinfo($m->[$c])->{name}."] u='$u'(".nameByUni($fnt->uniByEnc($c)).")[".charinfo($fnt->uniByEnc($c))->{name}."].");
- }
- eval {
- $fnt=$pdf->corefont("$fn illegal",-encode => $enc);
- };
- ok($@,"font=$fn enc=$enc illegal.");
-
- eval {
- $fnt=$pdf->corefont("$fn",-encode => "$enc illegal");
- };
- ok($@,"font=$fn illegal enc=$enc.");
-
- $pdf->end();
- }
-}
-
-exit;
-
-__END__
-
- $Log: 020coreuse.t,v $
- Revision 1.3 2004/04/18 14:11:34 fredo
- fixed test for symbol fonts
-
- Revision 1.2 2004/04/18 14:01:14 fredo
- added defined/undefined test
-
- Revision 1.1 2004/04/18 13:54:21 fredo
- genesis
-
-
\ No newline at end of file
Deleted: packages/libpdf-api2-perl/trunk/t/020corehebi.t
===================================================================
--- packages/libpdf-api2-perl/trunk/t/020corehebi.t 2005-01-06 06:05:36 UTC (rev 598)
+++ packages/libpdf-api2-perl/trunk/t/020corehebi.t 2005-01-06 06:22:38 UTC (rev 599)
@@ -1,122 +0,0 @@
-#!/usr/bin/perl
-#=======================================================================
-# ____ ____ _____ _ ____ ___ ____
-# | _ \| _ \| ___| _ _ / \ | _ \_ _| |___ \
-# | |_) | | | | |_ (_) (_) / _ \ | |_) | | __) |
-# | __/| |_| | _| _ _ / ___ \| __/| | / __/
-# |_| |____/|_| (_) (_) /_/ \_\_| |___| |_____|
-#
-# A Perl Module Chain to faciliate the Creation and Modification
-# of High-Quality "Portable Document Format (PDF)" Files.
-#
-# Copyright 1999-2004 Alfred Reibenschuh <areibens at cpan.org>.
-#
-#=======================================================================
-#
-# PERMISSION TO USE, COPY, MODIFY, AND DISTRIBUTE THIS FILE FOR
-# ANY PURPOSE WITH OR WITHOUT FEE IS HEREBY GRANTED, PROVIDED THAT
-# THE ABOVE COPYRIGHT NOTICE AND THIS PERMISSION NOTICE APPEAR IN ALL
-# COPIES.
-#
-# THIS FILE IS PROVIDED ``AS IS'' AND ANY EXPRESSED OR IMPLIED
-# WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF
-# MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED.
-# IN NO EVENT SHALL THE AUTHORS AND COPYRIGHT HOLDERS AND THEIR
-# CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL,
-# SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT
-# LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF
-# USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND
-# ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY,
-# OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT
-# OF THE USE OF THIS FILE, EVEN IF ADVISED OF THE POSSIBILITY OF
-# SUCH DAMAGE.
-#
-# $Id: 020coreuse.t,v 1.3 2004/04/18 14:11:34 fredo Exp $
-#
-#=======================================================================
-
-use Encode qw(:all);
-use utf8;
-
-use PDF::API2;
-use PDF::API2::Util;
-use Unicode::UCD 'charinfo';
-
- at encodings=qw|
- latin1 latin2 latin3 latin4 latin5 latin6 latin7 latin8 latin9 latin10
- iso-8859-5 iso-8859-6 iso-8859-7 iso-8859-8
- koi8-f koi8-r koi8-u
- cp424 cp437 cp737 cp775
- cp850 cp852 cp855 cp856 cp857
- cp860 cp861 cp862 cp863 cp864 cp865 cp866 cp869 cp874
- WinLatin2 WinCyrillic WinLatin1 WinGreek WinTurkish WinHebrew WinArabic WinBaltic WinVietnamese
- MacArabic MacCentralEurRoman MacCroatian MacCyrillic MacFarsi MacGreek MacIcelandic MacRoman MacSami MacTurkish MacUkrainian
- AdobeStandardEncoding nextstep hp-roman8
-|;
-# MacHebrew MacThai MacRomanian MacRumanian
-sub encodingToMaps ($) {
- my $e=shift @_;
- my @c=();
- my %c=();
- map{
- my $x=unpack('U',decode($e,chr($_)));
- $c[$_]=$x;
- $c{$x}=$_;
- } (0..255);
- return(\@c,\%c);
-}
-
-sub esc {
- my $newtext=shift @_;
- $newtext=~s/\\/\\\\/go;
- $newtext=~s/([\x00-\x1f])/sprintf('\%03lo',ord($1))/ge;
- $newtext=~s/([\{\}\[\]\(\)])/\\$1/g;
- return("($newtext)");
-}
-
-my @fonts=qw( Helvetica-BoldOblique );
-
-use Test::More qw(no_plan);
-
-foreach my $fn (@fonts) {
-
- foreach my $enc (@encodings) {
- $pdf=PDF::API2->new;
-
- my $fnt=$pdf->corefont($fn,-encode => $enc);
- ok(defined($fnt),"font=$fn enc=$enc.");
- my ($m,$h)=encodingToMaps($enc);
- foreach my $c (0..255) {
- my $t=chr($c);
- my $u=$fnt->strByUtf(chr($m->[$c]));
- ok(($t eq $u) || (nameByUni($fnt->uniByEnc($c)) eq nameByUni($m->[$c])),"font=$fn enc=$enc c=$c u=$m->[$c] t='$t'(".nameByUni($m->[$c]).")[".charinfo($m->[$c])->{name}."] u='$u'(".nameByUni($fnt->uniByEnc($c)).")[".charinfo($fnt->uniByEnc($c))->{name}."].");
- }
- eval {
- $fnt=$pdf->corefont("$fn illegal",-encode => $enc);
- };
- ok($@,"font=$fn enc=$enc illegal.");
-
- eval {
- $fnt=$pdf->corefont("$fn",-encode => "$enc illegal");
- };
- ok($@,"font=$fn illegal enc=$enc.");
-
- $pdf->end();
- }
-}
-
-exit;
-
-__END__
-
- $Log: 020coreuse.t,v $
- Revision 1.3 2004/04/18 14:11:34 fredo
- fixed test for symbol fonts
-
- Revision 1.2 2004/04/18 14:01:14 fredo
- added defined/undefined test
-
- Revision 1.1 2004/04/18 13:54:21 fredo
- genesis
-
-
\ No newline at end of file
Deleted: packages/libpdf-api2-perl/trunk/t/020corehebo.t
===================================================================
--- packages/libpdf-api2-perl/trunk/t/020corehebo.t 2005-01-06 06:05:36 UTC (rev 598)
+++ packages/libpdf-api2-perl/trunk/t/020corehebo.t 2005-01-06 06:22:38 UTC (rev 599)
@@ -1,122 +0,0 @@
-#!/usr/bin/perl
-#=======================================================================
-# ____ ____ _____ _ ____ ___ ____
-# | _ \| _ \| ___| _ _ / \ | _ \_ _| |___ \
-# | |_) | | | | |_ (_) (_) / _ \ | |_) | | __) |
-# | __/| |_| | _| _ _ / ___ \| __/| | / __/
-# |_| |____/|_| (_) (_) /_/ \_\_| |___| |_____|
-#
-# A Perl Module Chain to faciliate the Creation and Modification
-# of High-Quality "Portable Document Format (PDF)" Files.
-#
-# Copyright 1999-2004 Alfred Reibenschuh <areibens at cpan.org>.
-#
-#=======================================================================
-#
-# PERMISSION TO USE, COPY, MODIFY, AND DISTRIBUTE THIS FILE FOR
-# ANY PURPOSE WITH OR WITHOUT FEE IS HEREBY GRANTED, PROVIDED THAT
-# THE ABOVE COPYRIGHT NOTICE AND THIS PERMISSION NOTICE APPEAR IN ALL
-# COPIES.
-#
-# THIS FILE IS PROVIDED ``AS IS'' AND ANY EXPRESSED OR IMPLIED
-# WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF
-# MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED.
-# IN NO EVENT SHALL THE AUTHORS AND COPYRIGHT HOLDERS AND THEIR
-# CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL,
-# SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT
-# LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF
-# USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND
-# ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY,
-# OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT
-# OF THE USE OF THIS FILE, EVEN IF ADVISED OF THE POSSIBILITY OF
-# SUCH DAMAGE.
-#
-# $Id: 020coreuse.t,v 1.3 2004/04/18 14:11:34 fredo Exp $
-#
-#=======================================================================
-
-use Encode qw(:all);
-use utf8;
-
-use PDF::API2;
-use PDF::API2::Util;
-use Unicode::UCD 'charinfo';
-
- at encodings=qw|
- latin1 latin2 latin3 latin4 latin5 latin6 latin7 latin8 latin9 latin10
- iso-8859-5 iso-8859-6 iso-8859-7 iso-8859-8
- koi8-f koi8-r koi8-u
- cp424 cp437 cp737 cp775
- cp850 cp852 cp855 cp856 cp857
- cp860 cp861 cp862 cp863 cp864 cp865 cp866 cp869 cp874
- WinLatin2 WinCyrillic WinLatin1 WinGreek WinTurkish WinHebrew WinArabic WinBaltic WinVietnamese
- MacArabic MacCentralEurRoman MacCroatian MacCyrillic MacFarsi MacGreek MacIcelandic MacRoman MacSami MacTurkish MacUkrainian
- AdobeStandardEncoding nextstep hp-roman8
-|;
-# MacHebrew MacThai MacRomanian MacRumanian
-sub encodingToMaps ($) {
- my $e=shift @_;
- my @c=();
- my %c=();
- map{
- my $x=unpack('U',decode($e,chr($_)));
- $c[$_]=$x;
- $c{$x}=$_;
- } (0..255);
- return(\@c,\%c);
-}
-
-sub esc {
- my $newtext=shift @_;
- $newtext=~s/\\/\\\\/go;
- $newtext=~s/([\x00-\x1f])/sprintf('\%03lo',ord($1))/ge;
- $newtext=~s/([\{\}\[\]\(\)])/\\$1/g;
- return("($newtext)");
-}
-
-my @fonts=qw( Helvetica-Bold );
-
-use Test::More qw(no_plan);
-
-foreach my $fn (@fonts) {
-
- foreach my $enc (@encodings) {
- $pdf=PDF::API2->new;
-
- my $fnt=$pdf->corefont($fn,-encode => $enc);
- ok(defined($fnt),"font=$fn enc=$enc.");
- my ($m,$h)=encodingToMaps($enc);
- foreach my $c (0..255) {
- my $t=chr($c);
- my $u=$fnt->strByUtf(chr($m->[$c]));
- ok(($t eq $u) || (nameByUni($fnt->uniByEnc($c)) eq nameByUni($m->[$c])),"font=$fn enc=$enc c=$c u=$m->[$c] t='$t'(".nameByUni($m->[$c]).")[".charinfo($m->[$c])->{name}."] u='$u'(".nameByUni($fnt->uniByEnc($c)).")[".charinfo($fnt->uniByEnc($c))->{name}."].");
- }
- eval {
- $fnt=$pdf->corefont("$fn illegal",-encode => $enc);
- };
- ok($@,"font=$fn enc=$enc illegal.");
-
- eval {
- $fnt=$pdf->corefont("$fn",-encode => "$enc illegal");
- };
- ok($@,"font=$fn illegal enc=$enc.");
-
- $pdf->end();
- }
-}
-
-exit;
-
-__END__
-
- $Log: 020coreuse.t,v $
- Revision 1.3 2004/04/18 14:11:34 fredo
- fixed test for symbol fonts
-
- Revision 1.2 2004/04/18 14:01:14 fredo
- added defined/undefined test
-
- Revision 1.1 2004/04/18 13:54:21 fredo
- genesis
-
-
\ No newline at end of file
Deleted: packages/libpdf-api2-perl/trunk/t/020coreheit.t
===================================================================
--- packages/libpdf-api2-perl/trunk/t/020coreheit.t 2005-01-06 06:05:36 UTC (rev 598)
+++ packages/libpdf-api2-perl/trunk/t/020coreheit.t 2005-01-06 06:22:38 UTC (rev 599)
@@ -1,122 +0,0 @@
-#!/usr/bin/perl
-#=======================================================================
-# ____ ____ _____ _ ____ ___ ____
-# | _ \| _ \| ___| _ _ / \ | _ \_ _| |___ \
-# | |_) | | | | |_ (_) (_) / _ \ | |_) | | __) |
-# | __/| |_| | _| _ _ / ___ \| __/| | / __/
-# |_| |____/|_| (_) (_) /_/ \_\_| |___| |_____|
-#
-# A Perl Module Chain to faciliate the Creation and Modification
-# of High-Quality "Portable Document Format (PDF)" Files.
-#
-# Copyright 1999-2004 Alfred Reibenschuh <areibens at cpan.org>.
-#
-#=======================================================================
-#
-# PERMISSION TO USE, COPY, MODIFY, AND DISTRIBUTE THIS FILE FOR
-# ANY PURPOSE WITH OR WITHOUT FEE IS HEREBY GRANTED, PROVIDED THAT
-# THE ABOVE COPYRIGHT NOTICE AND THIS PERMISSION NOTICE APPEAR IN ALL
-# COPIES.
-#
-# THIS FILE IS PROVIDED ``AS IS'' AND ANY EXPRESSED OR IMPLIED
-# WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF
-# MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED.
-# IN NO EVENT SHALL THE AUTHORS AND COPYRIGHT HOLDERS AND THEIR
-# CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL,
-# SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT
-# LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF
-# USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND
-# ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY,
-# OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT
-# OF THE USE OF THIS FILE, EVEN IF ADVISED OF THE POSSIBILITY OF
-# SUCH DAMAGE.
-#
-# $Id: 020coreuse.t,v 1.3 2004/04/18 14:11:34 fredo Exp $
-#
-#=======================================================================
-
-use Encode qw(:all);
-use utf8;
-
-use PDF::API2;
-use PDF::API2::Util;
-use Unicode::UCD 'charinfo';
-
- at encodings=qw|
- latin1 latin2 latin3 latin4 latin5 latin6 latin7 latin8 latin9 latin10
- iso-8859-5 iso-8859-6 iso-8859-7 iso-8859-8
- koi8-f koi8-r koi8-u
- cp424 cp437 cp737 cp775
- cp850 cp852 cp855 cp856 cp857
- cp860 cp861 cp862 cp863 cp864 cp865 cp866 cp869 cp874
- WinLatin2 WinCyrillic WinLatin1 WinGreek WinTurkish WinHebrew WinArabic WinBaltic WinVietnamese
- MacArabic MacCentralEurRoman MacCroatian MacCyrillic MacFarsi MacGreek MacIcelandic MacRoman MacSami MacTurkish MacUkrainian
- AdobeStandardEncoding nextstep hp-roman8
-|;
-# MacHebrew MacThai MacRomanian MacRumanian
-sub encodingToMaps ($) {
- my $e=shift @_;
- my @c=();
- my %c=();
- map{
- my $x=unpack('U',decode($e,chr($_)));
- $c[$_]=$x;
- $c{$x}=$_;
- } (0..255);
- return(\@c,\%c);
-}
-
-sub esc {
- my $newtext=shift @_;
- $newtext=~s/\\/\\\\/go;
- $newtext=~s/([\x00-\x1f])/sprintf('\%03lo',ord($1))/ge;
- $newtext=~s/([\{\}\[\]\(\)])/\\$1/g;
- return("($newtext)");
-}
-
-my @fonts=qw( Helvetica-Oblique );
-
-use Test::More qw(no_plan);
-
-foreach my $fn (@fonts) {
-
- foreach my $enc (@encodings) {
- $pdf=PDF::API2->new;
-
- my $fnt=$pdf->corefont($fn,-encode => $enc);
- ok(defined($fnt),"font=$fn enc=$enc.");
- my ($m,$h)=encodingToMaps($enc);
- foreach my $c (0..255) {
- my $t=chr($c);
- my $u=$fnt->strByUtf(chr($m->[$c]));
- ok(($t eq $u) || (nameByUni($fnt->uniByEnc($c)) eq nameByUni($m->[$c])),"font=$fn enc=$enc c=$c u=$m->[$c] t='$t'(".nameByUni($m->[$c]).")[".charinfo($m->[$c])->{name}."] u='$u'(".nameByUni($fnt->uniByEnc($c)).")[".charinfo($fnt->uniByEnc($c))->{name}."].");
- }
- eval {
- $fnt=$pdf->corefont("$fn illegal",-encode => $enc);
- };
- ok($@,"font=$fn enc=$enc illegal.");
-
- eval {
- $fnt=$pdf->corefont("$fn",-encode => "$enc illegal");
- };
- ok($@,"font=$fn illegal enc=$enc.");
-
- $pdf->end();
- }
-}
-
-exit;
-
-__END__
-
- $Log: 020coreuse.t,v $
- Revision 1.3 2004/04/18 14:11:34 fredo
- fixed test for symbol fonts
-
- Revision 1.2 2004/04/18 14:01:14 fredo
- added defined/undefined test
-
- Revision 1.1 2004/04/18 13:54:21 fredo
- genesis
-
-
\ No newline at end of file
Deleted: packages/libpdf-api2-perl/trunk/t/020corehelv.t
===================================================================
--- packages/libpdf-api2-perl/trunk/t/020corehelv.t 2005-01-06 06:05:36 UTC (rev 598)
+++ packages/libpdf-api2-perl/trunk/t/020corehelv.t 2005-01-06 06:22:38 UTC (rev 599)
@@ -1,122 +0,0 @@
-#!/usr/bin/perl
-#=======================================================================
-# ____ ____ _____ _ ____ ___ ____
-# | _ \| _ \| ___| _ _ / \ | _ \_ _| |___ \
-# | |_) | | | | |_ (_) (_) / _ \ | |_) | | __) |
-# | __/| |_| | _| _ _ / ___ \| __/| | / __/
-# |_| |____/|_| (_) (_) /_/ \_\_| |___| |_____|
-#
-# A Perl Module Chain to faciliate the Creation and Modification
-# of High-Quality "Portable Document Format (PDF)" Files.
-#
-# Copyright 1999-2004 Alfred Reibenschuh <areibens at cpan.org>.
-#
-#=======================================================================
-#
-# PERMISSION TO USE, COPY, MODIFY, AND DISTRIBUTE THIS FILE FOR
-# ANY PURPOSE WITH OR WITHOUT FEE IS HEREBY GRANTED, PROVIDED THAT
-# THE ABOVE COPYRIGHT NOTICE AND THIS PERMISSION NOTICE APPEAR IN ALL
-# COPIES.
-#
-# THIS FILE IS PROVIDED ``AS IS'' AND ANY EXPRESSED OR IMPLIED
-# WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF
-# MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED.
-# IN NO EVENT SHALL THE AUTHORS AND COPYRIGHT HOLDERS AND THEIR
-# CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL,
-# SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT
-# LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF
-# USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND
-# ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY,
-# OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT
-# OF THE USE OF THIS FILE, EVEN IF ADVISED OF THE POSSIBILITY OF
-# SUCH DAMAGE.
-#
-# $Id: 020coreuse.t,v 1.3 2004/04/18 14:11:34 fredo Exp $
-#
-#=======================================================================
-
-use Encode qw(:all);
-use utf8;
-
-use PDF::API2;
-use PDF::API2::Util;
-use Unicode::UCD 'charinfo';
-
- at encodings=qw|
- latin1 latin2 latin3 latin4 latin5 latin6 latin7 latin8 latin9 latin10
- iso-8859-5 iso-8859-6 iso-8859-7 iso-8859-8
- koi8-f koi8-r koi8-u
- cp424 cp437 cp737 cp775
- cp850 cp852 cp855 cp856 cp857
- cp860 cp861 cp862 cp863 cp864 cp865 cp866 cp869 cp874
- WinLatin2 WinCyrillic WinLatin1 WinGreek WinTurkish WinHebrew WinArabic WinBaltic WinVietnamese
- MacArabic MacCentralEurRoman MacCroatian MacCyrillic MacFarsi MacGreek MacIcelandic MacRoman MacSami MacTurkish MacUkrainian
- AdobeStandardEncoding nextstep hp-roman8
-|;
-# MacHebrew MacThai MacRomanian MacRumanian
-sub encodingToMaps ($) {
- my $e=shift @_;
- my @c=();
- my %c=();
- map{
- my $x=unpack('U',decode($e,chr($_)));
- $c[$_]=$x;
- $c{$x}=$_;
- } (0..255);
- return(\@c,\%c);
-}
-
-sub esc {
- my $newtext=shift @_;
- $newtext=~s/\\/\\\\/go;
- $newtext=~s/([\x00-\x1f])/sprintf('\%03lo',ord($1))/ge;
- $newtext=~s/([\{\}\[\]\(\)])/\\$1/g;
- return("($newtext)");
-}
-
-my @fonts=qw( Helvetica );
-
-use Test::More qw(no_plan);
-
-foreach my $fn (@fonts) {
-
- foreach my $enc (@encodings) {
- $pdf=PDF::API2->new;
-
- my $fnt=$pdf->corefont($fn,-encode => $enc);
- ok(defined($fnt),"font=$fn enc=$enc.");
- my ($m,$h)=encodingToMaps($enc);
- foreach my $c (0..255) {
- my $t=chr($c);
- my $u=$fnt->strByUtf(chr($m->[$c]));
- ok(($t eq $u) || (nameByUni($fnt->uniByEnc($c)) eq nameByUni($m->[$c])),"font=$fn enc=$enc c=$c u=$m->[$c] t='$t'(".nameByUni($m->[$c]).")[".charinfo($m->[$c])->{name}."] u='$u'(".nameByUni($fnt->uniByEnc($c)).")[".charinfo($fnt->uniByEnc($c))->{name}."].");
- }
- eval {
- $fnt=$pdf->corefont("$fn illegal",-encode => $enc);
- };
- ok($@,"font=$fn enc=$enc illegal.");
-
- eval {
- $fnt=$pdf->corefont("$fn",-encode => "$enc illegal");
- };
- ok($@,"font=$fn illegal enc=$enc.");
-
- $pdf->end();
- }
-}
-
-exit;
-
-__END__
-
- $Log: 020coreuse.t,v $
- Revision 1.3 2004/04/18 14:11:34 fredo
- fixed test for symbol fonts
-
- Revision 1.2 2004/04/18 14:01:14 fredo
- added defined/undefined test
-
- Revision 1.1 2004/04/18 13:54:21 fredo
- genesis
-
-
\ No newline at end of file
Deleted: packages/libpdf-api2-perl/trunk/t/020coretibi.t
===================================================================
--- packages/libpdf-api2-perl/trunk/t/020coretibi.t 2005-01-06 06:05:36 UTC (rev 598)
+++ packages/libpdf-api2-perl/trunk/t/020coretibi.t 2005-01-06 06:22:38 UTC (rev 599)
@@ -1,124 +0,0 @@
-#!/usr/bin/perl
-#=======================================================================
-# ____ ____ _____ _ ____ ___ ____
-# | _ \| _ \| ___| _ _ / \ | _ \_ _| |___ \
-# | |_) | | | | |_ (_) (_) / _ \ | |_) | | __) |
-# | __/| |_| | _| _ _ / ___ \| __/| | / __/
-# |_| |____/|_| (_) (_) /_/ \_\_| |___| |_____|
-#
-# A Perl Module Chain to faciliate the Creation and Modification
-# of High-Quality "Portable Document Format (PDF)" Files.
-#
-# Copyright 1999-2004 Alfred Reibenschuh <areibens at cpan.org>.
-#
-#=======================================================================
-#
-# PERMISSION TO USE, COPY, MODIFY, AND DISTRIBUTE THIS FILE FOR
-# ANY PURPOSE WITH OR WITHOUT FEE IS HEREBY GRANTED, PROVIDED THAT
-# THE ABOVE COPYRIGHT NOTICE AND THIS PERMISSION NOTICE APPEAR IN ALL
-# COPIES.
-#
-# THIS FILE IS PROVIDED ``AS IS'' AND ANY EXPRESSED OR IMPLIED
-# WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF
-# MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED.
-# IN NO EVENT SHALL THE AUTHORS AND COPYRIGHT HOLDERS AND THEIR
-# CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL,
-# SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT
-# LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF
-# USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND
-# ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY,
-# OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT
-# OF THE USE OF THIS FILE, EVEN IF ADVISED OF THE POSSIBILITY OF
-# SUCH DAMAGE.
-#
-# $Id: 020coreuse.t,v 1.3 2004/04/18 14:11:34 fredo Exp $
-#
-#=======================================================================
-
-use Encode qw(:all);
-use utf8;
-
-use PDF::API2;
-use PDF::API2::Util;
-use Unicode::UCD 'charinfo';
-
- at encodings=qw|
- latin1 latin2 latin3 latin4 latin5 latin6 latin7 latin8 latin9 latin10
- iso-8859-5 iso-8859-6 iso-8859-7 iso-8859-8
- koi8-f koi8-r koi8-u
- cp424 cp437 cp737 cp775
- cp850 cp852 cp855 cp856 cp857
- cp860 cp861 cp862 cp863 cp864 cp865 cp866 cp869 cp874
- WinLatin2 WinCyrillic WinLatin1 WinGreek WinTurkish WinHebrew WinArabic WinBaltic WinVietnamese
- MacArabic MacCentralEurRoman MacCroatian MacCyrillic MacFarsi MacGreek MacIcelandic MacRoman MacSami MacTurkish MacUkrainian
- AdobeStandardEncoding nextstep hp-roman8
-|;
-# MacHebrew MacThai MacRomanian MacRumanian
-
-
-sub encodingToMaps ($) {
- my $e=shift @_;
- my @c=();
- my %c=();
- map{
- my $x=unpack('U',decode($e,chr($_)));
- $c[$_]=$x;
- $c{$x}=$_;
- } (0..255);
- return(\@c,\%c);
-}
-
-sub esc {
- my $newtext=shift @_;
- $newtext=~s/\\/\\\\/go;
- $newtext=~s/([\x00-\x1f])/sprintf('\%03lo',ord($1))/ge;
- $newtext=~s/([\{\}\[\]\(\)])/\\$1/g;
- return("($newtext)");
-}
-
-my @fonts=qw( Times-BoldItalic );
-
-use Test::More qw(no_plan);
-
-foreach my $fn (@fonts) {
-
- foreach my $enc (@encodings) {
- $pdf=PDF::API2->new;
-
- my $fnt=$pdf->corefont($fn,-encode => $enc);
- ok(defined($fnt),"font=$fn enc=$enc.");
- my ($m,$h)=encodingToMaps($enc);
- foreach my $c (0..255) {
- my $t=chr($c);
- my $u=$fnt->strByUtf(chr($m->[$c]));
- ok(($t eq $u) || (nameByUni($fnt->uniByEnc($c)) eq nameByUni($m->[$c])),"font=$fn enc=$enc c=$c u=$m->[$c] t='$t'(".nameByUni($m->[$c]).")[".charinfo($m->[$c])->{name}."] u='$u'(".nameByUni($fnt->uniByEnc($c)).")[".charinfo($fnt->uniByEnc($c))->{name}."].");
- }
- eval {
- $fnt=$pdf->corefont("$fn illegal",-encode => $enc);
- };
- ok($@,"font=$fn enc=$enc illegal.");
-
- eval {
- $fnt=$pdf->corefont("$fn",-encode => "$enc illegal");
- };
- ok($@,"font=$fn illegal enc=$enc.");
-
- $pdf->end();
- }
-}
-
-exit;
-
-__END__
-
- $Log: 020coreuse.t,v $
- Revision 1.3 2004/04/18 14:11:34 fredo
- fixed test for symbol fonts
-
- Revision 1.2 2004/04/18 14:01:14 fredo
- added defined/undefined test
-
- Revision 1.1 2004/04/18 13:54:21 fredo
- genesis
-
-
\ No newline at end of file
Deleted: packages/libpdf-api2-perl/trunk/t/020coretibo.t
===================================================================
--- packages/libpdf-api2-perl/trunk/t/020coretibo.t 2005-01-06 06:05:36 UTC (rev 598)
+++ packages/libpdf-api2-perl/trunk/t/020coretibo.t 2005-01-06 06:22:38 UTC (rev 599)
@@ -1,123 +0,0 @@
-#!/usr/bin/perl
-#=======================================================================
-# ____ ____ _____ _ ____ ___ ____
-# | _ \| _ \| ___| _ _ / \ | _ \_ _| |___ \
-# | |_) | | | | |_ (_) (_) / _ \ | |_) | | __) |
-# | __/| |_| | _| _ _ / ___ \| __/| | / __/
-# |_| |____/|_| (_) (_) /_/ \_\_| |___| |_____|
-#
-# A Perl Module Chain to faciliate the Creation and Modification
-# of High-Quality "Portable Document Format (PDF)" Files.
-#
-# Copyright 1999-2004 Alfred Reibenschuh <areibens at cpan.org>.
-#
-#=======================================================================
-#
-# PERMISSION TO USE, COPY, MODIFY, AND DISTRIBUTE THIS FILE FOR
-# ANY PURPOSE WITH OR WITHOUT FEE IS HEREBY GRANTED, PROVIDED THAT
-# THE ABOVE COPYRIGHT NOTICE AND THIS PERMISSION NOTICE APPEAR IN ALL
-# COPIES.
-#
-# THIS FILE IS PROVIDED ``AS IS'' AND ANY EXPRESSED OR IMPLIED
-# WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF
-# MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED.
-# IN NO EVENT SHALL THE AUTHORS AND COPYRIGHT HOLDERS AND THEIR
-# CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL,
-# SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT
-# LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF
-# USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND
-# ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY,
-# OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT
-# OF THE USE OF THIS FILE, EVEN IF ADVISED OF THE POSSIBILITY OF
-# SUCH DAMAGE.
-#
-# $Id: 020coreuse.t,v 1.3 2004/04/18 14:11:34 fredo Exp $
-#
-#=======================================================================
-
-use Encode qw(:all);
-use utf8;
-
-use PDF::API2;
-use PDF::API2::Util;
-use Unicode::UCD 'charinfo';
-
- at encodings=qw|
- latin1 latin2 latin3 latin4 latin5 latin6 latin7 latin8 latin9 latin10
- iso-8859-5 iso-8859-6 iso-8859-7 iso-8859-8
- koi8-f koi8-r koi8-u
- cp424 cp437 cp737 cp775
- cp850 cp852 cp855 cp856 cp857
- cp860 cp861 cp862 cp863 cp864 cp865 cp866 cp869 cp874
- WinLatin2 WinCyrillic WinLatin1 WinGreek WinTurkish WinHebrew WinArabic WinBaltic WinVietnamese
- MacArabic MacCentralEurRoman MacCroatian MacCyrillic MacFarsi MacGreek MacIcelandic MacRoman MacSami MacTurkish MacUkrainian
- AdobeStandardEncoding nextstep hp-roman8
-|;
-# MacHebrew MacThai MacRomanian MacRumanian
-
-sub encodingToMaps ($) {
- my $e=shift @_;
- my @c=();
- my %c=();
- map{
- my $x=unpack('U',decode($e,chr($_)));
- $c[$_]=$x;
- $c{$x}=$_;
- } (0..255);
- return(\@c,\%c);
-}
-
-sub esc {
- my $newtext=shift @_;
- $newtext=~s/\\/\\\\/go;
- $newtext=~s/([\x00-\x1f])/sprintf('\%03lo',ord($1))/ge;
- $newtext=~s/([\{\}\[\]\(\)])/\\$1/g;
- return("($newtext)");
-}
-
-my @fonts=qw( Times-Bold );
-
-use Test::More qw(no_plan);
-
-foreach my $fn (@fonts) {
-
- foreach my $enc (@encodings) {
- $pdf=PDF::API2->new;
-
- my $fnt=$pdf->corefont($fn,-encode => $enc);
- ok(defined($fnt),"font=$fn enc=$enc.");
- my ($m,$h)=encodingToMaps($enc);
- foreach my $c (0..255) {
- my $t=chr($c);
- my $u=$fnt->strByUtf(chr($m->[$c]));
- ok(($t eq $u) || (nameByUni($fnt->uniByEnc($c)) eq nameByUni($m->[$c])),"font=$fn enc=$enc c=$c u=$m->[$c] t='$t'(".nameByUni($m->[$c]).")[".charinfo($m->[$c])->{name}."] u='$u'(".nameByUni($fnt->uniByEnc($c)).")[".charinfo($fnt->uniByEnc($c))->{name}."].");
- }
- eval {
- $fnt=$pdf->corefont("$fn illegal",-encode => $enc);
- };
- ok($@,"font=$fn enc=$enc illegal.");
-
- eval {
- $fnt=$pdf->corefont("$fn",-encode => "$enc illegal");
- };
- ok($@,"font=$fn illegal enc=$enc.");
-
- $pdf->end();
- }
-}
-
-exit;
-
-__END__
-
- $Log: 020coreuse.t,v $
- Revision 1.3 2004/04/18 14:11:34 fredo
- fixed test for symbol fonts
-
- Revision 1.2 2004/04/18 14:01:14 fredo
- added defined/undefined test
-
- Revision 1.1 2004/04/18 13:54:21 fredo
- genesis
-
-
\ No newline at end of file
Deleted: packages/libpdf-api2-perl/trunk/t/020coretiit.t
===================================================================
--- packages/libpdf-api2-perl/trunk/t/020coretiit.t 2005-01-06 06:05:36 UTC (rev 598)
+++ packages/libpdf-api2-perl/trunk/t/020coretiit.t 2005-01-06 06:22:38 UTC (rev 599)
@@ -1,124 +0,0 @@
-#!/usr/bin/perl
-#=======================================================================
-# ____ ____ _____ _ ____ ___ ____
-# | _ \| _ \| ___| _ _ / \ | _ \_ _| |___ \
-# | |_) | | | | |_ (_) (_) / _ \ | |_) | | __) |
-# | __/| |_| | _| _ _ / ___ \| __/| | / __/
-# |_| |____/|_| (_) (_) /_/ \_\_| |___| |_____|
-#
-# A Perl Module Chain to faciliate the Creation and Modification
-# of High-Quality "Portable Document Format (PDF)" Files.
-#
-# Copyright 1999-2004 Alfred Reibenschuh <areibens at cpan.org>.
-#
-#=======================================================================
-#
-# PERMISSION TO USE, COPY, MODIFY, AND DISTRIBUTE THIS FILE FOR
-# ANY PURPOSE WITH OR WITHOUT FEE IS HEREBY GRANTED, PROVIDED THAT
-# THE ABOVE COPYRIGHT NOTICE AND THIS PERMISSION NOTICE APPEAR IN ALL
-# COPIES.
-#
-# THIS FILE IS PROVIDED ``AS IS'' AND ANY EXPRESSED OR IMPLIED
-# WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF
-# MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED.
-# IN NO EVENT SHALL THE AUTHORS AND COPYRIGHT HOLDERS AND THEIR
-# CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL,
-# SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT
-# LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF
-# USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND
-# ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY,
-# OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT
-# OF THE USE OF THIS FILE, EVEN IF ADVISED OF THE POSSIBILITY OF
-# SUCH DAMAGE.
-#
-# $Id: 020coreuse.t,v 1.3 2004/04/18 14:11:34 fredo Exp $
-#
-#=======================================================================
-
-use Encode qw(:all);
-use utf8;
-
-use PDF::API2;
-use PDF::API2::Util;
-use Unicode::UCD 'charinfo';
-
- at encodings=qw|
- latin1 latin2 latin3 latin4 latin5 latin6 latin7 latin8 latin9 latin10
- iso-8859-5 iso-8859-6 iso-8859-7 iso-8859-8
- koi8-f koi8-r koi8-u
- cp424 cp437 cp737 cp775
- cp850 cp852 cp855 cp856 cp857
- cp860 cp861 cp862 cp863 cp864 cp865 cp866 cp869 cp874
- WinLatin2 WinCyrillic WinLatin1 WinGreek WinTurkish WinHebrew WinArabic WinBaltic WinVietnamese
- MacArabic MacCentralEurRoman MacCroatian MacCyrillic MacFarsi MacGreek MacIcelandic MacRoman MacSami MacTurkish MacUkrainian
- AdobeStandardEncoding nextstep hp-roman8
-|;
-# MacHebrew MacThai MacRomanian MacRumanian
-
-
-sub encodingToMaps ($) {
- my $e=shift @_;
- my @c=();
- my %c=();
- map{
- my $x=unpack('U',decode($e,chr($_)));
- $c[$_]=$x;
- $c{$x}=$_;
- } (0..255);
- return(\@c,\%c);
-}
-
-sub esc {
- my $newtext=shift @_;
- $newtext=~s/\\/\\\\/go;
- $newtext=~s/([\x00-\x1f])/sprintf('\%03lo',ord($1))/ge;
- $newtext=~s/([\{\}\[\]\(\)])/\\$1/g;
- return("($newtext)");
-}
-
-my @fonts=qw( Times-Italic );
-
-use Test::More qw(no_plan);
-
-foreach my $fn (@fonts) {
-
- foreach my $enc (@encodings) {
- $pdf=PDF::API2->new;
-
- my $fnt=$pdf->corefont($fn,-encode => $enc);
- ok(defined($fnt),"font=$fn enc=$enc.");
- my ($m,$h)=encodingToMaps($enc);
- foreach my $c (0..255) {
- my $t=chr($c);
- my $u=$fnt->strByUtf(chr($m->[$c]));
- ok(($t eq $u) || (nameByUni($fnt->uniByEnc($c)) eq nameByUni($m->[$c])),"font=$fn enc=$enc c=$c u=$m->[$c] t='$t'(".nameByUni($m->[$c]).")[".charinfo($m->[$c])->{name}."] u='$u'(".nameByUni($fnt->uniByEnc($c)).")[".charinfo($fnt->uniByEnc($c))->{name}."].");
- }
- eval {
- $fnt=$pdf->corefont("$fn illegal",-encode => $enc);
- };
- ok($@,"font=$fn enc=$enc illegal.");
-
- eval {
- $fnt=$pdf->corefont("$fn",-encode => "$enc illegal");
- };
- ok($@,"font=$fn illegal enc=$enc.");
-
- $pdf->end();
- }
-}
-
-exit;
-
-__END__
-
- $Log: 020coreuse.t,v $
- Revision 1.3 2004/04/18 14:11:34 fredo
- fixed test for symbol fonts
-
- Revision 1.2 2004/04/18 14:01:14 fredo
- added defined/undefined test
-
- Revision 1.1 2004/04/18 13:54:21 fredo
- genesis
-
-
\ No newline at end of file
Deleted: packages/libpdf-api2-perl/trunk/t/020coretiro.t
===================================================================
--- packages/libpdf-api2-perl/trunk/t/020coretiro.t 2005-01-06 06:05:36 UTC (rev 598)
+++ packages/libpdf-api2-perl/trunk/t/020coretiro.t 2005-01-06 06:22:38 UTC (rev 599)
@@ -1,135 +0,0 @@
-#!/usr/bin/perl
-#=======================================================================
-# ____ ____ _____ _ ____ ___ ____
-# | _ \| _ \| ___| _ _ / \ | _ \_ _| |___ \
-# | |_) | | | | |_ (_) (_) / _ \ | |_) | | __) |
-# | __/| |_| | _| _ _ / ___ \| __/| | / __/
-# |_| |____/|_| (_) (_) /_/ \_\_| |___| |_____|
-#
-# A Perl Module Chain to faciliate the Creation and Modification
-# of High-Quality "Portable Document Format (PDF)" Files.
-#
-# Copyright 1999-2004 Alfred Reibenschuh <areibens at cpan.org>.
-#
-#=======================================================================
-#
-# PERMISSION TO USE, COPY, MODIFY, AND DISTRIBUTE THIS FILE FOR
-# ANY PURPOSE WITH OR WITHOUT FEE IS HEREBY GRANTED, PROVIDED THAT
-# THE ABOVE COPYRIGHT NOTICE AND THIS PERMISSION NOTICE APPEAR IN ALL
-# COPIES.
-#
-# THIS FILE IS PROVIDED ``AS IS'' AND ANY EXPRESSED OR IMPLIED
-# WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF
-# MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED.
-# IN NO EVENT SHALL THE AUTHORS AND COPYRIGHT HOLDERS AND THEIR
-# CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL,
-# SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT
-# LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF
-# USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND
-# ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY,
-# OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT
-# OF THE USE OF THIS FILE, EVEN IF ADVISED OF THE POSSIBILITY OF
-# SUCH DAMAGE.
-#
-# $Id: 020coreuse.t,v 1.3 2004/04/18 14:11:34 fredo Exp $
-#
-#=======================================================================
-
-my @fonts1=qw(
- Times-Roman
-);
-# Times-Italic Times-Bold Times-BoldItalic
-# Courier Courier-Oblique Courier-Bold Courier-BoldOblique
-# Helvetica Helvetica-Oblique Helvetica-Bold Helvetica-BoldOblique
-# Georgia Georgia-Italic Georgia-Bold Georgia-BoldItalic
-# Trebuchet Trebuchet-Italic Trebuchet-Bold Trebuchet-BoldItalic
-# Verdana Verdana-Italic Verdana-Bold Verdana-BoldItalic
-my @fonts2=qw(
- Symbol ZapfDingbats Wingdings Webdings
-);
-
-use Encode qw(:all);
-use utf8;
-
-use PDF::API2;
-use PDF::API2::Util;
-use Unicode::UCD 'charinfo';
-
- at encodings=qw|
- latin1 latin2 latin3 latin4 latin5 latin6 latin7 latin8 latin9 latin10
- iso-8859-5 iso-8859-6 iso-8859-7 iso-8859-8
- koi8-f koi8-r koi8-u
- cp424 cp437 cp737 cp775
- cp850 cp852 cp855 cp856 cp857
- cp860 cp861 cp862 cp863 cp864 cp865 cp866 cp869 cp874
- WinLatin2 WinCyrillic WinLatin1 WinGreek WinTurkish WinHebrew WinArabic WinBaltic WinVietnamese
- MacArabic MacCentralEurRoman MacCroatian MacCyrillic MacFarsi MacGreek MacIcelandic MacRoman MacSami MacTurkish MacUkrainian
- AdobeStandardEncoding nextstep hp-roman8
-|;
-# MacHebrew MacThai MacRomanian MacRumanian
-sub encodingToMaps ($) {
- my $e=shift @_;
- my @c=();
- my %c=();
- map{
- my $x=unpack('U',decode($e,chr($_)));
- $c[$_]=$x;
- $c{$x}=$_;
- } (0..255);
- return(\@c,\%c);
-}
-
-sub esc {
- my $newtext=shift @_;
- $newtext=~s/\\/\\\\/go;
- $newtext=~s/([\x00-\x1f])/sprintf('\%03lo',ord($1))/ge;
- $newtext=~s/([\{\}\[\]\(\)])/\\$1/g;
- return("($newtext)");
-}
-
-my @fonts=qw( Times-Roman );
-
-use Test::More qw(no_plan);
-
-foreach my $fn (@fonts) {
-
- foreach my $enc (@encodings) {
- $pdf=PDF::API2->new;
-
- my $fnt=$pdf->corefont($fn,-encode => $enc);
- ok(defined($fnt),"font=$fn enc=$enc.");
- my ($m,$h)=encodingToMaps($enc);
- foreach my $c (0..255) {
- my $t=chr($c);
- my $u=$fnt->strByUtf(chr($m->[$c]));
- ok(($t eq $u) || (nameByUni($fnt->uniByEnc($c)) eq nameByUni($m->[$c])),"font=$fn enc=$enc c=$c u=$m->[$c] t='$t'(".nameByUni($m->[$c]).")[".charinfo($m->[$c])->{name}."] u='$u'(".nameByUni($fnt->uniByEnc($c)).")[".charinfo($fnt->uniByEnc($c))->{name}."].");
- }
- eval {
- $fnt=$pdf->corefont("$fn illegal",-encode => $enc);
- };
- ok($@,"font=$fn enc=$enc illegal.");
-
- eval {
- $fnt=$pdf->corefont("$fn",-encode => "$enc illegal");
- };
- ok($@,"font=$fn illegal enc=$enc.");
-
- $pdf->end();
- }
-}
-
-exit;
-
-__END__
-
- $Log: 020coreuse.t,v $
- Revision 1.3 2004/04/18 14:11:34 fredo
- fixed test for symbol fonts
-
- Revision 1.2 2004/04/18 14:01:14 fredo
- added defined/undefined test
-
- Revision 1.1 2004/04/18 13:54:21 fredo
- genesis
-
-
\ No newline at end of file
Deleted: packages/libpdf-api2-perl/trunk/t/020coretrbi.t
===================================================================
--- packages/libpdf-api2-perl/trunk/t/020coretrbi.t 2005-01-06 06:05:36 UTC (rev 598)
+++ packages/libpdf-api2-perl/trunk/t/020coretrbi.t 2005-01-06 06:22:38 UTC (rev 599)
@@ -1,122 +0,0 @@
-#!/usr/bin/perl
-#=======================================================================
-# ____ ____ _____ _ ____ ___ ____
-# | _ \| _ \| ___| _ _ / \ | _ \_ _| |___ \
-# | |_) | | | | |_ (_) (_) / _ \ | |_) | | __) |
-# | __/| |_| | _| _ _ / ___ \| __/| | / __/
-# |_| |____/|_| (_) (_) /_/ \_\_| |___| |_____|
-#
-# A Perl Module Chain to faciliate the Creation and Modification
-# of High-Quality "Portable Document Format (PDF)" Files.
-#
-# Copyright 1999-2004 Alfred Reibenschuh <areibens at cpan.org>.
-#
-#=======================================================================
-#
-# PERMISSION TO USE, COPY, MODIFY, AND DISTRIBUTE THIS FILE FOR
-# ANY PURPOSE WITH OR WITHOUT FEE IS HEREBY GRANTED, PROVIDED THAT
-# THE ABOVE COPYRIGHT NOTICE AND THIS PERMISSION NOTICE APPEAR IN ALL
-# COPIES.
-#
-# THIS FILE IS PROVIDED ``AS IS'' AND ANY EXPRESSED OR IMPLIED
-# WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF
-# MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED.
-# IN NO EVENT SHALL THE AUTHORS AND COPYRIGHT HOLDERS AND THEIR
-# CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL,
-# SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT
-# LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF
-# USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND
-# ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY,
-# OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT
-# OF THE USE OF THIS FILE, EVEN IF ADVISED OF THE POSSIBILITY OF
-# SUCH DAMAGE.
-#
-# $Id: 020coreuse.t,v 1.3 2004/04/18 14:11:34 fredo Exp $
-#
-#=======================================================================
-
-use Encode qw(:all);
-use utf8;
-
-use PDF::API2;
-use PDF::API2::Util;
-use Unicode::UCD 'charinfo';
-
- at encodings=qw|
- latin1 latin2 latin3 latin4 latin5 latin6 latin7 latin8 latin9 latin10
- iso-8859-5 iso-8859-6 iso-8859-7 iso-8859-8
- koi8-f koi8-r koi8-u
- cp424 cp437 cp737 cp775
- cp850 cp852 cp855 cp856 cp857
- cp860 cp861 cp862 cp863 cp864 cp865 cp866 cp869 cp874
- WinLatin2 WinCyrillic WinLatin1 WinGreek WinTurkish WinHebrew WinArabic WinBaltic WinVietnamese
- MacArabic MacCentralEurRoman MacCroatian MacCyrillic MacFarsi MacGreek MacIcelandic MacRoman MacSami MacTurkish MacUkrainian
- AdobeStandardEncoding nextstep hp-roman8
-|;
-# MacHebrew MacThai MacRomanian MacRumanian
-sub encodingToMaps ($) {
- my $e=shift @_;
- my @c=();
- my %c=();
- map{
- my $x=unpack('U',decode($e,chr($_)));
- $c[$_]=$x;
- $c{$x}=$_;
- } (0..255);
- return(\@c,\%c);
-}
-
-sub esc {
- my $newtext=shift @_;
- $newtext=~s/\\/\\\\/go;
- $newtext=~s/([\x00-\x1f])/sprintf('\%03lo',ord($1))/ge;
- $newtext=~s/([\{\}\[\]\(\)])/\\$1/g;
- return("($newtext)");
-}
-
-my @fonts=qw( Trebuchet-BoldItalic );
-
-use Test::More qw(no_plan);
-
-foreach my $fn (@fonts) {
-
- foreach my $enc (@encodings) {
- $pdf=PDF::API2->new;
-
- my $fnt=$pdf->corefont($fn,-encode => $enc);
- ok(defined($fnt),"font=$fn enc=$enc.");
- my ($m,$h)=encodingToMaps($enc);
- foreach my $c (0..255) {
- my $t=chr($c);
- my $u=$fnt->strByUtf(chr($m->[$c]));
- ok(($t eq $u) || (nameByUni($fnt->uniByEnc($c)) eq nameByUni($m->[$c])),"font=$fn enc=$enc c=$c u=$m->[$c] t='$t'(".nameByUni($m->[$c]).")[".charinfo($m->[$c])->{name}."] u='$u'(".nameByUni($fnt->uniByEnc($c)).")[".charinfo($fnt->uniByEnc($c))->{name}."].");
- }
- eval {
- $fnt=$pdf->corefont("$fn illegal",-encode => $enc);
- };
- ok($@,"font=$fn enc=$enc illegal.");
-
- eval {
- $fnt=$pdf->corefont("$fn",-encode => "$enc illegal");
- };
- ok($@,"font=$fn illegal enc=$enc.");
-
- $pdf->end();
- }
-}
-
-exit;
-
-__END__
-
- $Log: 020coreuse.t,v $
- Revision 1.3 2004/04/18 14:11:34 fredo
- fixed test for symbol fonts
-
- Revision 1.2 2004/04/18 14:01:14 fredo
- added defined/undefined test
-
- Revision 1.1 2004/04/18 13:54:21 fredo
- genesis
-
-
\ No newline at end of file
Deleted: packages/libpdf-api2-perl/trunk/t/020coretrbo.t
===================================================================
--- packages/libpdf-api2-perl/trunk/t/020coretrbo.t 2005-01-06 06:05:36 UTC (rev 598)
+++ packages/libpdf-api2-perl/trunk/t/020coretrbo.t 2005-01-06 06:22:38 UTC (rev 599)
@@ -1,122 +0,0 @@
-#!/usr/bin/perl
-#=======================================================================
-# ____ ____ _____ _ ____ ___ ____
-# | _ \| _ \| ___| _ _ / \ | _ \_ _| |___ \
-# | |_) | | | | |_ (_) (_) / _ \ | |_) | | __) |
-# | __/| |_| | _| _ _ / ___ \| __/| | / __/
-# |_| |____/|_| (_) (_) /_/ \_\_| |___| |_____|
-#
-# A Perl Module Chain to faciliate the Creation and Modification
-# of High-Quality "Portable Document Format (PDF)" Files.
-#
-# Copyright 1999-2004 Alfred Reibenschuh <areibens at cpan.org>.
-#
-#=======================================================================
-#
-# PERMISSION TO USE, COPY, MODIFY, AND DISTRIBUTE THIS FILE FOR
-# ANY PURPOSE WITH OR WITHOUT FEE IS HEREBY GRANTED, PROVIDED THAT
-# THE ABOVE COPYRIGHT NOTICE AND THIS PERMISSION NOTICE APPEAR IN ALL
-# COPIES.
-#
-# THIS FILE IS PROVIDED ``AS IS'' AND ANY EXPRESSED OR IMPLIED
-# WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF
-# MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED.
-# IN NO EVENT SHALL THE AUTHORS AND COPYRIGHT HOLDERS AND THEIR
-# CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL,
-# SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT
-# LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF
-# USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND
-# ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY,
-# OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT
-# OF THE USE OF THIS FILE, EVEN IF ADVISED OF THE POSSIBILITY OF
-# SUCH DAMAGE.
-#
-# $Id: 020coreuse.t,v 1.3 2004/04/18 14:11:34 fredo Exp $
-#
-#=======================================================================
-
-use Encode qw(:all);
-use utf8;
-
-use PDF::API2;
-use PDF::API2::Util;
-use Unicode::UCD 'charinfo';
-
- at encodings=qw|
- latin1 latin2 latin3 latin4 latin5 latin6 latin7 latin8 latin9 latin10
- iso-8859-5 iso-8859-6 iso-8859-7 iso-8859-8
- koi8-f koi8-r koi8-u
- cp424 cp437 cp737 cp775
- cp850 cp852 cp855 cp856 cp857
- cp860 cp861 cp862 cp863 cp864 cp865 cp866 cp869 cp874
- WinLatin2 WinCyrillic WinLatin1 WinGreek WinTurkish WinHebrew WinArabic WinBaltic WinVietnamese
- MacArabic MacCentralEurRoman MacCroatian MacCyrillic MacFarsi MacGreek MacIcelandic MacRoman MacSami MacTurkish MacUkrainian
- AdobeStandardEncoding nextstep hp-roman8
-|;
-# MacHebrew MacThai MacRomanian MacRumanian
-sub encodingToMaps ($) {
- my $e=shift @_;
- my @c=();
- my %c=();
- map{
- my $x=unpack('U',decode($e,chr($_)));
- $c[$_]=$x;
- $c{$x}=$_;
- } (0..255);
- return(\@c,\%c);
-}
-
-sub esc {
- my $newtext=shift @_;
- $newtext=~s/\\/\\\\/go;
- $newtext=~s/([\x00-\x1f])/sprintf('\%03lo',ord($1))/ge;
- $newtext=~s/([\{\}\[\]\(\)])/\\$1/g;
- return("($newtext)");
-}
-
-my @fonts=qw( Trebuchet-Bold );
-
-use Test::More qw(no_plan);
-
-foreach my $fn (@fonts) {
-
- foreach my $enc (@encodings) {
- $pdf=PDF::API2->new;
-
- my $fnt=$pdf->corefont($fn,-encode => $enc);
- ok(defined($fnt),"font=$fn enc=$enc.");
- my ($m,$h)=encodingToMaps($enc);
- foreach my $c (0..255) {
- my $t=chr($c);
- my $u=$fnt->strByUtf(chr($m->[$c]));
- ok(($t eq $u) || (nameByUni($fnt->uniByEnc($c)) eq nameByUni($m->[$c])),"font=$fn enc=$enc c=$c u=$m->[$c] t='$t'(".nameByUni($m->[$c]).")[".charinfo($m->[$c])->{name}."] u='$u'(".nameByUni($fnt->uniByEnc($c)).")[".charinfo($fnt->uniByEnc($c))->{name}."].");
- }
- eval {
- $fnt=$pdf->corefont("$fn illegal",-encode => $enc);
- };
- ok($@,"font=$fn enc=$enc illegal.");
-
- eval {
- $fnt=$pdf->corefont("$fn",-encode => "$enc illegal");
- };
- ok($@,"font=$fn illegal enc=$enc.");
-
- $pdf->end();
- }
-}
-
-exit;
-
-__END__
-
- $Log: 020coreuse.t,v $
- Revision 1.3 2004/04/18 14:11:34 fredo
- fixed test for symbol fonts
-
- Revision 1.2 2004/04/18 14:01:14 fredo
- added defined/undefined test
-
- Revision 1.1 2004/04/18 13:54:21 fredo
- genesis
-
-
\ No newline at end of file
Deleted: packages/libpdf-api2-perl/trunk/t/020coretreb.t
===================================================================
--- packages/libpdf-api2-perl/trunk/t/020coretreb.t 2005-01-06 06:05:36 UTC (rev 598)
+++ packages/libpdf-api2-perl/trunk/t/020coretreb.t 2005-01-06 06:22:38 UTC (rev 599)
@@ -1,122 +0,0 @@
-#!/usr/bin/perl
-#=======================================================================
-# ____ ____ _____ _ ____ ___ ____
-# | _ \| _ \| ___| _ _ / \ | _ \_ _| |___ \
-# | |_) | | | | |_ (_) (_) / _ \ | |_) | | __) |
-# | __/| |_| | _| _ _ / ___ \| __/| | / __/
-# |_| |____/|_| (_) (_) /_/ \_\_| |___| |_____|
-#
-# A Perl Module Chain to faciliate the Creation and Modification
-# of High-Quality "Portable Document Format (PDF)" Files.
-#
-# Copyright 1999-2004 Alfred Reibenschuh <areibens at cpan.org>.
-#
-#=======================================================================
-#
-# PERMISSION TO USE, COPY, MODIFY, AND DISTRIBUTE THIS FILE FOR
-# ANY PURPOSE WITH OR WITHOUT FEE IS HEREBY GRANTED, PROVIDED THAT
-# THE ABOVE COPYRIGHT NOTICE AND THIS PERMISSION NOTICE APPEAR IN ALL
-# COPIES.
-#
-# THIS FILE IS PROVIDED ``AS IS'' AND ANY EXPRESSED OR IMPLIED
-# WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF
-# MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED.
-# IN NO EVENT SHALL THE AUTHORS AND COPYRIGHT HOLDERS AND THEIR
-# CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL,
-# SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT
-# LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF
-# USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND
-# ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY,
-# OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT
-# OF THE USE OF THIS FILE, EVEN IF ADVISED OF THE POSSIBILITY OF
-# SUCH DAMAGE.
-#
-# $Id: 020coreuse.t,v 1.3 2004/04/18 14:11:34 fredo Exp $
-#
-#=======================================================================
-
-use Encode qw(:all);
-use utf8;
-
-use PDF::API2;
-use PDF::API2::Util;
-use Unicode::UCD 'charinfo';
-
- at encodings=qw|
- latin1 latin2 latin3 latin4 latin5 latin6 latin7 latin8 latin9 latin10
- iso-8859-5 iso-8859-6 iso-8859-7 iso-8859-8
- koi8-f koi8-r koi8-u
- cp424 cp437 cp737 cp775
- cp850 cp852 cp855 cp856 cp857
- cp860 cp861 cp862 cp863 cp864 cp865 cp866 cp869 cp874
- WinLatin2 WinCyrillic WinLatin1 WinGreek WinTurkish WinHebrew WinArabic WinBaltic WinVietnamese
- MacArabic MacCentralEurRoman MacCroatian MacCyrillic MacFarsi MacGreek MacIcelandic MacRoman MacSami MacTurkish MacUkrainian
- AdobeStandardEncoding nextstep hp-roman8
-|;
-# MacHebrew MacThai MacRomanian MacRumanian
-sub encodingToMaps ($) {
- my $e=shift @_;
- my @c=();
- my %c=();
- map{
- my $x=unpack('U',decode($e,chr($_)));
- $c[$_]=$x;
- $c{$x}=$_;
- } (0..255);
- return(\@c,\%c);
-}
-
-sub esc {
- my $newtext=shift @_;
- $newtext=~s/\\/\\\\/go;
- $newtext=~s/([\x00-\x1f])/sprintf('\%03lo',ord($1))/ge;
- $newtext=~s/([\{\}\[\]\(\)])/\\$1/g;
- return("($newtext)");
-}
-
-my @fonts=qw( Trebuchet );
-
-use Test::More qw(no_plan);
-
-foreach my $fn (@fonts) {
-
- foreach my $enc (@encodings) {
- $pdf=PDF::API2->new;
-
- my $fnt=$pdf->corefont($fn,-encode => $enc);
- ok(defined($fnt),"font=$fn enc=$enc.");
- my ($m,$h)=encodingToMaps($enc);
- foreach my $c (0..255) {
- my $t=chr($c);
- my $u=$fnt->strByUtf(chr($m->[$c]));
- ok(($t eq $u) || (nameByUni($fnt->uniByEnc($c)) eq nameByUni($m->[$c])),"font=$fn enc=$enc c=$c u=$m->[$c] t='$t'(".nameByUni($m->[$c]).")[".charinfo($m->[$c])->{name}."] u='$u'(".nameByUni($fnt->uniByEnc($c)).")[".charinfo($fnt->uniByEnc($c))->{name}."].");
- }
- eval {
- $fnt=$pdf->corefont("$fn illegal",-encode => $enc);
- };
- ok($@,"font=$fn enc=$enc illegal.");
-
- eval {
- $fnt=$pdf->corefont("$fn",-encode => "$enc illegal");
- };
- ok($@,"font=$fn illegal enc=$enc.");
-
- $pdf->end();
- }
-}
-
-exit;
-
-__END__
-
- $Log: 020coreuse.t,v $
- Revision 1.3 2004/04/18 14:11:34 fredo
- fixed test for symbol fonts
-
- Revision 1.2 2004/04/18 14:01:14 fredo
- added defined/undefined test
-
- Revision 1.1 2004/04/18 13:54:21 fredo
- genesis
-
-
\ No newline at end of file
Deleted: packages/libpdf-api2-perl/trunk/t/020coretrit.t
===================================================================
--- packages/libpdf-api2-perl/trunk/t/020coretrit.t 2005-01-06 06:05:36 UTC (rev 598)
+++ packages/libpdf-api2-perl/trunk/t/020coretrit.t 2005-01-06 06:22:38 UTC (rev 599)
@@ -1,122 +0,0 @@
-#!/usr/bin/perl
-#=======================================================================
-# ____ ____ _____ _ ____ ___ ____
-# | _ \| _ \| ___| _ _ / \ | _ \_ _| |___ \
-# | |_) | | | | |_ (_) (_) / _ \ | |_) | | __) |
-# | __/| |_| | _| _ _ / ___ \| __/| | / __/
-# |_| |____/|_| (_) (_) /_/ \_\_| |___| |_____|
-#
-# A Perl Module Chain to faciliate the Creation and Modification
-# of High-Quality "Portable Document Format (PDF)" Files.
-#
-# Copyright 1999-2004 Alfred Reibenschuh <areibens at cpan.org>.
-#
-#=======================================================================
-#
-# PERMISSION TO USE, COPY, MODIFY, AND DISTRIBUTE THIS FILE FOR
-# ANY PURPOSE WITH OR WITHOUT FEE IS HEREBY GRANTED, PROVIDED THAT
-# THE ABOVE COPYRIGHT NOTICE AND THIS PERMISSION NOTICE APPEAR IN ALL
-# COPIES.
-#
-# THIS FILE IS PROVIDED ``AS IS'' AND ANY EXPRESSED OR IMPLIED
-# WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF
-# MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED.
-# IN NO EVENT SHALL THE AUTHORS AND COPYRIGHT HOLDERS AND THEIR
-# CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL,
-# SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT
-# LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF
-# USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND
-# ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY,
-# OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT
-# OF THE USE OF THIS FILE, EVEN IF ADVISED OF THE POSSIBILITY OF
-# SUCH DAMAGE.
-#
-# $Id: 020coreuse.t,v 1.3 2004/04/18 14:11:34 fredo Exp $
-#
-#=======================================================================
-
-use Encode qw(:all);
-use utf8;
-
-use PDF::API2;
-use PDF::API2::Util;
-use Unicode::UCD 'charinfo';
-
- at encodings=qw|
- latin1 latin2 latin3 latin4 latin5 latin6 latin7 latin8 latin9 latin10
- iso-8859-5 iso-8859-6 iso-8859-7 iso-8859-8
- koi8-f koi8-r koi8-u
- cp424 cp437 cp737 cp775
- cp850 cp852 cp855 cp856 cp857
- cp860 cp861 cp862 cp863 cp864 cp865 cp866 cp869 cp874
- WinLatin2 WinCyrillic WinLatin1 WinGreek WinTurkish WinHebrew WinArabic WinBaltic WinVietnamese
- MacArabic MacCentralEurRoman MacCroatian MacCyrillic MacFarsi MacGreek MacIcelandic MacRoman MacSami MacTurkish MacUkrainian
- AdobeStandardEncoding nextstep hp-roman8
-|;
-# MacHebrew MacThai MacRomanian MacRumanian
-sub encodingToMaps ($) {
- my $e=shift @_;
- my @c=();
- my %c=();
- map{
- my $x=unpack('U',decode($e,chr($_)));
- $c[$_]=$x;
- $c{$x}=$_;
- } (0..255);
- return(\@c,\%c);
-}
-
-sub esc {
- my $newtext=shift @_;
- $newtext=~s/\\/\\\\/go;
- $newtext=~s/([\x00-\x1f])/sprintf('\%03lo',ord($1))/ge;
- $newtext=~s/([\{\}\[\]\(\)])/\\$1/g;
- return("($newtext)");
-}
-
-my @fonts=qw( Trebuchet-Italic );
-
-use Test::More qw(no_plan);
-
-foreach my $fn (@fonts) {
-
- foreach my $enc (@encodings) {
- $pdf=PDF::API2->new;
-
- my $fnt=$pdf->corefont($fn,-encode => $enc);
- ok(defined($fnt),"font=$fn enc=$enc.");
- my ($m,$h)=encodingToMaps($enc);
- foreach my $c (0..255) {
- my $t=chr($c);
- my $u=$fnt->strByUtf(chr($m->[$c]));
- ok(($t eq $u) || (nameByUni($fnt->uniByEnc($c)) eq nameByUni($m->[$c])),"font=$fn enc=$enc c=$c u=$m->[$c] t='$t'(".nameByUni($m->[$c]).")[".charinfo($m->[$c])->{name}."] u='$u'(".nameByUni($fnt->uniByEnc($c)).")[".charinfo($fnt->uniByEnc($c))->{name}."].");
- }
- eval {
- $fnt=$pdf->corefont("$fn illegal",-encode => $enc);
- };
- ok($@,"font=$fn enc=$enc illegal.");
-
- eval {
- $fnt=$pdf->corefont("$fn",-encode => "$enc illegal");
- };
- ok($@,"font=$fn illegal enc=$enc.");
-
- $pdf->end();
- }
-}
-
-exit;
-
-__END__
-
- $Log: 020coreuse.t,v $
- Revision 1.3 2004/04/18 14:11:34 fredo
- fixed test for symbol fonts
-
- Revision 1.2 2004/04/18 14:01:14 fredo
- added defined/undefined test
-
- Revision 1.1 2004/04/18 13:54:21 fredo
- genesis
-
-
\ No newline at end of file
Deleted: packages/libpdf-api2-perl/trunk/t/020corevebi.t
===================================================================
--- packages/libpdf-api2-perl/trunk/t/020corevebi.t 2005-01-06 06:05:36 UTC (rev 598)
+++ packages/libpdf-api2-perl/trunk/t/020corevebi.t 2005-01-06 06:22:38 UTC (rev 599)
@@ -1,122 +0,0 @@
-#!/usr/bin/perl
-#=======================================================================
-# ____ ____ _____ _ ____ ___ ____
-# | _ \| _ \| ___| _ _ / \ | _ \_ _| |___ \
-# | |_) | | | | |_ (_) (_) / _ \ | |_) | | __) |
-# | __/| |_| | _| _ _ / ___ \| __/| | / __/
-# |_| |____/|_| (_) (_) /_/ \_\_| |___| |_____|
-#
-# A Perl Module Chain to faciliate the Creation and Modification
-# of High-Quality "Portable Document Format (PDF)" Files.
-#
-# Copyright 1999-2004 Alfred Reibenschuh <areibens at cpan.org>.
-#
-#=======================================================================
-#
-# PERMISSION TO USE, COPY, MODIFY, AND DISTRIBUTE THIS FILE FOR
-# ANY PURPOSE WITH OR WITHOUT FEE IS HEREBY GRANTED, PROVIDED THAT
-# THE ABOVE COPYRIGHT NOTICE AND THIS PERMISSION NOTICE APPEAR IN ALL
-# COPIES.
-#
-# THIS FILE IS PROVIDED ``AS IS'' AND ANY EXPRESSED OR IMPLIED
-# WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF
-# MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED.
-# IN NO EVENT SHALL THE AUTHORS AND COPYRIGHT HOLDERS AND THEIR
-# CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL,
-# SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT
-# LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF
-# USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND
-# ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY,
-# OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT
-# OF THE USE OF THIS FILE, EVEN IF ADVISED OF THE POSSIBILITY OF
-# SUCH DAMAGE.
-#
-# $Id: 020coreuse.t,v 1.3 2004/04/18 14:11:34 fredo Exp $
-#
-#=======================================================================
-
-use Encode qw(:all);
-use utf8;
-
-use PDF::API2;
-use PDF::API2::Util;
-use Unicode::UCD 'charinfo';
-
- at encodings=qw|
- latin1 latin2 latin3 latin4 latin5 latin6 latin7 latin8 latin9 latin10
- iso-8859-5 iso-8859-6 iso-8859-7 iso-8859-8
- koi8-f koi8-r koi8-u
- cp424 cp437 cp737 cp775
- cp850 cp852 cp855 cp856 cp857
- cp860 cp861 cp862 cp863 cp864 cp865 cp866 cp869 cp874
- WinLatin2 WinCyrillic WinLatin1 WinGreek WinTurkish WinHebrew WinArabic WinBaltic WinVietnamese
- MacArabic MacCentralEurRoman MacCroatian MacCyrillic MacFarsi MacGreek MacIcelandic MacRoman MacSami MacTurkish MacUkrainian
- AdobeStandardEncoding nextstep hp-roman8
-|;
-# MacHebrew MacThai MacRomanian MacRumanian
-sub encodingToMaps ($) {
- my $e=shift @_;
- my @c=();
- my %c=();
- map{
- my $x=unpack('U',decode($e,chr($_)));
- $c[$_]=$x;
- $c{$x}=$_;
- } (0..255);
- return(\@c,\%c);
-}
-
-sub esc {
- my $newtext=shift @_;
- $newtext=~s/\\/\\\\/go;
- $newtext=~s/([\x00-\x1f])/sprintf('\%03lo',ord($1))/ge;
- $newtext=~s/([\{\}\[\]\(\)])/\\$1/g;
- return("($newtext)");
-}
-
-my @fonts=qw( Verdana-BoldItalic );
-
-use Test::More qw(no_plan);
-
-foreach my $fn (@fonts) {
-
- foreach my $enc (@encodings) {
- $pdf=PDF::API2->new;
-
- my $fnt=$pdf->corefont($fn,-encode => $enc);
- ok(defined($fnt),"font=$fn enc=$enc.");
- my ($m,$h)=encodingToMaps($enc);
- foreach my $c (0..255) {
- my $t=chr($c);
- my $u=$fnt->strByUtf(chr($m->[$c]));
- ok(($t eq $u) || (nameByUni($fnt->uniByEnc($c)) eq nameByUni($m->[$c])),"font=$fn enc=$enc c=$c u=$m->[$c] t='$t'(".nameByUni($m->[$c]).")[".charinfo($m->[$c])->{name}."] u='$u'(".nameByUni($fnt->uniByEnc($c)).")[".charinfo($fnt->uniByEnc($c))->{name}."].");
- }
- eval {
- $fnt=$pdf->corefont("$fn illegal",-encode => $enc);
- };
- ok($@,"font=$fn enc=$enc illegal.");
-
- eval {
- $fnt=$pdf->corefont("$fn",-encode => "$enc illegal");
- };
- ok($@,"font=$fn illegal enc=$enc.");
-
- $pdf->end();
- }
-}
-
-exit;
-
-__END__
-
- $Log: 020coreuse.t,v $
- Revision 1.3 2004/04/18 14:11:34 fredo
- fixed test for symbol fonts
-
- Revision 1.2 2004/04/18 14:01:14 fredo
- added defined/undefined test
-
- Revision 1.1 2004/04/18 13:54:21 fredo
- genesis
-
-
\ No newline at end of file
Deleted: packages/libpdf-api2-perl/trunk/t/020corevebo.t
===================================================================
--- packages/libpdf-api2-perl/trunk/t/020corevebo.t 2005-01-06 06:05:36 UTC (rev 598)
+++ packages/libpdf-api2-perl/trunk/t/020corevebo.t 2005-01-06 06:22:38 UTC (rev 599)
@@ -1,122 +0,0 @@
-#!/usr/bin/perl
-#=======================================================================
-# ____ ____ _____ _ ____ ___ ____
-# | _ \| _ \| ___| _ _ / \ | _ \_ _| |___ \
-# | |_) | | | | |_ (_) (_) / _ \ | |_) | | __) |
-# | __/| |_| | _| _ _ / ___ \| __/| | / __/
-# |_| |____/|_| (_) (_) /_/ \_\_| |___| |_____|
-#
-# A Perl Module Chain to faciliate the Creation and Modification
-# of High-Quality "Portable Document Format (PDF)" Files.
-#
-# Copyright 1999-2004 Alfred Reibenschuh <areibens at cpan.org>.
-#
-#=======================================================================
-#
-# PERMISSION TO USE, COPY, MODIFY, AND DISTRIBUTE THIS FILE FOR
-# ANY PURPOSE WITH OR WITHOUT FEE IS HEREBY GRANTED, PROVIDED THAT
-# THE ABOVE COPYRIGHT NOTICE AND THIS PERMISSION NOTICE APPEAR IN ALL
-# COPIES.
-#
-# THIS FILE IS PROVIDED ``AS IS'' AND ANY EXPRESSED OR IMPLIED
-# WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF
-# MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED.
-# IN NO EVENT SHALL THE AUTHORS AND COPYRIGHT HOLDERS AND THEIR
-# CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL,
-# SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT
-# LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF
-# USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND
-# ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY,
-# OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT
-# OF THE USE OF THIS FILE, EVEN IF ADVISED OF THE POSSIBILITY OF
-# SUCH DAMAGE.
-#
-# $Id: 020coreuse.t,v 1.3 2004/04/18 14:11:34 fredo Exp $
-#
-#=======================================================================
-
-use Encode qw(:all);
-use utf8;
-
-use PDF::API2;
-use PDF::API2::Util;
-use Unicode::UCD 'charinfo';
-
- at encodings=qw|
- latin1 latin2 latin3 latin4 latin5 latin6 latin7 latin8 latin9 latin10
- iso-8859-5 iso-8859-6 iso-8859-7 iso-8859-8
- koi8-f koi8-r koi8-u
- cp424 cp437 cp737 cp775
- cp850 cp852 cp855 cp856 cp857
- cp860 cp861 cp862 cp863 cp864 cp865 cp866 cp869 cp874
- WinLatin2 WinCyrillic WinLatin1 WinGreek WinTurkish WinHebrew WinArabic WinBaltic WinVietnamese
- MacArabic MacCentralEurRoman MacCroatian MacCyrillic MacFarsi MacGreek MacIcelandic MacRoman MacSami MacTurkish MacUkrainian
- AdobeStandardEncoding nextstep hp-roman8
-|;
-# MacHebrew MacThai MacRomanian MacRumanian
-sub encodingToMaps ($) {
- my $e=shift @_;
- my @c=();
- my %c=();
- map{
- my $x=unpack('U',decode($e,chr($_)));
- $c[$_]=$x;
- $c{$x}=$_;
- } (0..255);
- return(\@c,\%c);
-}
-
-sub esc {
- my $newtext=shift @_;
- $newtext=~s/\\/\\\\/go;
- $newtext=~s/([\x00-\x1f])/sprintf('\%03lo',ord($1))/ge;
- $newtext=~s/([\{\}\[\]\(\)])/\\$1/g;
- return("($newtext)");
-}
-
-my @fonts=qw( Verdana-Bold );
-
-use Test::More qw(no_plan);
-
-foreach my $fn (@fonts) {
-
- foreach my $enc (@encodings) {
- $pdf=PDF::API2->new;
-
- my $fnt=$pdf->corefont($fn,-encode => $enc);
- ok(defined($fnt),"font=$fn enc=$enc.");
- my ($m,$h)=encodingToMaps($enc);
- foreach my $c (0..255) {
- my $t=chr($c);
- my $u=$fnt->strByUtf(chr($m->[$c]));
- ok(($t eq $u) || (nameByUni($fnt->uniByEnc($c)) eq nameByUni($m->[$c])),"font=$fn enc=$enc c=$c u=$m->[$c] t='$t'(".nameByUni($m->[$c]).")[".charinfo($m->[$c])->{name}."] u='$u'(".nameByUni($fnt->uniByEnc($c)).")[".charinfo($fnt->uniByEnc($c))->{name}."].");
- }
- eval {
- $fnt=$pdf->corefont("$fn illegal",-encode => $enc);
- };
- ok($@,"font=$fn enc=$enc illegal.");
-
- eval {
- $fnt=$pdf->corefont("$fn",-encode => "$enc illegal");
- };
- ok($@,"font=$fn illegal enc=$enc.");
-
- $pdf->end();
- }
-}
-
-exit;
-
-__END__
-
- $Log: 020coreuse.t,v $
- Revision 1.3 2004/04/18 14:11:34 fredo
- fixed test for symbol fonts
-
- Revision 1.2 2004/04/18 14:01:14 fredo
- added defined/undefined test
-
- Revision 1.1 2004/04/18 13:54:21 fredo
- genesis
-
-
\ No newline at end of file
Deleted: packages/libpdf-api2-perl/trunk/t/020coreveit.t
===================================================================
--- packages/libpdf-api2-perl/trunk/t/020coreveit.t 2005-01-06 06:05:36 UTC (rev 598)
+++ packages/libpdf-api2-perl/trunk/t/020coreveit.t 2005-01-06 06:22:38 UTC (rev 599)
@@ -1,122 +0,0 @@
-#!/usr/bin/perl
-#=======================================================================
-# ____ ____ _____ _ ____ ___ ____
-# | _ \| _ \| ___| _ _ / \ | _ \_ _| |___ \
-# | |_) | | | | |_ (_) (_) / _ \ | |_) | | __) |
-# | __/| |_| | _| _ _ / ___ \| __/| | / __/
-# |_| |____/|_| (_) (_) /_/ \_\_| |___| |_____|
-#
-# A Perl Module Chain to faciliate the Creation and Modification
-# of High-Quality "Portable Document Format (PDF)" Files.
-#
-# Copyright 1999-2004 Alfred Reibenschuh <areibens at cpan.org>.
-#
-#=======================================================================
-#
-# PERMISSION TO USE, COPY, MODIFY, AND DISTRIBUTE THIS FILE FOR
-# ANY PURPOSE WITH OR WITHOUT FEE IS HEREBY GRANTED, PROVIDED THAT
-# THE ABOVE COPYRIGHT NOTICE AND THIS PERMISSION NOTICE APPEAR IN ALL
-# COPIES.
-#
-# THIS FILE IS PROVIDED ``AS IS'' AND ANY EXPRESSED OR IMPLIED
-# WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF
-# MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED.
-# IN NO EVENT SHALL THE AUTHORS AND COPYRIGHT HOLDERS AND THEIR
-# CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL,
-# SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT
-# LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF
-# USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND
-# ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY,
-# OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT
-# OF THE USE OF THIS FILE, EVEN IF ADVISED OF THE POSSIBILITY OF
-# SUCH DAMAGE.
-#
-# $Id: 020coreuse.t,v 1.3 2004/04/18 14:11:34 fredo Exp $
-#
-#=======================================================================
-
-use Encode qw(:all);
-use utf8;
-
-use PDF::API2;
-use PDF::API2::Util;
-use Unicode::UCD 'charinfo';
-
- at encodings=qw|
- latin1 latin2 latin3 latin4 latin5 latin6 latin7 latin8 latin9 latin10
- iso-8859-5 iso-8859-6 iso-8859-7 iso-8859-8
- koi8-f koi8-r koi8-u
- cp424 cp437 cp737 cp775
- cp850 cp852 cp855 cp856 cp857
- cp860 cp861 cp862 cp863 cp864 cp865 cp866 cp869 cp874
- WinLatin2 WinCyrillic WinLatin1 WinGreek WinTurkish WinHebrew WinArabic WinBaltic WinVietnamese
- MacArabic MacCentralEurRoman MacCroatian MacCyrillic MacFarsi MacGreek MacIcelandic MacRoman MacSami MacTurkish MacUkrainian
- AdobeStandardEncoding nextstep hp-roman8
-|;
-# MacHebrew MacThai MacRomanian MacRumanian
-sub encodingToMaps ($) {
- my $e=shift @_;
- my @c=();
- my %c=();
- map{
- my $x=unpack('U',decode($e,chr($_)));
- $c[$_]=$x;
- $c{$x}=$_;
- } (0..255);
- return(\@c,\%c);
-}
-
-sub esc {
- my $newtext=shift @_;
- $newtext=~s/\\/\\\\/go;
- $newtext=~s/([\x00-\x1f])/sprintf('\%03lo',ord($1))/ge;
- $newtext=~s/([\{\}\[\]\(\)])/\\$1/g;
- return("($newtext)");
-}
-
-my @fonts=qw( Verdana-Italic );
-
-use Test::More qw(no_plan);
-
-foreach my $fn (@fonts) {
-
- foreach my $enc (@encodings) {
- $pdf=PDF::API2->new;
-
- my $fnt=$pdf->corefont($fn,-encode => $enc);
- ok(defined($fnt),"font=$fn enc=$enc.");
- my ($m,$h)=encodingToMaps($enc);
- foreach my $c (0..255) {
- my $t=chr($c);
- my $u=$fnt->strByUtf(chr($m->[$c]));
- ok(($t eq $u) || (nameByUni($fnt->uniByEnc($c)) eq nameByUni($m->[$c])),"font=$fn enc=$enc c=$c u=$m->[$c] t='$t'(".nameByUni($m->[$c]).")[".charinfo($m->[$c])->{name}."] u='$u'(".nameByUni($fnt->uniByEnc($c)).")[".charinfo($fnt->uniByEnc($c))->{name}."].");
- }
- eval {
- $fnt=$pdf->corefont("$fn illegal",-encode => $enc);
- };
- ok($@,"font=$fn enc=$enc illegal.");
-
- eval {
- $fnt=$pdf->corefont("$fn",-encode => "$enc illegal");
- };
- ok($@,"font=$fn illegal enc=$enc.");
-
- $pdf->end();
- }
-}
-
-exit;
-
-__END__
-
- $Log: 020coreuse.t,v $
- Revision 1.3 2004/04/18 14:11:34 fredo
- fixed test for symbol fonts
-
- Revision 1.2 2004/04/18 14:01:14 fredo
- added defined/undefined test
-
- Revision 1.1 2004/04/18 13:54:21 fredo
- genesis
-
-
\ No newline at end of file
Deleted: packages/libpdf-api2-perl/trunk/t/020coreverd.t
===================================================================
--- packages/libpdf-api2-perl/trunk/t/020coreverd.t 2005-01-06 06:05:36 UTC (rev 598)
+++ packages/libpdf-api2-perl/trunk/t/020coreverd.t 2005-01-06 06:22:38 UTC (rev 599)
@@ -1,122 +0,0 @@
-#!/usr/bin/perl
-#=======================================================================
-# ____ ____ _____ _ ____ ___ ____
-# | _ \| _ \| ___| _ _ / \ | _ \_ _| |___ \
-# | |_) | | | | |_ (_) (_) / _ \ | |_) | | __) |
-# | __/| |_| | _| _ _ / ___ \| __/| | / __/
-# |_| |____/|_| (_) (_) /_/ \_\_| |___| |_____|
-#
-# A Perl Module Chain to faciliate the Creation and Modification
-# of High-Quality "Portable Document Format (PDF)" Files.
-#
-# Copyright 1999-2004 Alfred Reibenschuh <areibens at cpan.org>.
-#
-#=======================================================================
-#
-# PERMISSION TO USE, COPY, MODIFY, AND DISTRIBUTE THIS FILE FOR
-# ANY PURPOSE WITH OR WITHOUT FEE IS HEREBY GRANTED, PROVIDED THAT
-# THE ABOVE COPYRIGHT NOTICE AND THIS PERMISSION NOTICE APPEAR IN ALL
-# COPIES.
-#
-# THIS FILE IS PROVIDED ``AS IS'' AND ANY EXPRESSED OR IMPLIED
-# WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF
-# MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED.
-# IN NO EVENT SHALL THE AUTHORS AND COPYRIGHT HOLDERS AND THEIR
-# CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL,
-# SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT
-# LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF
-# USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND
-# ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY,
-# OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT
-# OF THE USE OF THIS FILE, EVEN IF ADVISED OF THE POSSIBILITY OF
-# SUCH DAMAGE.
-#
-# $Id: 020coreuse.t,v 1.3 2004/04/18 14:11:34 fredo Exp $
-#
-#=======================================================================
-
-use Encode qw(:all);
-use utf8;
-
-use PDF::API2;
-use PDF::API2::Util;
-use Unicode::UCD 'charinfo';
-
- at encodings=qw|
- latin1 latin2 latin3 latin4 latin5 latin6 latin7 latin8 latin9 latin10
- iso-8859-5 iso-8859-6 iso-8859-7 iso-8859-8
- koi8-f koi8-r koi8-u
- cp424 cp437 cp737 cp775
- cp850 cp852 cp855 cp856 cp857
- cp860 cp861 cp862 cp863 cp864 cp865 cp866 cp869 cp874
- WinLatin2 WinCyrillic WinLatin1 WinGreek WinTurkish WinHebrew WinArabic WinBaltic WinVietnamese
- MacArabic MacCentralEurRoman MacCroatian MacCyrillic MacFarsi MacGreek MacIcelandic MacRoman MacSami MacTurkish MacUkrainian
- AdobeStandardEncoding nextstep hp-roman8
-|;
-# MacHebrew MacThai MacRomanian MacRumanian
-sub encodingToMaps ($) {
- my $e=shift @_;
- my @c=();
- my %c=();
- map{
- my $x=unpack('U',decode($e,chr($_)));
- $c[$_]=$x;
- $c{$x}=$_;
- } (0..255);
- return(\@c,\%c);
-}
-
-sub esc {
- my $newtext=shift @_;
- $newtext=~s/\\/\\\\/go;
- $newtext=~s/([\x00-\x1f])/sprintf('\%03lo',ord($1))/ge;
- $newtext=~s/([\{\}\[\]\(\)])/\\$1/g;
- return("($newtext)");
-}
-
-my @fonts=qw( Verdana );
-
-use Test::More qw(no_plan);
-
-foreach my $fn (@fonts) {
-
- foreach my $enc (@encodings) {
- $pdf=PDF::API2->new;
-
- my $fnt=$pdf->corefont($fn,-encode => $enc);
- ok(defined($fnt),"font=$fn enc=$enc.");
- my ($m,$h)=encodingToMaps($enc);
- foreach my $c (0..255) {
- my $t=chr($c);
- my $u=$fnt->strByUtf(chr($m->[$c]));
- ok(($t eq $u) || (nameByUni($fnt->uniByEnc($c)) eq nameByUni($m->[$c])),"font=$fn enc=$enc c=$c u=$m->[$c] t='$t'(".nameByUni($m->[$c]).")[".charinfo($m->[$c])->{name}."] u='$u'(".nameByUni($fnt->uniByEnc($c)).")[".charinfo($fnt->uniByEnc($c))->{name}."].");
- }
- eval {
- $fnt=$pdf->corefont("$fn illegal",-encode => $enc);
- };
- ok($@,"font=$fn enc=$enc illegal.");
-
- eval {
- $fnt=$pdf->corefont("$fn",-encode => "$enc illegal");
- };
- ok($@,"font=$fn illegal enc=$enc.");
-
- $pdf->end();
- }
-}
-
-exit;
-
-__END__
-
- $Log: 020coreuse.t,v $
- Revision 1.3 2004/04/18 14:11:34 fredo
- fixed test for symbol fonts
-
- Revision 1.2 2004/04/18 14:01:14 fredo
- added defined/undefined test
-
- Revision 1.1 2004/04/18 13:54:21 fredo
- genesis
-
-
\ No newline at end of file
Deleted: packages/libpdf-api2-perl/trunk/t/022core____.t
===================================================================
--- packages/libpdf-api2-perl/trunk/t/022core____.t 2005-01-06 06:05:36 UTC (rev 598)
+++ packages/libpdf-api2-perl/trunk/t/022core____.t 2005-01-06 06:22:38 UTC (rev 599)
@@ -1,117 +0,0 @@
-#!/usr/bin/perl
-#=======================================================================
-# ____ ____ _____ _ ____ ___ ____
-# | _ \| _ \| ___| _ _ / \ | _ \_ _| |___ \
-# | |_) | | | | |_ (_) (_) / _ \ | |_) | | __) |
-# | __/| |_| | _| _ _ / ___ \| __/| | / __/
-# |_| |____/|_| (_) (_) /_/ \_\_| |___| |_____|
-#
-# A Perl Module Chain to faciliate the Creation and Modification
-# of High-Quality "Portable Document Format (PDF)" Files.
-#
-# Copyright 1999-2004 Alfred Reibenschuh <areibens at cpan.org>.
-#
-#=======================================================================
-#
-# PERMISSION TO USE, COPY, MODIFY, AND DISTRIBUTE THIS FILE FOR
-# ANY PURPOSE WITH OR WITHOUT FEE IS HEREBY GRANTED, PROVIDED THAT
-# THE ABOVE COPYRIGHT NOTICE AND THIS PERMISSION NOTICE APPEAR IN ALL
-# COPIES.
-#
-# THIS FILE IS PROVIDED ``AS IS'' AND ANY EXPRESSED OR IMPLIED
-# WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF
-# MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED.
-# IN NO EVENT SHALL THE AUTHORS AND COPYRIGHT HOLDERS AND THEIR
-# CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL,
-# SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT
-# LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF
-# USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND
-# ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY,
-# OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT
-# OF THE USE OF THIS FILE, EVEN IF ADVISED OF THE POSSIBILITY OF
-# SUCH DAMAGE.
-#
-# $Id: 022corefunc.t,v 1.1 2004/04/18 15:51:59 fredo Exp $
-#
-#=======================================================================
-
-use Encode qw(:all);
-use utf8;
-
-use PDF::API2;
-use PDF::API2::Util;
-use Unicode::UCD 'charinfo';
-use Test::More;
-
-my @fonts=qw(
- Times-Roman Times-Italic Times-Bold Times-BoldItalic
- Courier Courier-Oblique Courier-Bold Courier-BoldOblique
- Helvetica Helvetica-Oblique Helvetica-Bold Helvetica-BoldOblique
- Georgia Georgia-Italic Georgia-Bold Georgia-BoldItalic
- Trebuchet Trebuchet-Italic Trebuchet-Bold Trebuchet-BoldItalic
- Verdana Verdana-Italic Verdana-Bold Verdana-BoldItalic
- Symbol ZapfDingbats Wingdings Webdings
-);
-
-my @rcfnc=qw{
- new new_api name
-};
-my @bffnc=qw{
- new new_api data descrByData fontname altname subname apiname issymbol iscff
- fontbbox capheight xheight missingwidth maxwidth avgwidth flags stemv stemh
- italicangle isfixedpitch underlineposition underlinethickness ascender descender
- glyphNames glyphNum uniByGlyph uniByEnc uniByMap encByGlyph encByUni mapByGlyph
- mapByUni glyphByUni glyphByEnc glyphByMap wxByGlyph wxByUni wxByEnc wxByMap
- width width_array utfByStr strByUtf textByStr text
-};
-my @fnfnc=qw{
- encodeByData text automap remap
-};
-my @cffnc=qw{
- _look_for_font _look_for_fontfile new new_api
-};
-my @ilfnc=qw{
- nurmi surmi gurmi geek hack peck dudul saulus paulus jesus god
-};
-
-plan tests => scalar(@fonts)
- * ( 4
- + scalar(@rcfnc)
- + scalar(@bffnc)
- + scalar(@fnfnc)
- + scalar(@cffnc)
- + scalar(@ilfnc)
- );
-
-foreach $fn (@fonts) {
- $pdf=PDF::API2->new;
- my $err=0;
- my $fnt=$pdf->corefont($fn,-encode => 'latin1');
-
- isa_ok($fnt,'PDF::API2::Resource');
- isa_ok($fnt,'PDF::API2::Resource::BaseFont');
- isa_ok($fnt,'PDF::API2::Resource::Font');
- isa_ok($fnt,'PDF::API2::Resource::Font::CoreFont');
-
- foreach my $f (@rcfnc) { can_ok($fnt,$f); } # test Resource Methods
- foreach my $f (@bffnc) { can_ok($fnt,$f); } # test BaseFont Methods
- foreach my $f (@fnfnc) { can_ok($fnt,$f); } # test Font Methods
- foreach my $f (@cffnc) { can_ok($fnt,$f); } # test CoreFont Methods
- foreach my $f (@ilfnc) { ok(!UNIVERSAL::can($fnt,$f),$f); } # test illegal Methods
-
- # ok($err == 0,"font=$fn, encoding=$enc, errors=$err.");
- $pdf->end();
-}
-
-exit;
-
-__END__
-
- $Log: 022corefunc.t,v $
- Revision 1.1 2004/04/18 15:51:59 fredo
- genesis
-
- Revision 1.2 2004/04/18 13:46:44 fredo
- added cvs-log tag
-
-
\ No newline at end of file
Deleted: packages/libpdf-api2-perl/trunk/t/028psf_all.t
===================================================================
--- packages/libpdf-api2-perl/trunk/t/028psf_all.t 2005-01-06 06:05:36 UTC (rev 598)
+++ packages/libpdf-api2-perl/trunk/t/028psf_all.t 2005-01-06 06:22:38 UTC (rev 599)
@@ -1,125 +0,0 @@
-#!/usr/bin/perl
-#=======================================================================
-# ____ ____ _____ _ ____ ___ ____
-# | _ \| _ \| ___| _ _ / \ | _ \_ _| |___ \
-# | |_) | | | | |_ (_) (_) / _ \ | |_) | | __) |
-# | __/| |_| | _| _ _ / ___ \| __/| | / __/
-# |_| |____/|_| (_) (_) /_/ \_\_| |___| |_____|
-#
-# A Perl Module Chain to faciliate the Creation and Modification
-# of High-Quality "Portable Document Format (PDF)" Files.
-#
-# Copyright 1999-2004 Alfred Reibenschuh <areibens at cpan.org>.
-#
-#=======================================================================
-#
-# PERMISSION TO USE, COPY, MODIFY, AND DISTRIBUTE THIS FILE FOR
-# ANY PURPOSE WITH OR WITHOUT FEE IS HEREBY GRANTED, PROVIDED THAT
-# THE ABOVE COPYRIGHT NOTICE AND THIS PERMISSION NOTICE APPEAR IN ALL
-# COPIES.
-#
-# THIS FILE IS PROVIDED ``AS IS'' AND ANY EXPRESSED OR IMPLIED
-# WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF
-# MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED.
-# IN NO EVENT SHALL THE AUTHORS AND COPYRIGHT HOLDERS AND THEIR
-# CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL,
-# SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT
-# LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF
-# USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND
-# ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY,
-# OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT
-# OF THE USE OF THIS FILE, EVEN IF ADVISED OF THE POSSIBILITY OF
-# SUCH DAMAGE.
-#
-# $Id: 020coreuse.t,v 1.3 2004/04/18 14:11:34 fredo Exp $
-#
-#=======================================================================
-
-use Unicode::UCD 'charinfo';
-use Encode qw(:all);
-use utf8;
-use File::Basename;
-
-use PDF::API2;
-use PDF::API2::Util;
-
- at encodings=qw|
- latin1 latin2 latin3 latin4 latin5 latin6 latin7 latin8 latin9 latin10
- iso-8859-5 iso-8859-6 iso-8859-7 iso-8859-8
- koi8-f koi8-r koi8-u
- cp424 cp437 cp737 cp775
- cp850 cp852 cp855 cp856 cp857
- cp860 cp861 cp862 cp863 cp864 cp865 cp866 cp869 cp874
- WinLatin2 WinCyrillic WinLatin1 WinGreek WinTurkish WinHebrew WinArabic WinBaltic WinVietnamese
- MacArabic MacCentralEurRoman MacCroatian MacCyrillic MacFarsi MacGreek MacIcelandic MacRoman MacSami MacTurkish MacUkrainian
- AdobeStandardEncoding nextstep hp-roman8
-|;
-# MacHebrew MacThai MacRomanian MacRumanian
-
-sub encodingToMaps ($) {
- my $e=shift @_;
- my @c=();
- my %c=();
- map{
- my $x=unpack('U',decode($e,chr($_)));
- $c[$_]=$x;
- $c{$x}=$_;
- } (0..255);
- return(\@c,\%c);
-}
-
-sub esc {
- my $newtext=shift @_;
- $newtext=~s/\\/\\\\/go;
- $newtext=~s/([\x00-\x1f])/sprintf('\%03lo',ord($1))/ge;
- $newtext=~s/([\{\}\[\]\(\)])/\\$1/g;
- return("($newtext)");
-}
-
-my @fonts=glob('fonts/*.pfb');
-
-use Test::More qw(no_plan);
-
-foreach my $fn (@fonts) {
- $dir=dirname($fn);
- $file=basename($fn,'.pfb');
- $afm="$dir/$file.afm";
-
- foreach my $enc (@encodings) {
- $pdf=PDF::API2->new;
- my $fnt=$pdf->psfont($fn, -afmfile=>$afm, -encode => $enc);
- ok(defined($fnt),"font=$fn enc=$enc.");
- my ($m,$h)=encodingToMaps($enc);
- foreach my $c (0..255) {
- my $t=chr($c);
- my $u=$fnt->strByUtf(chr($m->[$c]));
- ok(($t eq $u) || (nameByUni($fnt->uniByEnc($c)) eq nameByUni($m->[$c])),"font=$fn enc=$enc c=$c u=$m->[$c] t='$t'(".nameByUni($m->[$c]).")[".charinfo($m->[$c])->{name}."] u='$u'(".nameByUni($fnt->uniByEnc($c)).")[".charinfo($fnt->uniByEnc($c))->{name}."].");
- }
- eval {
- $fnt=$pdf->psfont("$fn illegal", -afmfile=>$afm, -encode => $enc);
- };
- ok($@,"font=$fn enc=$enc illegal.");
-
- eval {
- $fnt=$pdf->psfont($fn, -afmfile=>$afm, -encode => "$enc illegal");
- };
- ok($@,"font=$fn illegal enc=$enc.");
-
- $pdf->end();
- }
-}
-
-exit;
-
-__END__
-
- $Log: 020coreuse.t,v $
- Revision 1.3 2004/04/18 14:11:34 fredo
- fixed test for symbol fonts
-
- Revision 1.2 2004/04/18 14:01:14 fredo
- added defined/undefined test
-
- Revision 1.1 2004/04/18 13:54:21 fredo
- genesis
-
Deleted: packages/libpdf-api2-perl/trunk/t/029ttf_all.t
===================================================================
--- packages/libpdf-api2-perl/trunk/t/029ttf_all.t 2005-01-06 06:05:36 UTC (rev 598)
+++ packages/libpdf-api2-perl/trunk/t/029ttf_all.t 2005-01-06 06:22:38 UTC (rev 599)
@@ -1,123 +0,0 @@
-#!/usr/bin/perl
-#=======================================================================
-# ____ ____ _____ _ ____ ___ ____
-# | _ \| _ \| ___| _ _ / \ | _ \_ _| |___ \
-# | |_) | | | | |_ (_) (_) / _ \ | |_) | | __) |
-# | __/| |_| | _| _ _ / ___ \| __/| | / __/
-# |_| |____/|_| (_) (_) /_/ \_\_| |___| |_____|
-#
-# A Perl Module Chain to faciliate the Creation and Modification
-# of High-Quality "Portable Document Format (PDF)" Files.
-#
-# Copyright 1999-2004 Alfred Reibenschuh <areibens at cpan.org>.
-#
-#=======================================================================
-#
-# PERMISSION TO USE, COPY, MODIFY, AND DISTRIBUTE THIS FILE FOR
-# ANY PURPOSE WITH OR WITHOUT FEE IS HEREBY GRANTED, PROVIDED THAT
-# THE ABOVE COPYRIGHT NOTICE AND THIS PERMISSION NOTICE APPEAR IN ALL
-# COPIES.
-#
-# THIS FILE IS PROVIDED ``AS IS'' AND ANY EXPRESSED OR IMPLIED
-# WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF
-# MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED.
-# IN NO EVENT SHALL THE AUTHORS AND COPYRIGHT HOLDERS AND THEIR
-# CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL,
-# SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT
-# LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF
-# USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND
-# ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY,
-# OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT
-# OF THE USE OF THIS FILE, EVEN IF ADVISED OF THE POSSIBILITY OF
-# SUCH DAMAGE.
-#
-# $Id: 020coreuse.t,v 1.3 2004/04/18 14:11:34 fredo Exp $
-#
-#=======================================================================
-
-use Encode qw(:all);
-use utf8;
-
-use PDF::API2;
-use PDF::API2::Util;
-use Unicode::UCD 'charinfo';
-
- at encodings=qw|
- latin1 latin2 latin3 latin4 latin5 latin6 latin7 latin8 latin9 latin10
- iso-8859-5 iso-8859-6 iso-8859-7 iso-8859-8
- koi8-f koi8-r koi8-u
- cp424 cp437 cp737 cp775
- cp850 cp852 cp855 cp856 cp857
- cp860 cp861 cp862 cp863 cp864 cp865 cp866 cp869 cp874
- WinLatin2 WinCyrillic WinLatin1 WinGreek WinTurkish WinHebrew WinArabic WinBaltic WinVietnamese
- MacArabic MacCentralEurRoman MacCroatian MacCyrillic MacFarsi MacGreek MacIcelandic MacRoman MacSami MacTurkish MacUkrainian
- AdobeStandardEncoding nextstep hp-roman8
-|;
-# MacHebrew MacThai MacRomanian MacRumanian
-
-sub encodingToMaps ($) {
- my $e=shift @_;
- my @c=();
- my %c=();
- map{
- my $x=unpack('U',decode($e,chr($_)));
- $c[$_]=$x;
- $c{$x}=$_;
- } (0..255);
- return(\@c,\%c);
-}
-
-sub esc {
- my $newtext=shift @_;
- $newtext=~s/\\/\\\\/go;
- $newtext=~s/([\x00-\x1f])/sprintf('\%03lo',ord($1))/ge;
- $newtext=~s/([\{\}\[\]\(\)])/\\$1/g;
- return("($newtext)");
-}
-
-my @fonts=(glob('fonts/*.ttf'),glob('fonts/*.otf'));
-
-use Test::More qw(no_plan);
-
-foreach my $fn (@fonts) {
-
- foreach my $enc (@encodings) {
- $pdf=PDF::API2->new;
-
- my $fnt=$pdf->ttfont($fn,-encode => $enc);
- ok(defined($fnt),"font=$fn enc=$enc.");
- my ($m,$h)=encodingToMaps($enc);
- foreach my $c (0..255) {
- my $t=chr($c);
- my $u=$fnt->strByUtf(chr($m->[$c]));
- ok(($t eq $u) || (nameByUni($fnt->uniByEnc($c)) eq nameByUni($m->[$c])),"font=$fn enc=$enc c=$c u=$m->[$c] t='$t'(".nameByUni($m->[$c]).")[".charinfo($m->[$c])->{name}."] u='$u'(".nameByUni($fnt->uniByEnc($c)).")[".charinfo($fnt->uniByEnc($c))->{name}."].");
- }
- eval {
- $fnt=$pdf->ttfont("$fn illegal",-encode => $enc);
- };
- ok($@,"font=$fn enc=$enc illegal.");
-
- eval {
- $fnt=$pdf->ttfont("$fn",-encode => "$enc illegal");
- };
- ok($@,"font=$fn illegal enc=$enc.");
-
- $pdf->end();
- }
-}
-
-exit;
-
-__END__
-
- $Log: 020coreuse.t,v $
- Revision 1.3 2004/04/18 14:11:34 fredo
- fixed test for symbol fonts
-
- Revision 1.2 2004/04/18 14:01:14 fredo
- added defined/undefined test
-
- Revision 1.1 2004/04/18 13:54:21 fredo
- genesis
-
-
\ No newline at end of file
More information about the Pkg-perl-cvs-commits
mailing list