This is an automated email from the git hooks/post-receive script.

gregoa pushed a commit to branch master
in repository libipc-sharelite-perl.

commit 0080e15823fdc2968775178d8b0212555ee35db7
Author: gregor herrmann <gre...@debian.org>
Date:   Sat Oct 1 18:18:17 2016 +0200

    Drop Disable-t-sharelite.t-Closes-625828.patch
    
    which disabled a test by renaming the file.
    Instead just skip it, both during build and autopkgtest.
---
 .../Disable-t-sharelite.t-Closes-625828.patch      | 201 ---------------------
 debian/patches/series                              |   1 -
 debian/rules                                       |   6 +
 debian/tests/pkg-perl/smoke-skip                   |   1 +
 4 files changed, 7 insertions(+), 202 deletions(-)

diff --git a/debian/patches/Disable-t-sharelite.t-Closes-625828.patch 
b/debian/patches/Disable-t-sharelite.t-Closes-625828.patch
deleted file mode 100644
index 80dcdd6..0000000
--- a/debian/patches/Disable-t-sharelite.t-Closes-625828.patch
+++ /dev/null
@@ -1,201 +0,0 @@
-From: intrigeri <intrig...@boum.org>
-Date: Fri, 29 Jun 2012 17:25:02 +0200
-Subject: Disable t/sharelite.t (Closes: #625828).
-
-According to Ben Hutchings, "Mapping the same shared memory twice in one 
process
-is stupid, anyway." (Message #99 on bug #679449).
----
- t/sharelite.t          |   88 ------------------------------------------------
- t/sharelite.t.disabled |   88 ++++++++++++++++++++++++++++++++++++++++++++++++
- 2 files changed, 88 insertions(+), 88 deletions(-)
- delete mode 100644 t/sharelite.t
- create mode 100644 t/sharelite.t.disabled
-
-diff --git a/t/sharelite.t b/t/sharelite.t
-deleted file mode 100644
-index b2d02b5..0000000
---- a/t/sharelite.t
-+++ /dev/null
-@@ -1,88 +0,0 @@
--use strict;
--use warnings;
--use Test::More tests => 14;
--use File::Spec;
--
--my $log_file = $ENV{IPC_SHARELITE_LOG}
-- = File::Spec->catfile( 't', "sl-$$.log" );
--
--use_ok 'IPC::ShareLite', qw( LOCK_EX LOCK_SH LOCK_UN LOCK_NB );
--
--######################### End of black magic.
--
--# If a semaphore or shared memory segment already uses this
--# key, all tests will fail
--my $KEY = 192;
--
--# Test object construction
--ok my $share = IPC::ShareLite->new(
--  -key     => $KEY,
--  -create  => 'yes',
--  -destroy => 'yes',
--  -size    => 100
-- ),
-- 'new';
--
--isa_ok $share, 'IPC::ShareLite';
--
--is $share->version, 1, 'version';
--
--# Store value
--ok $share->store( 'maurice' ), 'store';
--
--is $share->version, 2, 'version inc';
--
--# Retrieve value
--is $share->fetch, 'maurice', 'fetch';
--
--# Fragmented store
--ok $share->store( "X" x 200 ), 'frag store';
--
--is $share->version, 3, 'version inc';
--
--# Check number of segments
--is $share->num_segments, 3, 'num_segments';
--
--# Fragmented fetch
--is $share->fetch, ( 'X' x 200 ), 'frag fetch';
--
--$share->store( 0 );
--
--is $share->version, 4, 'version inc';
--
--my $pid = fork;
--defined $pid or die $!;
--if ( $pid == 0 ) {
--  $share->destroy( 0 );
--  for ( 1 .. 1000 ) {
--    $share->lock( LOCK_EX() ) or die $!;
--    my $val = $share->fetch;
--    $share->store( ++$val ) or die $!;
--    $share->unlock or die $!;
--  }
--  exit;
--}
--else {
--  for ( 1 .. 1000 ) {
--    $share->lock( LOCK_EX() ) or die $!;
--    my $val = $share->fetch;
--    $share->store( ++$val ) or die $!;
--    $share->unlock or die $!;
--  }
--  wait;
--}
--
--is $share->fetch,   2000, 'lock';
--is $share->version, 2004, 'version inc';
--
--if ( -f $log_file ) {
--  if ( -s $log_file ) {
--    open my $lh, '<', $log_file or die "Can't read $log_file ($!)\n";
--    while ( <$lh> ) {
--      chomp;
--      diag $_;
--    }
--  }
--  unlink $log_file;
--}
--
-diff --git a/t/sharelite.t.disabled b/t/sharelite.t.disabled
-new file mode 100644
-index 0000000..b2d02b5
---- /dev/null
-+++ b/t/sharelite.t.disabled
-@@ -0,0 +1,88 @@
-+use strict;
-+use warnings;
-+use Test::More tests => 14;
-+use File::Spec;
-+
-+my $log_file = $ENV{IPC_SHARELITE_LOG}
-+ = File::Spec->catfile( 't', "sl-$$.log" );
-+
-+use_ok 'IPC::ShareLite', qw( LOCK_EX LOCK_SH LOCK_UN LOCK_NB );
-+
-+######################### End of black magic.
-+
-+# If a semaphore or shared memory segment already uses this
-+# key, all tests will fail
-+my $KEY = 192;
-+
-+# Test object construction
-+ok my $share = IPC::ShareLite->new(
-+  -key     => $KEY,
-+  -create  => 'yes',
-+  -destroy => 'yes',
-+  -size    => 100
-+ ),
-+ 'new';
-+
-+isa_ok $share, 'IPC::ShareLite';
-+
-+is $share->version, 1, 'version';
-+
-+# Store value
-+ok $share->store( 'maurice' ), 'store';
-+
-+is $share->version, 2, 'version inc';
-+
-+# Retrieve value
-+is $share->fetch, 'maurice', 'fetch';
-+
-+# Fragmented store
-+ok $share->store( "X" x 200 ), 'frag store';
-+
-+is $share->version, 3, 'version inc';
-+
-+# Check number of segments
-+is $share->num_segments, 3, 'num_segments';
-+
-+# Fragmented fetch
-+is $share->fetch, ( 'X' x 200 ), 'frag fetch';
-+
-+$share->store( 0 );
-+
-+is $share->version, 4, 'version inc';
-+
-+my $pid = fork;
-+defined $pid or die $!;
-+if ( $pid == 0 ) {
-+  $share->destroy( 0 );
-+  for ( 1 .. 1000 ) {
-+    $share->lock( LOCK_EX() ) or die $!;
-+    my $val = $share->fetch;
-+    $share->store( ++$val ) or die $!;
-+    $share->unlock or die $!;
-+  }
-+  exit;
-+}
-+else {
-+  for ( 1 .. 1000 ) {
-+    $share->lock( LOCK_EX() ) or die $!;
-+    my $val = $share->fetch;
-+    $share->store( ++$val ) or die $!;
-+    $share->unlock or die $!;
-+  }
-+  wait;
-+}
-+
-+is $share->fetch,   2000, 'lock';
-+is $share->version, 2004, 'version inc';
-+
-+if ( -f $log_file ) {
-+  if ( -s $log_file ) {
-+    open my $lh, '<', $log_file or die "Can't read $log_file ($!)\n";
-+    while ( <$lh> ) {
-+      chomp;
-+      diag $_;
-+    }
-+  }
-+  unlink $log_file;
-+}
-+
diff --git a/debian/patches/series b/debian/patches/series
index c4dbd80..677e438 100644
--- a/debian/patches/series
+++ b/debian/patches/series
@@ -1,3 +1,2 @@
-Disable-t-sharelite.t-Closes-625828.patch
 fix-checklib-fail.patch
 meta_duplicate_key.patch
diff --git a/debian/rules b/debian/rules
index 73c5dbc..b0d5ab5 100755
--- a/debian/rules
+++ b/debian/rules
@@ -2,5 +2,11 @@
 
 export DEB_BUILD_MAINT_OPTIONS = hardening=+bindnow
 
+SKIP_TESTS = $(shell cat debian/tests/pkg-perl/smoke-skip)
+TEST_FILES = $(filter-out $(SKIP_TESTS), $(wildcard t/*.t))
+
 %:
        dh $@
+
+override_dh_auto_test:
+       dh_auto_test -- TEST_FILES="$(TEST_FILES)"
diff --git a/debian/tests/pkg-perl/smoke-skip b/debian/tests/pkg-perl/smoke-skip
new file mode 100644
index 0000000..232cf4a
--- /dev/null
+++ b/debian/tests/pkg-perl/smoke-skip
@@ -0,0 +1 @@
+t/sharelite.t

-- 
Alioth's /usr/local/bin/git-commit-notice on 
/srv/git.debian.org/git/pkg-perl/packages/libipc-sharelite-perl.git

_______________________________________________
Pkg-perl-cvs-commits mailing list
Pkg-perl-cvs-commits@lists.alioth.debian.org
http://lists.alioth.debian.org/cgi-bin/mailman/listinfo/pkg-perl-cvs-commits

Reply via email to