[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