[SCM] Debian packaging of libperl5i-perl branch, master, updated. debian/2.9.1-2-29-gdb32be6
Xavier Guimard
x.guimard at free.fr
Sun May 5 12:17:59 UTC 2013
The following commit has been merged in the master branch:
commit d9519f56612675ff9573b6fae1b4c347c39b6c76
Author: Xavier Guimard <x.guimard at free.fr>
Date: Sun May 5 13:30:30 2013 +0200
Remove patch that disable tests: real problem
diff --git a/debian/changelog b/debian/changelog
index 60ebcbb..0e7cb8d 100644
--- a/debian/changelog
+++ b/debian/changelog
@@ -1,4 +1,4 @@
-libperl5i-perl (2.11.2-1) unstable; urgency=low
+libperl5i-perl (2.11.2-1) UNRELEASED; urgency=low
[ gregor herrmann ]
* debian/control: update {versioned,alternative} (build) dependencies.
@@ -14,7 +14,6 @@ libperl5i-perl (2.11.2-1) unstable; urgency=low
* Imported Upstream version 2.11.2
* Remove patch that fixes t/utf8.t (fixed in upstream)
* Refresh fix-test-for-mips patch
- * Add patch to disable tests that fail under pbuilder jail
* Add Lintian override to hide false-positive hardening warning
* Add libcarp-fix-1-25-perl and libhash-storediterator-perl in
dependencies
diff --git a/debian/patches/disable-failing-tests.patch b/debian/patches/disable-failing-tests.patch
deleted file mode 100644
index eeee50f..0000000
--- a/debian/patches/disable-failing-tests.patch
+++ /dev/null
@@ -1,192 +0,0 @@
-Description: Disable tests that fail under pbuilder jail
-Author: Xavier Guimard <x.guimard at free.fr>
-Bug: https://github.com/schwern/perl5i/issues/255
-Forwarded: https://github.com/schwern/perl5i/issues/255
-Last-Update: 2013-01-02
-
---- libperl5i-perl-2.11.2.orig/t/popn.t
-+++ libperl5i-perl-2.11.2/t/popn.t
-@@ -5,23 +5,23 @@ use perl5i::latest;
- use Test::perl5i;
- use Test::More;
-
--note "popn with no args"; {
-- my @array = (1, 2, 3);
-- throws_ok { @array->popn(); }
-- qr{^\Qpopn() takes the number of elements to pop at $0 line };
--}
-+#note "popn with no args"; {
-+# my @array = (1, 2, 3);
-+# throws_ok { @array->popn(); }
-+# qr{^\Qpopn() takes the number of elements to pop at $0 line };
-+#}
-
--note "popn with negative arg"; {
-- my @array = (1, 2, 3);
-- throws_ok { @array->popn(-20); }
-- qr{^\Qpopn() takes a positive integer or zero, not '-20' at $0 line };
--}
-+#note "popn with negative arg"; {
-+# my @array = (1, 2, 3);
-+# throws_ok { @array->popn(-20); }
-+# qr{^\Qpopn() takes a positive integer or zero, not '-20' at $0 line };
-+#}
-
--note "popn with non-numerical argument"; {
-- my @array = (1, 2, 3);
-- throws_ok { @array->popn("rawr"); }
-- qr{^\Qpopn() takes a positive integer or zero, not 'rawr' at $0 line };
--}
-+#note "popn with non-numerical argument"; {
-+# my @array = (1, 2, 3);
-+# throws_ok { @array->popn("rawr"); }
-+# qr{^\Qpopn() takes a positive integer or zero, not 'rawr' at $0 line };
-+#}
-
- note "popn with arg == 0"; {
- my @array = (1, 2, 3);
---- libperl5i-perl-2.11.2.orig/t/pick.t
-+++ libperl5i-perl-2.11.2/t/pick.t
-@@ -71,23 +71,23 @@ note 'pick method with duplicate element
- pick_ok([1,1,2,2,3,3] => 6);
- }
-
--note "pick with no args"; {
-- my @array = (1, 2, 3);
-- throws_ok { @array->pick(); }
-- qr{^\Qpick() takes the number of elements to pick at $0 line };
--}
-+#note "pick with no args"; {
-+# my @array = (1, 2, 3);
-+# throws_ok { @array->pick(); }
-+# qr{^\Qpick() takes the number of elements to pick at $0 line };
-+#}
-
--note "pick with negative arg"; {
-- my @array = (1, 2, 3);
-- throws_ok { @array->pick(-20); }
-- qr{^\Qpick() takes a positive integer or zero, not '-20' at $0 line };
--}
-+#note "pick with negative arg"; {
-+# my @array = (1, 2, 3);
-+# throws_ok { @array->pick(-20); }
-+# qr{^\Qpick() takes a positive integer or zero, not '-20' at $0 line };
-+#}
-
--note "pick with non-numerical argument"; {
-- my @array = (1, 2, 3);
-- throws_ok { @array->pick("rawr"); }
-- qr{^\Qpick() takes a positive integer or zero, not 'rawr' at $0 line };
--}
-+#note "pick with non-numerical argument"; {
-+# my @array = (1, 2, 3);
-+# throws_ok { @array->pick("rawr"); }
-+# qr{^\Qpick() takes a positive integer or zero, not 'rawr' at $0 line };
-+#}
-
- note "pick_one method";{
- pick_one_ok([1,2,3,4,4]);
---- libperl5i-perl-2.11.2.orig/t/shiftn.t
-+++ libperl5i-perl-2.11.2/t/shiftn.t
-@@ -5,23 +5,23 @@ use Test::perl5i;
- use perl5i::2;
- use Test::More;
-
--note "shiftn with no args"; {
-- my @array = (1, 2, 3);
-- throws_ok { @array->shiftn(); }
-- qr{^\Qshiftn() takes the number of elements to shift at $0 line };
--}
-+#note "shiftn with no args"; {
-+# my @array = (1, 2, 3);
-+# throws_ok { @array->shiftn(); }
-+# qr{^\Qshiftn() takes the number of elements to shift at $0 line };
-+#}
-
--note "shiftn with negative arg"; {
-- my @array = (1, 2, 3);
-- throws_ok { @array->shiftn(-20); }
-- qr{^\Qshiftn() takes a positive integer or zero, not '-20' at $0 line };
--}
-+#note "shiftn with negative arg"; {
-+# my @array = (1, 2, 3);
-+# throws_ok { @array->shiftn(-20); }
-+# qr{^\Qshiftn() takes a positive integer or zero, not '-20' at $0 line };
-+#}
-
--note "shiftn with non-numerical argument"; {
-- my @array = (1, 2, 3);
-- throws_ok { @array->shiftn("meow"); }
-- qr{^\Qshiftn() takes a positive integer or zero, not 'meow' at $0 line };
--}
-+#note "shiftn with non-numerical argument"; {
-+# my @array = (1, 2, 3);
-+# throws_ok { @array->shiftn("meow"); }
-+# qr{^\Qshiftn() takes a positive integer or zero, not 'meow' at $0 line };
-+#}
-
- note "shiftn with arg == 0"; {
- my @array = (1, 2, 3);
---- libperl5i-perl-2.11.2.orig/t/center.t
-+++ libperl5i-perl-2.11.2/t/center.t
-@@ -24,10 +24,10 @@ is( $hello->center(0), 'hello',
- is( $hello->center(-1), 'hello',
- '->center(-1)' );
-
--warning_like {
-- is( $hello->center(undef), 'hello',
-- '->center(undef)' );
--} qr/^Use of uninitialized value for size in center\(\) at \Q$0\E line /;
-+#warning_like {
-+# is( $hello->center(undef), 'hello',
-+# '->center(undef)' );
-+#} qr/^Use of uninitialized value for size in center\(\) at \Q$0\E line /;
-
- is( "even"->center(6, "-"), '-even-',
- '->center(6, "-")' );
-@@ -38,10 +38,10 @@ is( "even"->center(7, "-"), '--even-',
- is( "even"->center(0, "-"), 'even',
- '->center(0, "-")' );
-
--warning_like {
-- is( $hello->center(10, "-=-"), '---hello--',
-- '->center(undef)' );
--} qr/^'-=-' is longer than one character, using '-' instead at \Q$0\E line /;
-+#warning_like {
-+# is( $hello->center(10, "-=-"), '---hello--',
-+# '->center(undef)' );
-+#} qr/^'-=-' is longer than one character, using '-' instead at \Q$0\E line /;
-
- # Test that center() always returns the correct length
- for my $size ($hello->length..20) {
---- libperl5i-perl-2.11.2.orig/t/foreach.t
-+++ libperl5i-perl-2.11.2/t/foreach.t
-@@ -52,7 +52,7 @@ use Test::More;
- my @result;
- my @array = (1,2,3,4,5);
- ok !eval { @array->foreach(func() {}); 1 };
-- is $@, sprintf "Function passed to foreach takes no arguments at %s line %d.\n",
-+ #is $@, sprintf "Function passed to foreach takes no arguments at %s line %d.\n",
- __FILE__, __LINE__-2;
- }
-
---- libperl5i-perl-2.11.2.orig/t/Meta/super.t
-+++ libperl5i-perl-2.11.2/t/Meta/super.t
-@@ -74,7 +74,7 @@ use Test::perl5i;
- {
- my $obj = Child->new;
- ok !eval { $obj->mo->super(); };
-- is $@, sprintf "super() called outside a method at $0 line %d.\n", __LINE__ - 1;
-+ #is $@, sprintf "super() called outside a method at $0 line %d.\n", __LINE__ - 1;
- }
-
-
-@@ -93,7 +93,7 @@ use Test::perl5i;
- package main;
-
- ok !eval { NotAParent->bar; };
-- is $@, sprintf qq["NotAParent" is not a parent class of "Child" at $0 line %d.\n], __LINE__ - 6;
-+ #is $@, sprintf qq["NotAParent" is not a parent class of "Child" at $0 line %d.\n], __LINE__ - 6;
- }
-
-
diff --git a/debian/patches/series b/debian/patches/series
index 4df2150..82456cd 100644
--- a/debian/patches/series
+++ b/debian/patches/series
@@ -1,2 +1 @@
fix-test-for-mips
-disable-failing-tests.patch
--
Debian packaging of libperl5i-perl
More information about the Pkg-perl-cvs-commits
mailing list