[SCM] Debian packaging of libperl5i-perl branch, master, updated. debian/2.9.1-1-2-g5d7720d

Dominique Dumont dod at debian.org
Thu Jun 14 12:14:10 UTC 2012


The following commit has been merged in the master branch:
commit 8019128693e5625b88614e64fd8623c3334c3d53
Author: Dominique Dumont <dod at debian.org>
Date:   Thu Jun 14 13:36:52 2012 +0200

    test: work around mips issue (Closes: #650806)

diff --git a/debian/patches/fix-test-for-mips b/debian/patches/fix-test-for-mips
new file mode 100644
index 0000000..0ba3ae7
--- /dev/null
+++ b/debian/patches/fix-test-for-mips
@@ -0,0 +1,47 @@
+Description: Fix test for mips
+ This patch fix a test issue that occurs only on mips architecture.
+ .
+ The faulty tests times actions done by a forked child process. 
+ .
+ The child process does:
+ .
+ say "A";
+ flush;
+ say "B" ;
+ sleep 5;
+ flush;
+ .
+ The test verifies that A and B are read with several seconds interval even 
+ though there's no delay between say A and say B in the child process. (this is 
+ a kind of buffer bloat test ;-) )
+ .
+ Weird thing: the test may fail even if there's indeed more than 2 seconds 
+ between receiving A and B (verified with my stopwatch).
+ .
+ After several time measurement manips, it turns out that there's an 
+ interaction between time() call, fork and autoflush.
+ .
+ The only way to have the test successful is to call time before calling fork 
+ (i.e. before $child->start). 
+Bug: 650806
+Author: dod
+--- a/t/Child.t
++++ b/t/Child.t
+@@ -84,13 +84,16 @@
+     $self->flush;
+ }, pipe => 1 );
+ 
++my $fork_time = time ;
+ $proc = $child->start;
+ is( $proc->read(), "A\n", "A" );
+ my $start = time;
+ is( $proc->read(), "B\n", "B" );
+ my $end = time;
+ 
+-ok( $end - $start > 2, "No autoflush" );
++my $delta = $end - $start ;
++my $delta_fork = $start - $fork_time ;
++ok( $delta > 2, "No autoflush (read delta time $delta, fork delta $delta_fork)" );
+ 
+ SKIP: {
+     if ($^O eq 'MSWin32') {
diff --git a/debian/patches/series b/debian/patches/series
index 7d1df08..e307dce 100644
--- a/debian/patches/series
+++ b/debian/patches/series
@@ -1 +1,2 @@
+fix-test-for-mips
 0001-Make-one-test-TODO-in-t-utf8.t-failure-caused-by-RT-.patch

-- 
Debian packaging of libperl5i-perl



More information about the Pkg-perl-cvs-commits mailing list