Hello community,
here is the log from the commit of package perl-Image-Size for openSUSE:Factory
checked in at Fri Sep 3 14:41:17 CEST 2010.
--------
--- perl-Image-Size/perl-Image-Size.changes 2010-07-16 17:28:35.000000000 +0200
+++ perl-Image-Size/perl-Image-Size.changes 2010-09-01 16:40:05.000000000 +0200
@@ -1,0 +2,6 @@
+Wed Sep 1 16:18:17 CEST 2010 - anicka@suse.cz
+
+- update to 3.230
+ * Added support for Windows Enhanced Metafile Format
+
+-------------------------------------------------------------------
calling whatdependson for head-i586
Old:
----
Image-Size-3.221.tar.bz2
New:
----
Image-Size-3.230.tar.bz2
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Other differences:
------------------
++++++ perl-Image-Size.spec ++++++
--- /var/tmp/diff_new_pack.2Rdgyz/_old 2010-09-03 14:40:45.000000000 +0200
+++ /var/tmp/diff_new_pack.2Rdgyz/_new 2010-09-03 14:40:45.000000000 +0200
@@ -1,5 +1,5 @@
#
-# spec file for package perl-Image-Size (Version 3.221)
+# spec file for package perl-Image-Size (Version 3.230)
#
# Copyright (c) 2010 SUSE LINUX Products GmbH, Nuernberg, Germany.
#
@@ -20,7 +20,7 @@
Name: perl-Image-Size
Summary: A Perl Module to deal with Dimensions of an Image in Several Popular Formats
-Version: 3.221
+Version: 3.230
Release: 1
License: LGPL 2.1 or Artistic License
Url: http://search.cpan.org/perldoc?Image::Size
++++++ Image-Size-3.221.tar.bz2 -> Image-Size-3.230.tar.bz2 ++++++
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Image-Size-3.221/ChangeLog new/Image-Size-3.230/ChangeLog
--- old/Image-Size-3.221/ChangeLog 2010-04-25 23:12:03.000000000 +0200
+++ new/Image-Size-3.230/ChangeLog 2010-08-30 00:54:48.000000000 +0200
@@ -5,6 +5,32 @@
in a wide variety of common (and not-so-common)
formats.
+3.230 Sunday August 29, 2010, 04:00:00 PM -0700
+
+ * imgsize
+ * lib/Image/Size.pm
+ perlcritic clean-ups from new rules.
+
+ * lib/Image/Size.pm
+ * t/Test_emf_small.emf (added)
+ * t/all.t
+ RT #59995: Added support for Windows Enhanced Metafile Format
+ (EMF).
+
+ * t/00_load.t (deleted)
+ * t/01_pod.t (deleted)
+ * t/02_pod_coverage.t (deleted)
+ * t/03_meta.t (deleted)
+ * t/04_minimumversion.t (deleted)
+ * t/05_critic.t (deleted)
+ * xt/00_load.t (added)
+ * xt/01_pod.t (added)
+ * xt/02_pod_coverage.t (added)
+ * xt/03_meta.t (added)
+ * xt/04_minimumversion.t (added)
+ * xt/05_critic.t (added)
+ Move the author/distro-sanity tests to an "xt" directory.
+
3.221 Sunday April 25, 2010, 02:10:00 PM -0700
* imgsize
@@ -516,9 +542,9 @@
* t/all.t (added)
Initial commit of the core project files.
-# Generated on Sunday April 25, 2010, 02:12:03 PM -0700
+# Generated on Sunday August 29, 2010, 03:54:48 PM -0700
# Using changelog2x/0.11, App::Changelog2x/0.11, XML::LibXML/1.70,
-# XML::LibXSLT/1.70, libxml/2.6.32, libxslt/1.1.24 (with exslt)
+# XML::LibXSLT/1.70, libxml/2.7.6, libxslt/1.1.26 (with exslt)
# XSLT sources:
# $Id: changelog2text.xslt 8 2009-01-19 06:46:50Z rjray $
# $Id: common-text.xslt 8 2009-01-19 06:46:50Z rjray $
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Image-Size-3.221/ChangeLog.xml new/Image-Size-3.230/ChangeLog.xml
--- old/Image-Size-3.221/ChangeLog.xml 2010-04-25 23:12:03.000000000 +0200
+++ new/Image-Size-3.230/ChangeLog.xml 2010-08-30 00:54:48.000000000 +0200
@@ -13,6 +13,47 @@
information from files in a wide variety of common (and not-so-common)
formats.
</description>
+ <release version="3.230" sc:tag="3.230" date="2010-08-29T16:00:00-07:00">
+ <change git:commit="269c8932ccabf981d7723ee86c5e1ac49f361ece">
+ <fileset>
+ <file path="imgsize" />
+ <file path="lib/Image/Size.pm" />
+ </fileset>
+ <description>
+ perlcritic clean-ups from new rules.
+ </description>
+ </change>
+ <change git:commit="f2ec9f0313a692b5f87b778e38b3bd9641beb922">
+ <fileset>
+ <file path="lib/Image/Size.pm" />
+ <file path="t/Test_emf_small.emf" action="ADD" />
+ <file path="t/all.t" />
+ </fileset>
+ <description>
+ http://rt.cpan.org/Ticket/Display.html?id=59995">RT #59995:
+ Added support for Windows Enhanced Metafile Format (EMF).
+ </description>
+ </change>
+ <change git:commit="3ed01fd7bff2cd551f399d9a37d1f96c5330be1f">
+ <fileset>
+ <file path="t/00_load.t" action="DELETE" />
+ <file path="t/01_pod.t" action="DELETE" />
+ <file path="t/02_pod_coverage.t" action="DELETE" />
+ <file path="t/03_meta.t" action="DELETE" />
+ <file path="t/04_minimumversion.t" action="DELETE" />
+ <file path="t/05_critic.t" action="DELETE" />
+ <file path="xt/00_load.t" action="ADD" />
+ <file path="xt/01_pod.t" action="ADD" />
+ <file path="xt/02_pod_coverage.t" action="ADD" />
+ <file path="xt/03_meta.t" action="ADD" />
+ <file path="xt/04_minimumversion.t" action="ADD" />
+ <file path="xt/05_critic.t" action="ADD" />
+ </fileset>
+ <description>
+ Move the author/distro-sanity tests to an "xt" directory.
+ </description>
+ </change>
+ </release>
<release version="3.221" sc:tag="3.221" date="2010-04-25T14:10:00-07:00">
<change git:commit="45914d2c9da36b21d4262627231d41f0203a81cc">
<fileset>
@@ -73,7 +114,7 @@
<file path="t/all.t" />
</fileset>
<description>
- Make the package buildable in a pure-Perl software stack. Per
+ Make the package buildable in a pure-Perl software stack. Per
http://rt.cpan.org/Ticket/Display.html?id=42930">RT ticket #42930,
make Compress::Zlib optional, so that those who do not need
it are not required to install it. Updated the test around the
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Image-Size-3.221/MANIFEST new/Image-Size-3.230/MANIFEST
--- old/Image-Size-3.221/MANIFEST 2010-04-25 23:12:03.000000000 +0200
+++ new/Image-Size-3.230/MANIFEST 2010-08-30 00:54:48.000000000 +0200
@@ -8,12 +8,6 @@
MANIFEST.SKIP
README
README.textile
-t/00_load.t
-t/01_pod.t
-t/02_pod_coverage.t
-t/03_meta.t
-t/04_minimumversion.t
-t/05_critic.t
t/468x60.psd
t/8.swf
t/all.t
@@ -26,8 +20,15 @@
t/pass-1_s.png
t/spacer50.xbm
t/test.gif
+t/Test_emf_small.emf
t/xterm.bmp
t/xterm.xpm
t/yasp.swf
+xt/00_load.t
+xt/01_pod.t
+xt/02_pod_coverage.t
+xt/03_meta.t
+xt/04_minimumversion.t
+xt/05_critic.t
Makefile.PL
META.yml
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Image-Size-3.221/META.yml new/Image-Size-3.230/META.yml
--- old/Image-Size-3.221/META.yml 2010-04-25 23:12:03.000000000 +0200
+++ new/Image-Size-3.230/META.yml 2010-08-30 00:54:48.000000000 +0200
@@ -16,7 +16,7 @@
provides:
Image::Size:
file: lib/Image/Size.pm
- version: 3.221
+ version: 3.230
recommends:
Compress::Zlib: 2
requires:
@@ -27,4 +27,4 @@
homepage: http://search.cpan.org/dist/Image-Size
license: http://dev.perl.org/licenses/
repository: http://github.com/rjray/image-size
-version: 3.221
+version: 3.230
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Image-Size-3.221/README new/Image-Size-3.230/README
--- old/Image-Size-3.221/README 2010-04-25 23:12:03.000000000 +0200
+++ new/Image-Size-3.230/README 2010-08-30 00:54:48.000000000 +0200
@@ -1,7 +1,7 @@
Image::Size - Determine the size of images in several common formats
====================================================================
-Version: 3.221 (See CHANGES below)
+Version: 3.230 (See CHANGES below)
WHAT IS IT
@@ -82,5 +82,38 @@
* lib/Image/Size.pm
-Large-scale code and documentation clean-up based on perlcritic and visual
-review.
+perlcritic clean-ups from new rules.
+
+ * lib/Image/Size.pm
+
+ * t/Test_emf_small.emf (added)
+
+ * t/all.t
+
+RT #59995: Added support for Windows Enhanced Metafile Format (EMF).
+
+ * t/00_load.t (deleted)
+
+ * t/01_pod.t (deleted)
+
+ * t/02_pod_coverage.t (deleted)
+
+ * t/03_meta.t (deleted)
+
+ * t/04_minimumversion.t (deleted)
+
+ * t/05_critic.t (deleted)
+
+ * xt/00_load.t (added)
+
+ * xt/01_pod.t (added)
+
+ * xt/02_pod_coverage.t (added)
+
+ * xt/03_meta.t (added)
+
+ * xt/04_minimumversion.t (added)
+
+ * xt/05_critic.t (added)
+
+Move the author/distro-sanity tests to an "xt" directory.
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Image-Size-3.221/README.textile new/Image-Size-3.230/README.textile
--- old/Image-Size-3.221/README.textile 2010-04-25 23:12:03.000000000 +0200
+++ new/Image-Size-3.230/README.textile 2010-08-30 00:54:48.000000000 +0200
@@ -1,6 +1,6 @@
h1. Image::Size - Determine the size of images in several common formats
-Version: 3.221 (See CHANGES below)
+Version: 3.230 (See CHANGES below)
h2. WHAT IS IT
@@ -72,4 +72,25 @@
* imgsize
* lib/Image/Size.pm
-p{margin-bottom:2em}. Large-scale code and documentation clean-up based on perlcritic and visual review.
+p{margin-bottom:2em}. perlcritic clean-ups from new rules.
+
+* lib/Image/Size.pm
+* t/Test_emf_small.emf (added)
+* t/all.t
+
+p{margin-bottom:2em}. RT #59995: Added support for Windows Enhanced Metafile Format (EMF).
+
+* t/00_load.t (deleted)
+* t/01_pod.t (deleted)
+* t/02_pod_coverage.t (deleted)
+* t/03_meta.t (deleted)
+* t/04_minimumversion.t (deleted)
+* t/05_critic.t (deleted)
+* xt/00_load.t (added)
+* xt/01_pod.t (added)
+* xt/02_pod_coverage.t (added)
+* xt/03_meta.t (added)
+* xt/04_minimumversion.t (added)
+* xt/05_critic.t (added)
+
+p{margin-bottom:2em}. Move the author/distro-sanity tests to an "xt" directory.
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Image-Size-3.221/imgsize new/Image-Size-3.230/imgsize
--- old/Image-Size-3.221/imgsize 2010-04-25 23:12:03.000000000 +0200
+++ new/Image-Size-3.230/imgsize 2010-08-30 00:54:48.000000000 +0200
@@ -102,7 +102,7 @@
=head1 DESCRIPTION
No-brainer to size an image supplied on the command-line. All the real
-work is done in LImage::Size.
+work is done in LImage::Size|Image::Size.
=head1 REQUIRED ARGUMENTS
@@ -130,7 +130,7 @@
=item C<-a>
Return a Perl-style list of attributes suitable for passing to the C
-method of the CGI module (see L<CGI>).
+method of the CGI module (see L).
=item C<-f> B<fmt>
@@ -187,7 +187,7 @@
=head1 SEE ALSO
-LImage::Size
+LImage::Size|Image::Size
=head1 AUTHOR
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Image-Size-3.221/lib/Image/Size.pm new/Image-Size-3.230/lib/Image/Size.pm
--- old/Image-Size-3.221/lib/Image/Size.pm 2010-04-25 23:12:03.000000000 +0200
+++ new/Image-Size-3.230/lib/Image/Size.pm 2010-08-30 00:54:48.000000000 +0200
@@ -44,7 +44,7 @@
%CACHE $NO_CACHE $PCD_SCALE $GIF_BEHAVIOR);
%EXPORT_TAGS = ('all' => [ @EXPORT_OK ]);
- $VERSION = '3.221';
+ $VERSION = '3.230';
$VERSION = eval $VERSION; ## no critic(ProhibitStringyEval)
# Default behavior for GIFs is to return the "screen" size
@@ -63,7 +63,7 @@
qr{^\x89PNG\x0d\x0a\x1a\x0a} => \&pngsize,
qr{^P[1-7]} => \&ppmsize, # also XVpics
qr{#define\s+\S+\s+\d+} => \&xbmsize,
- qr{/\* XPM \*/} => \&xpmsize,
+ qr{/[*] XPM [*]/} => \&xpmsize,
qr{^MM\x00\x2a} => \&tiffsize,
qr{^II\x2a\x00} => \&tiffsize,
qr{^BM} => \&bmpsize,
@@ -72,6 +72,7 @@
qr{^FWS} => \&swfsize,
qr{^CWS} => \&swfmxsize,
qr{^\x8aMNG\x0d\x0a\x1a\x0a} => \&mngsize,
+ qr{^\x01\x00\x00\x00} => \&emfsize,
);
# Kodak photo-CDs are weird. Don't ask me why, you really don't want details.
%PCD_MAP = ( 'base/16' => [ 192, 128 ],
@@ -349,11 +350,17 @@
return eof $stream;
}
+# "no critic" because this private routine is only used by auto-loaded code,
+# which Perl::Critic can't detect
+## no critic (ProhibitUnusedPrivateSubroutines)
# Simple converter-routine used by SWF and CWS code
sub _bin2int
{
my $val = shift;
- return unpack 'N', pack 'B32', substr(('0' x 32) . $val, -32); ## no critic (ProhibitParensWithBuiltins)
+ # "no critic" because I want it clear which args are being used by
+ # substr() versus unpack().
+ ## no critic (ProhibitParensWithBuiltins)
+ return unpack 'N', pack 'B32', substr(('0' x 32) . $val, -32);
}
1;
@@ -500,6 +507,8 @@
=item PCD (Kodak PhotoCD, see notes below)
+=item EMF (Windows Enhanced Metafile Format)
+
=back
Additionally, if the BImage::Magick module is present, the file types
@@ -550,7 +559,7 @@
To make it possible for users to do this themselves, the C<%CACHE> hash-table
that BImage::Size uses internally for storage may be imported in the B<use>
statement. The user may then make use of packages such as BIPC::MMA
-(LIPC::MMA) that can C<tie> a hash to a shared-memory segment:
+(LIPC::MMA|IPC::MMA) that can C<tie> a hash to a shared-memory segment:
use Image::Size qw(imgsize %CACHE);
use IPC::MMA;
@@ -687,14 +696,14 @@
tie %Image::Size::CACHE, 'IPC::Shareable', 'size', { create => 1 };
-That example uses BIPC::Shareable (see LIPC::Shareable) and uses the option
-to the C<tie> command that tells BIPC::Shareable to create the segment. Once
-the initial server process starts to create children, they will all share the
-tied handle to the memory segment.
+That example uses BIPC::Shareable (see LIPC::Shareable|IPC::Shareable) and
+uses the option to the C<tie> command that tells BIPC::Shareable to create
+the segment. Once the initial server process starts to create children, they
+will all share the tied handle to the memory segment.
Another package that provides this capability is BIPC::MMA (see
-LIPC::MMA), which provides shared memory management via the I<mm> library
-from Ralf Engelschall (details available in the documentation for
+LIPC::MMA|IPC::MMA), which provides shared memory management via the I<mm>
+library from Ralf Engelschall (details available in the documentation for
BIPC::MMA):
use IPC::MMA;
@@ -758,8 +767,9 @@
=head1 SEE ALSO
-LImage::Magick and LImage::Info Perl modules at CPAN. The
-BGraphics::Magick Perl API at Lhttp://www.graphicsmagick.org/perl.html.
+LImage::Magick|Image::Magick and LImage::Info|Image::Info Perl modules at
+CPAN. The BGraphics::Magick Perl API at
+Lhttp://www.graphicsmagick.org/perl.html.
=head1 CONTRIBUTORS
@@ -1355,3 +1365,21 @@
return ($x, $y, 'CWS');
}
+
+# Windows EMF files, requested by Jan v/d Zee
+sub emfsize
+{
+ my $image = shift;
+
+ my ($x, $y);
+ my $buffer = $READ_IN->($image, 24);
+
+ my ($x1, $y1, $x2, $y2) = unpack 'x8VVVV', $buffer;
+
+ # The four values describe a box *around* the image, not *of* the image.
+ # In other words, the dimensions are not inclusive.
+ $x = $x2 - $x1 - 1;
+ $y = $y2 - $y1 - 1;
+
+ return ($x, $y, 'EMF');
+}
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Image-Size-3.221/t/00_load.t new/Image-Size-3.230/t/00_load.t
--- old/Image-Size-3.221/t/00_load.t 2010-04-25 23:12:03.000000000 +0200
+++ new/Image-Size-3.230/t/00_load.t 1970-01-01 01:00:00.000000000 +0100
@@ -1,19 +0,0 @@
-#!/usr/bin/perl
-
-use strict;
-use vars qw(@MODULES);
-
-use Test::More;
-
-# Verify that the individual modules will load
-
-BEGIN
-{
- @MODULES = qw(Image::Size);
-
- plan tests => scalar(@MODULES);
-}
-
-use_ok($_) for (@MODULES);
-
-exit 0;
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Image-Size-3.221/t/01_pod.t new/Image-Size-3.230/t/01_pod.t
--- old/Image-Size-3.221/t/01_pod.t 2010-04-25 23:12:03.000000000 +0200
+++ new/Image-Size-3.230/t/01_pod.t 1970-01-01 01:00:00.000000000 +0100
@@ -1,24 +0,0 @@
-#!/usr/bin/perl
-
-# Test that the syntax of our POD documentation is valid
-use strict;
-BEGIN
-{
- $| = 1;
- $^W = 1;
-
- use Test::More;
- unless ($ENV{AUTHOR_TESTING})
- {
- plan skip_all => "Author tests not required for installation";
- }
- else
- {
- eval "use Pod::Simple;";
- eval "use Test::Pod;";
- }
-}
-
-all_pod_files_ok();
-
-exit;
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Image-Size-3.221/t/02_pod_coverage.t new/Image-Size-3.230/t/02_pod_coverage.t
--- old/Image-Size-3.221/t/02_pod_coverage.t 2010-04-25 23:12:03.000000000 +0200
+++ new/Image-Size-3.230/t/02_pod_coverage.t 1970-01-01 01:00:00.000000000 +0100
@@ -1,26 +0,0 @@
-#!/usr/bin/perl
-
-# Test that the syntax of our POD documentation is valid
-use strict;
-BEGIN
-{
- $| = 1;
- $^W = 1;
-
- use Test::More;
- unless ($ENV{AUTHOR_TESTING})
- {
- plan skip_all => "Author tests not required for installation";
- }
- else
- {
- eval "use Test::Pod::Coverage;";
- }
-}
-
-plan tests => 1;
-
-pod_coverage_ok('Image::Size' => { also_private => [ qr/size$/, 'img_eof' ] },
- 'Image::Size');
-
-exit;
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Image-Size-3.221/t/03_meta.t new/Image-Size-3.230/t/03_meta.t
--- old/Image-Size-3.221/t/03_meta.t 2010-04-25 23:12:03.000000000 +0200
+++ new/Image-Size-3.230/t/03_meta.t 1970-01-01 01:00:00.000000000 +0100
@@ -1,27 +0,0 @@
-#!/usr/bin/perl
-
-# Test that our META.yml file matches the specification
-use strict;
-BEGIN
-{
- $| = 1;
- $^W = 1;
-
- use Test::More;
- unless ($ENV{AUTHOR_TESTING})
- {
- plan skip_all => "Author tests not required for installation";
- }
- elsif (! -f 'META.yml')
- {
- plan skip_all => "No META.yml file present";
- }
- else
- {
- eval "use Test::CPAN::Meta;";
- }
-}
-
-meta_yaml_ok();
-
-exit;
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Image-Size-3.221/t/04_minimumversion.t new/Image-Size-3.230/t/04_minimumversion.t
--- old/Image-Size-3.221/t/04_minimumversion.t 2010-04-25 23:12:03.000000000 +0200
+++ new/Image-Size-3.230/t/04_minimumversion.t 1970-01-01 01:00:00.000000000 +0100
@@ -1,24 +0,0 @@
-#!/usr/bin/perl
-
-# Test that our declared minimum Perl version matches our syntax
-use strict;
-BEGIN
-{
- $| = 1;
- $^W = 1;
-
- use Test::More;
- unless ($ENV{AUTHOR_TESTING})
- {
- plan( skip_all => "Author tests not required for installation" );
- }
- else
- {
- eval "use Perl::MinimumVersion;";
- eval "use Test::MinimumVersion;";
- }
-}
-
-all_minimum_version_from_metayml_ok();
-
-exit;
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Image-Size-3.221/t/05_critic.t new/Image-Size-3.230/t/05_critic.t
--- old/Image-Size-3.221/t/05_critic.t 2010-04-25 23:12:03.000000000 +0200
+++ new/Image-Size-3.230/t/05_critic.t 1970-01-01 01:00:00.000000000 +0100
@@ -1,24 +0,0 @@
-#!/usr/bin/perl
-
-# Test that the module passes perlcritic
-use strict;
-BEGIN
-{
- $| = 1;
- $^W = 1;
-
- use Test::More;
- unless ($ENV{AUTHOR_TESTING})
- {
- plan skip_all => "Author tests not required for installation";
- }
- else
- {
- eval "use Perl::Critic;";
- eval "use Test::Perl::Critic;";
- }
-}
-
-all_critic_ok();
-
-exit;
Files old/Image-Size-3.221/t/Test_emf_small.emf and new/Image-Size-3.230/t/Test_emf_small.emf differ
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Image-Size-3.221/t/all.t new/Image-Size-3.230/t/all.t
--- old/Image-Size-3.221/t/all.t 2010-04-25 23:12:03.000000000 +0200
+++ new/Image-Size-3.230/t/all.t 2010-08-30 00:54:48.000000000 +0200
@@ -2,7 +2,7 @@
use IO::File;
use Image::Size qw(:all);
-use Test::More tests => 17;
+use Test::More tests => 18;
# We now only test the CWS branch if the user already has Compress::Zlib
# available. We no longer require it for installation.
@@ -57,6 +57,10 @@
($x, $y, $id) = imgsize("${dir}yasp.swf");
ok(($x == 85 && $y == 36 && $id eq 'SWF'), 'Basic SWF format test');
+# Test EMF code
+($x, $y, $id) = imgsize("${dir}Test_emf_small.emf");
+ok(($x == 638 && $y == 949 && $id eq 'EMF'), 'Basic EMF format test');
+
SKIP: {
skip 'Compress::Zlib not installed', 1 unless $do_cws_test;
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Image-Size-3.221/xt/00_load.t new/Image-Size-3.230/xt/00_load.t
--- old/Image-Size-3.221/xt/00_load.t 1970-01-01 01:00:00.000000000 +0100
+++ new/Image-Size-3.230/xt/00_load.t 2010-08-30 00:54:48.000000000 +0200
@@ -0,0 +1,19 @@
+#!/usr/bin/perl
+
+use strict;
+use vars qw(@MODULES);
+
+use Test::More;
+
+# Verify that the individual modules will load
+
+BEGIN
+{
+ @MODULES = qw(Image::Size);
+
+ plan tests => scalar(@MODULES);
+}
+
+use_ok($_) for (@MODULES);
+
+exit 0;
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Image-Size-3.221/xt/01_pod.t new/Image-Size-3.230/xt/01_pod.t
--- old/Image-Size-3.221/xt/01_pod.t 1970-01-01 01:00:00.000000000 +0100
+++ new/Image-Size-3.230/xt/01_pod.t 2010-08-30 00:54:48.000000000 +0200
@@ -0,0 +1,24 @@
+#!/usr/bin/perl
+
+# Test that the syntax of our POD documentation is valid
+use strict;
+BEGIN
+{
+ $| = 1;
+ $^W = 1;
+
+ use Test::More;
+ unless ($ENV{AUTHOR_TESTING})
+ {
+ plan skip_all => "Author tests not required for installation";
+ }
+ else
+ {
+ eval "use Pod::Simple;";
+ eval "use Test::Pod;";
+ }
+}
+
+all_pod_files_ok();
+
+exit;
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Image-Size-3.221/xt/02_pod_coverage.t new/Image-Size-3.230/xt/02_pod_coverage.t
--- old/Image-Size-3.221/xt/02_pod_coverage.t 1970-01-01 01:00:00.000000000 +0100
+++ new/Image-Size-3.230/xt/02_pod_coverage.t 2010-08-30 00:54:48.000000000 +0200
@@ -0,0 +1,26 @@
+#!/usr/bin/perl
+
+# Test that the syntax of our POD documentation is valid
+use strict;
+BEGIN
+{
+ $| = 1;
+ $^W = 1;
+
+ use Test::More;
+ unless ($ENV{AUTHOR_TESTING})
+ {
+ plan skip_all => "Author tests not required for installation";
+ }
+ else
+ {
+ eval "use Test::Pod::Coverage;";
+ }
+}
+
+plan tests => 1;
+
+pod_coverage_ok('Image::Size' => { also_private => [ qr/size$/, 'img_eof' ] },
+ 'Image::Size');
+
+exit;
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Image-Size-3.221/xt/03_meta.t new/Image-Size-3.230/xt/03_meta.t
--- old/Image-Size-3.221/xt/03_meta.t 1970-01-01 01:00:00.000000000 +0100
+++ new/Image-Size-3.230/xt/03_meta.t 2010-08-30 00:54:48.000000000 +0200
@@ -0,0 +1,27 @@
+#!/usr/bin/perl
+
+# Test that our META.yml file matches the specification
+use strict;
+BEGIN
+{
+ $| = 1;
+ $^W = 1;
+
+ use Test::More;
+ unless ($ENV{AUTHOR_TESTING})
+ {
+ plan skip_all => "Author tests not required for installation";
+ }
+ elsif (! -f 'META.yml')
+ {
+ plan skip_all => "No META.yml file present";
+ }
+ else
+ {
+ eval "use Test::CPAN::Meta;";
+ }
+}
+
+meta_yaml_ok();
+
+exit;
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Image-Size-3.221/xt/04_minimumversion.t new/Image-Size-3.230/xt/04_minimumversion.t
--- old/Image-Size-3.221/xt/04_minimumversion.t 1970-01-01 01:00:00.000000000 +0100
+++ new/Image-Size-3.230/xt/04_minimumversion.t 2010-08-30 00:54:48.000000000 +0200
@@ -0,0 +1,24 @@
+#!/usr/bin/perl
+
+# Test that our declared minimum Perl version matches our syntax
+use strict;
+BEGIN
+{
+ $| = 1;
+ $^W = 1;
+
+ use Test::More;
+ unless ($ENV{AUTHOR_TESTING})
+ {
+ plan( skip_all => "Author tests not required for installation" );
+ }
+ else
+ {
+ eval "use Perl::MinimumVersion;";
+ eval "use Test::MinimumVersion;";
+ }
+}
+
+all_minimum_version_from_metayml_ok();
+
+exit;
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Image-Size-3.221/xt/05_critic.t new/Image-Size-3.230/xt/05_critic.t
--- old/Image-Size-3.221/xt/05_critic.t 1970-01-01 01:00:00.000000000 +0100
+++ new/Image-Size-3.230/xt/05_critic.t 2010-08-30 00:54:48.000000000 +0200
@@ -0,0 +1,24 @@
+#!/usr/bin/perl
+
+# Test that the module passes perlcritic
+use strict;
+BEGIN
+{
+ $| = 1;
+ $^W = 1;
+
+ use Test::More;
+ unless ($ENV{AUTHOR_TESTING})
+ {
+ plan skip_all => "Author tests not required for installation";
+ }
+ else
+ {
+ eval "use Perl::Critic;";
+ eval "use Test::Perl::Critic;";
+ }
+}
+
+all_critic_ok();
+
+exit;
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Remember to have fun...
--
To unsubscribe, e-mail: opensuse-commit+unsubscribe@opensuse.org
For additional commands, e-mail: opensuse-commit+help@opensuse.org