r35377 - in /branches/upstream/libfile-libmagic-perl/current: Changes LibMagic.pm t/6-oo.t
ryan52-guest at users.alioth.debian.org
ryan52-guest at users.alioth.debian.org
Thu May 14 01:04:11 UTC 2009
Author: ryan52-guest
Date: Thu May 14 01:04:06 2009
New Revision: 35377
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=35377
Log:
[svn-upgrade] Integrating new upstream version, libfile-libmagic-perl (0.94)
Modified:
branches/upstream/libfile-libmagic-perl/current/Changes
branches/upstream/libfile-libmagic-perl/current/LibMagic.pm
branches/upstream/libfile-libmagic-perl/current/t/6-oo.t
Modified: branches/upstream/libfile-libmagic-perl/current/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libfile-libmagic-perl/current/Changes?rev=35377&op=diff
==============================================================================
--- branches/upstream/libfile-libmagic-perl/current/Changes (original)
+++ branches/upstream/libfile-libmagic-perl/current/Changes Thu May 14 01:04:06 2009
@@ -1,4 +1,7 @@
Revision history for Perl extension File::LibMagic.
+
+0.94 May 2009
+ small error in t/6-oo.t
0.93 May 2009
using Devel::CheckLib as suggested in
Modified: branches/upstream/libfile-libmagic-perl/current/LibMagic.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libfile-libmagic-perl/current/LibMagic.pm?rev=35377&op=diff
==============================================================================
--- branches/upstream/libfile-libmagic-perl/current/LibMagic.pm (original)
+++ branches/upstream/libfile-libmagic-perl/current/LibMagic.pm Thu May 14 01:04:06 2009
@@ -30,7 +30,7 @@
our @EXPORT = qw( );
-our $VERSION = '0.93';
+our $VERSION = '0.94';
sub AUTOLOAD {
# This AUTOLOAD is used to 'autoload' constants from the constant()
Modified: branches/upstream/libfile-libmagic-perl/current/t/6-oo.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libfile-libmagic-perl/current/t/6-oo.t?rev=35377&op=diff
==============================================================================
--- branches/upstream/libfile-libmagic-perl/current/t/6-oo.t (original)
+++ branches/upstream/libfile-libmagic-perl/current/t/6-oo.t Thu May 14 01:04:06 2009
@@ -25,7 +25,7 @@
$file = "t/samples/$file";
$mime=~s/;/;?/g;
- like( $flm->checktype_filename($file), qr#$mime#, "MIME $file" );
+ like( $flm->checktype_filename($file), qr#$mime#, "MIME $file" );
is ( $flm->describe_filename($file), $descr, "Describe $file" );
my $data = do {
@@ -34,7 +34,7 @@
<$fh>;
};
- like( $flm->checktype_contents($data), qr#$mime#, "MIME data $file" );
+ like( $flm->checktype_contents($data), qr#$mime#, "MIME data $file" );
is ( $flm->describe_contents($data), $descr, "Describe data $file" );
}
@@ -46,8 +46,9 @@
my ($descr, $mime) = @$expect;
$file = "t/samples/$file";
- is( $flm->checktype_filename($file), $mime, "MIME $file" );
- is( $flm->describe_filename($file), $descr, "Describe $file" );
+ $mime=~s/;/;?/g;
+ like( $flm->checktype_filename($file), qr#$mime#, "MIME $file" );
+ is( $flm->describe_filename($file), $descr, "Describe $file" );
my $data = do {
local $/;
@@ -55,8 +56,8 @@
<$fh>;
};
- is( $flm->checktype_contents($data), $mime, "MIME data $file" );
- is( $flm->describe_contents($data), $descr, "Describe data $file" );
+ like( $flm->checktype_contents($data), qr#$mime#, "MIME data $file" );
+ is( $flm->describe_contents($data), $descr, "Describe data $file" );
}
my $subclass = My::Magic::Subclass->new();
More information about the Pkg-perl-cvs-commits
mailing list