r4260 - in
/packages/libtest-longstring-perl/branches/upstream/current:
Changes MANIFEST MANIFEST.SKIP META.yml Makefile.PL README
lib/Test/LongString.pm
gregoa-guest at users.alioth.debian.org
gregoa-guest at users.alioth.debian.org
Sun Nov 19 18:29:27 CET 2006
Author: gregoa-guest
Date: Sun Nov 19 18:29:27 2006
New Revision: 4260
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=4260
Log:
Load /tmp/tmp.NeNJvN8719/libtest-longstring-perl-0.11 into
packages/libtest-longstring-perl/branches/upstream/current.
Removed:
packages/libtest-longstring-perl/branches/upstream/current/MANIFEST.SKIP
Modified:
packages/libtest-longstring-perl/branches/upstream/current/Changes
packages/libtest-longstring-perl/branches/upstream/current/MANIFEST
packages/libtest-longstring-perl/branches/upstream/current/META.yml
packages/libtest-longstring-perl/branches/upstream/current/Makefile.PL
packages/libtest-longstring-perl/branches/upstream/current/README
packages/libtest-longstring-perl/branches/upstream/current/lib/Test/LongString.pm
Modified: packages/libtest-longstring-perl/branches/upstream/current/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libtest-longstring-perl/branches/upstream/current/Changes?rev=4260&op=diff
==============================================================================
--- packages/libtest-longstring-perl/branches/upstream/current/Changes (original)
+++ packages/libtest-longstring-perl/branches/upstream/current/Changes Sun Nov 19 18:29:27 2006
@@ -3,3 +3,11 @@
0.09
Add an is_string_nows() function (RT #14018)
+
+0.10
+ Better implementation of _common_prefix_length
+ by Tassilo von Parseval
+
+0.11
+ Require a more recent Test::Builder::Tester,
+ since tests fail with 1.03.
Modified: packages/libtest-longstring-perl/branches/upstream/current/MANIFEST
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libtest-longstring-perl/branches/upstream/current/MANIFEST?rev=4260&op=diff
==============================================================================
--- packages/libtest-longstring-perl/branches/upstream/current/MANIFEST (original)
+++ packages/libtest-longstring-perl/branches/upstream/current/MANIFEST Sun Nov 19 18:29:27 2006
@@ -1,7 +1,6 @@
lib/Test/LongString.pm
Makefile.PL
MANIFEST
-MANIFEST.SKIP
README
t/01teststring.t
t/02import.t
Modified: packages/libtest-longstring-perl/branches/upstream/current/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libtest-longstring-perl/branches/upstream/current/META.yml?rev=4260&op=diff
==============================================================================
--- packages/libtest-longstring-perl/branches/upstream/current/META.yml (original)
+++ packages/libtest-longstring-perl/branches/upstream/current/META.yml Sun Nov 19 18:29:27 2006
@@ -1,12 +1,12 @@
# http://module-build.sourceforge.net/META-spec.html
#XXXXXXX This is a prototype!!! It will change in the future!!! XXXXX#
name: Test-LongString
-version: 0.09
+version: 0.11
version_from: lib/Test/LongString.pm
installdirs: site
requires:
Test::Builder: 0.12
- Test::Builder::Tester: 1
+ Test::Builder::Tester: 1.04
distribution_type: module
-generated_by: ExtUtils::MakeMaker version 6.17
+generated_by: ExtUtils::MakeMaker version 6.30_01
Modified: packages/libtest-longstring-perl/branches/upstream/current/Makefile.PL
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libtest-longstring-perl/branches/upstream/current/Makefile.PL?rev=4260&op=diff
==============================================================================
--- packages/libtest-longstring-perl/branches/upstream/current/Makefile.PL (original)
+++ packages/libtest-longstring-perl/branches/upstream/current/Makefile.PL Sun Nov 19 18:29:27 2006
@@ -5,6 +5,6 @@
VERSION_FROM => "lib/Test/LongString.pm",
PREREQ_PM => {
'Test::Builder' => 0.12,
- 'Test::Builder::Tester' => 1.00,
+ 'Test::Builder::Tester' => 1.04,
},
);
Modified: packages/libtest-longstring-perl/branches/upstream/current/README
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libtest-longstring-perl/branches/upstream/current/README?rev=4260&op=diff
==============================================================================
--- packages/libtest-longstring-perl/branches/upstream/current/README (original)
+++ packages/libtest-longstring-perl/branches/upstream/current/README Sun Nov 19 18:29:27 2006
@@ -1,4 +1,4 @@
-Test::LongString v0.09
+Test::LongString v0.11
======================
A library to test long strings.
@@ -22,4 +22,4 @@
This program is free software; you can redistribute it and/or modify it
under the same terms as Perl itself.
-Copyright (c) 2002, 2003, 2004, 2005 Rafael Garcia-Suarez
+Copyright (c) 2002, 2003, 2004, 2005, 2006 Rafael Garcia-Suarez
Modified: packages/libtest-longstring-perl/branches/upstream/current/lib/Test/LongString.pm
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libtest-longstring-perl/branches/upstream/current/lib/Test/LongString.pm?rev=4260&op=diff
==============================================================================
--- packages/libtest-longstring-perl/branches/upstream/current/lib/Test/LongString.pm (original)
+++ packages/libtest-longstring-perl/branches/upstream/current/lib/Test/LongString.pm Sun Nov 19 18:29:27 2006
@@ -3,7 +3,7 @@
use strict;
use vars qw($VERSION @ISA @EXPORT $Max $Context);
-$VERSION = 0.09;
+$VERSION = '0.11';
use Test::Builder;
my $Tester = new Test::Builder();
@@ -52,23 +52,11 @@
return $s;
}
-# I'm not too happy with this function. And you ?
sub _common_prefix_length {
- my ($x, $y) = (shift, shift);
- my $r = 0;
- while (length($x) && length($y)) {
- my ($x1,$x2) = $x =~ /(.)(.*)/s;
- my ($y1,$y2) = $y =~ /(.)(.*)/s;
- if ($x1 eq $y1) {
- $x = $x2;
- $y = $y2;
- ++$r;
- }
- else {
- last;
- }
- }
- $r;
+ my ($str1, $str2) = @_;
+ my $diff = $str1 ^ $str2;
+ my ($pre) = $diff =~ /^(\000*)/;
+ return length $pre;
}
sub contains_string($$;$) {
@@ -83,7 +71,7 @@
$Tester->diag("String to look for is undef");
} else {
my $index = index($str, $sub);
- $ok = ($index >= 0);
+ $ok = ($index >= 0) ? 1 : 0;
$Tester->ok($ok, $name);
if (!$ok) {
my ($g, $e) = (_display($str), _display($sub));
@@ -108,7 +96,7 @@
$Tester->diag("String to look for is undef");
} else {
my $index = index($str, $sub);
- $ok = ($index < 0);
+ $ok = ($index < 0) ? 1 : 0;
$Tester->ok($ok, $name);
if (!$ok) {
my ($g, $e) = (_display($str), _display($sub));
More information about the Pkg-perl-cvs-commits
mailing list