Bug#759969: libperl5i-perl: FTBFS: dh_auto_test: perl Build test returned exit code 255

[Axel Beckert]

Control: tag -1 + patch upstream

Hi,

Lucas Nussbaum wrote:
> > #   Failed test at t/ARGV.t line 12.
> > #     Structures begin differing at:
> > #          $got->[0] = 'føø'
> > #     $expected->[0] = 'føø'
> > # Looks like you failed 1 test of 1.
> > t/ARGV.t ..................... 
> > Dubious, test returned 1 (wstat 256, 0x100)
> > Failed 1/1 subtests 
> > 
> > #   Failed test at t/ARGV_twice.t line 17.
> > #     Structures begin differing at:
> > #          $got->[0] = 'føø'
> > #     $expected->[0] = 'føø'
> > # Looks like you failed 1 test of 1.
> > t/ARGV_twice.t ............... 
> > Dubious, test returned 1 (wstat 256, 0x100)
> > Failed 1/1 subtests 

These two can be fixed by adding "use utf8;" to the .t file. But I'm
not sure if that defeats the purpose of these tests.

Here's a potential patch:

diff --git a/t/ARGV.t b/t/ARGV.t
index 28bdf75..530bd84 100644
--- a/t/ARGV.t
+++ b/t/ARGV.t
@@ -2,6 +2,8 @@
 
 # Test that perl5i makes @ARGV utf8
 
+use utf8;
+
 BEGIN {
     @ARGV = qw(føø bar bāz);
 }
diff --git a/t/ARGV_twice.t b/t/ARGV_twice.t
index 2b5c104..ba70da6 100644
--- a/t/ARGV_twice.t
+++ b/t/ARGV_twice.t
@@ -2,6 +2,8 @@
 
 # Test that perl5i doesn't double encode @ARGV [github 176]
 
+use utf8;
+
 BEGIN {
     @ARGV = qw(føø bar bāz);
 }

		Regards, Axel
-- 
 ,''`.  |  Axel Beckert <abe at debian.org>, http://people.debian.org/~abe/
: :' :  |  Debian Developer, ftp.ch.debian.org Admin
`. `'   |  1024D: F067 EA27 26B9 C3FC 1486  202E C09E 1D89 9593 0EDE
  `-    |  4096R: 2517 B724 C5F6 CA99 5329  6E61 2FF9 CD59 6126 16B5