r31150 - in /trunk/libgstreamer-interfaces-perl/debian: control patches/ patches/series patches/skip_alsamixer_tests.patch rules

[antonio-guest at users.alioth.debian.org]

Author: antonio-guest
Date: Fri Feb 27 22:00:50 2009
New Revision: 31150

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=31150
Log:
a patch to skip some tests if alsamixer is not readeable

Added:
    trunk/libgstreamer-interfaces-perl/debian/patches/
    trunk/libgstreamer-interfaces-perl/debian/patches/series
    trunk/libgstreamer-interfaces-perl/debian/patches/skip_alsamixer_tests.patch
Modified:
    trunk/libgstreamer-interfaces-perl/debian/control
    trunk/libgstreamer-interfaces-perl/debian/rules

Modified: trunk/libgstreamer-interfaces-perl/debian/control
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libgstreamer-interfaces-perl/debian/control?rev=31150&op=diff
==============================================================================
--- trunk/libgstreamer-interfaces-perl/debian/control (original)
+++ trunk/libgstreamer-interfaces-perl/debian/control Fri Feb 27 22:00:50 2009
@@ -1,7 +1,7 @@
 Source: libgstreamer-interfaces-perl
 Section: perl
 Priority: optional
-Build-Depends: debhelper (>= 7), libgstreamer-plugins-base0.10-dev,
+Build-Depends: debhelper (>= 7), quilt, libgstreamer-plugins-base0.10-dev,
  gstreamer0.10-alsa, alsa-utils, gstreamer0.10-plugins-base, libgstreamer0.10-dev,
  libextutils-depends-perl (>= 0.205), libextutils-pkgconfig-perl (>= 1.07), 
  libglib-perl (>= 1.180), libgstreamer-perl (>= 0.06), perl (>= 5.6.0-12)

Added: trunk/libgstreamer-interfaces-perl/debian/patches/series
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libgstreamer-interfaces-perl/debian/patches/series?rev=31150&op=file
==============================================================================
--- trunk/libgstreamer-interfaces-perl/debian/patches/series (added)
+++ trunk/libgstreamer-interfaces-perl/debian/patches/series Fri Feb 27 22:00:50 2009
@@ -1,0 +1,1 @@
+skip_alsamixer_tests.patch

Added: trunk/libgstreamer-interfaces-perl/debian/patches/skip_alsamixer_tests.patch
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libgstreamer-interfaces-perl/debian/patches/skip_alsamixer_tests.patch?rev=31150&op=file
==============================================================================
--- trunk/libgstreamer-interfaces-perl/debian/patches/skip_alsamixer_tests.patch (added)
+++ trunk/libgstreamer-interfaces-perl/debian/patches/skip_alsamixer_tests.patch Fri Feb 27 22:00:50 2009
@@ -1,0 +1,41 @@
+/dev/alsamixer is not accessible from {cow,p}builder
+
+Index: libgstreamer-interfaces-perl/t/GstPropertyProbe.t
+===================================================================
+--- libgstreamer-interfaces-perl.orig/t/GstPropertyProbe.t	2009-02-27 21:51:44.000000000 +0000
++++ libgstreamer-interfaces-perl/t/GstPropertyProbe.t	2009-02-27 21:53:43.000000000 +0000
+@@ -9,6 +9,14 @@
+ use GStreamer -init;
+ use GStreamer::Interfaces;
+ 
++# if there is no r/w access to /dev/alsamixer we need to skip some tests
++my $alsamixer_rwaccess;
++if ( open ("r+", "/dev/alsamixer") ) {
++        $alsamixer_rwaccess = 1;
++} else {
++        $alsamixer_rwaccess = 0;
++}
++
+ my $plugin = "alsamixer";
+ my $property = "device";
+ 
+@@ -24,11 +32,15 @@
+ is($element -> needs_probe($pspec), TRUE);
+ $element -> probe_property($pspec);
+ 
+-ok($element -> get_probe_values($pspec));
+-ok($element -> probe_and_get_probe_values($pspec));
++if ( $alsamixer_rwaccess ) {
++        ok($element -> get_probe_values($pspec));
++        ok($element -> probe_and_get_probe_values($pspec));
++}
+ 
+ ok(defined $element -> needs_probe_name($property));
+ $element -> probe_property_name($property);
+ 
+-ok($element -> get_probe_values_name($property));
+-ok($element -> probe_and_get_probe_values_name($property));
++if ( $alsamixer_rwaccess ) {
++        ok($element -> get_probe_values_name($property));
++        ok($element -> probe_and_get_probe_values_name($property));
++}

Modified: trunk/libgstreamer-interfaces-perl/debian/rules
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libgstreamer-interfaces-perl/debian/rules?rev=31150&op=diff
==============================================================================
--- trunk/libgstreamer-interfaces-perl/debian/rules (original)
+++ trunk/libgstreamer-interfaces-perl/debian/rules Fri Feb 27 22:00:50 2009
@@ -1,11 +1,13 @@
 #!/usr/bin/make -f
 
+include /usr/share/quilt/quilt.make
+
 build: build-stamp
-build-stamp:
+build-stamp: $(QUILT_STAMPFN)
 	dh build
 	touch $@
 
-clean:
+clean: unpatch
 	dh $@
 
 install: install-stamp