diff options
author | V3n3RiX <venerix@redcorelinux.org> | 2017-10-13 21:03:07 +0100 |
---|---|---|
committer | V3n3RiX <venerix@redcorelinux.org> | 2017-10-13 21:03:07 +0100 |
commit | 8fbd420dce8836e6503b162092e07b6a77a89f1d (patch) | |
tree | 071c621ef44d7c1b24a430ac7671d68963b5a4cf /dev-perl/Audio-Mixer | |
parent | 12d78242dec4f785d0a0bfb1c00eee2d8996c53b (diff) |
gentoo resync : 13.10.2017
Diffstat (limited to 'dev-perl/Audio-Mixer')
5 files changed, 238 insertions, 0 deletions
diff --git a/dev-perl/Audio-Mixer/Audio-Mixer-0.700.0-r2.ebuild b/dev-perl/Audio-Mixer/Audio-Mixer-0.700.0-r2.ebuild new file mode 100644 index 000000000000..9325b9aecf0f --- /dev/null +++ b/dev-perl/Audio-Mixer/Audio-Mixer-0.700.0-r2.ebuild @@ -0,0 +1,50 @@ +# Copyright 1999-2017 Gentoo Foundation +# Distributed under the terms of the GNU General Public License v2 + +EAPI=6 + +DIST_AUTHOR=SERGEY +DIST_VERSION=0.7 +DIST_EXAMPLES=("eg/*") +inherit perl-module + +DESCRIPTION="Perl extension for Sound Mixer control" + +SLOT="0" +KEYWORDS="~amd64 ~ia64 ~ppc ~sparc ~x86" +IUSE="" + +PATCHES=( + "${FILESDIR}/${P}-volumepl.patch" + "${FILESDIR}/${P}-clang.patch" + "${FILESDIR}/${P}-testsuite.patch" +) + +src_test() { + local MODULES=( + "Audio::Mixer ${DIST_VERSION}" + ) + local failed=() + for dep in "${MODULES[@]}"; do + ebegin "Compile testing ${dep}" + perl -Mblib="${S}" -M"${dep} ()" -e1 + eend $? || failed+=( "$dep" ) + done + if [[ ${failed[@]} ]]; then + echo + eerror "One or more modules failed compile:"; + for dep in "${failed[@]}"; do + eerror " ${dep}" + done + die "Failing due to module compilation errors"; + fi + if [[ "${AUDIO_MIXER_HW_TEST:-0}" == 0 ]]; then + ewarn "Comprehensive testing of this module needs hardware access to mixing" + ewarn "devices. Set AUDIO_MIXER_HW_TEST=1 in your environment if you want full" + ewarn "coverage" + ewarn "For details, see:" + ewarn "https://wiki.gentoo.org/wiki/Project:Perl/maint-notes/dev-perl/Audio-Mixer" + else + perl-module_src_test + fi +} diff --git a/dev-perl/Audio-Mixer/Manifest b/dev-perl/Audio-Mixer/Manifest index f3fbc6e6dc8c..1ed0c97008ac 100644 --- a/dev-perl/Audio-Mixer/Manifest +++ b/dev-perl/Audio-Mixer/Manifest @@ -1,5 +1,9 @@ +AUX Audio-Mixer-0.700.0-clang.patch 646 SHA256 0ef2cf7170df9c6698a96c897b6b2a0be076a5e24439199d3cf6ab1bd546436b SHA512 605f4b76583677fee3910a8b30291773ae76ca378a73282cf1a465e388221b1a1c9791bad0a6185f02786f6b8b57b834e51247067918c46dbf5fd0b931c7c57d WHIRLPOOL 3b9cdb601c74b6b43b3bfd4b071924f54bf60e1f1d7860f7bb68fefea83e34ee6dc1c74d0c27e48ff83eba07dfc3f8c17e3f608a7a36e3863d5a04e7d98c1066 +AUX Audio-Mixer-0.700.0-testsuite.patch 3550 SHA256 4de146a7819c3d3c4b64f0ef78930d05884487fbed98c9c8c0fdb82b9c0d1b37 SHA512 79d83bec47bfc2f39064c49c6f16a1846fb7f147c450f8e719ca4687bc27299e9272cc9b4aabb666a938dbc863034da5a09b39983cc71ae8380f76c1d75ee3c9 WHIRLPOOL ee502d51f7df842bcff5f3f7c7f731f562eeb1fa8e3f6216cc1ac9213749c28932e59c0299c9d359114cdf987bc3d965081977a9118398636058c768ee77e523 +AUX Audio-Mixer-0.700.0-volumepl.patch 840 SHA256 25436238c619483c75ca9244ddde689e070ebf36aec0944c92f6afc18a85a0ad SHA512 74ca5e1d053dce6f3c5220c6f1c67dc5180a7ab70cbd5f09c0cce1a5338281dac7f97db24814579e2831c92203262d7c85e2a5a66b0847a795d9768445b5634c WHIRLPOOL 959e4c40615bad896798469b41ed042fa1ab0a1377669fcc2d865809a3eba506e1cd18e906bbe04a9f974f70c4081198312ce213a786ac81d5ca9b2999f323af DIST Audio-Mixer-0.7.tar.gz 6709 SHA256 fa7e2fbb3242744b34f150e86006697ec96c68eb0a406969557032610787aae8 SHA512 a2adacf34c4bfbe4e436cf399a8585689f680f90a362931fd09e0f62f08e2ab59615361daae3a65c4fbf00946196e1dbc0207a7973c3c5a875f73f673f167568 WHIRLPOOL ee240c83f9d697a97b5b5225cb4aecb4c614f6cce88909a0c65df99092f5e3069a6f78fdb1155f585f5ac57c5dea18eeb7ff755af3626e24046d58291f60b20d EBUILD Audio-Mixer-0.700.0-r1.ebuild 393 SHA256 89095038d93877ca1e2a127be9290766bbb2666eaa74b23c6bde01a0b7d7ccb7 SHA512 f0abf851b66e46b3cfd859b7f6dc0f53b1968ae39c86957c02de5b1c26585a0c9400e1fe48724cd5a3e060fdb1b120a954553e030d0b905bda3253663ae27137 WHIRLPOOL 230b4ef08b2380d4e354e26aecf3d25c2df70c8a80607c69306d4777cda963785dd5c051c25a65d0ce04ff281dc33bac69547d6d8e3ea2ec61bb7cfa0cf5f81d +EBUILD Audio-Mixer-0.700.0-r2.ebuild 1227 SHA256 da3f60276a75bc00beb2ed11f2c3abdc209aec26f5503c385dd3bde090713349 SHA512 a43b3cfe007cc8e98cceb17bf33d4dc668ec7cfa15294424f52240f0d79c5137fce6cdda867359b3a7e161c1dbc15451f8f0d07bcb0433e980345c423f366c4d WHIRLPOOL 4d7f4e529a041e8fb280a66af719c73c5d1b66819e08c3de573d1ab8813680c18ab2e20197cbf28662e489b54d1c0e551ed90f2ab8eac1a14b3e345f57f70381 MISC ChangeLog 2449 SHA256 8d582a25cb14f5037c566ff12e07c9ada1fb2b8343e7ac9a7b1aa4955e54b193 SHA512 18b85c750ebf08e6d63818d503b463eed1b71614a94ccd9b8acca927eb9ab1b0a1a2ffe4f154ad7de10c466bbc7acbb92a71dd90b0b161a0b5aa38d4b8ee282c WHIRLPOOL e9af1513d7b9c73288f997ddd9a019b006737943bd13b6b44d2375a067d059bbed3648f5c2a3c0ee089f7b96fc55dd5b42d9606a440f0e3a8efddb767da01338 MISC ChangeLog-2015 2085 SHA256 e2e4a647d6f162703627b3ed8fb8668633029c7d5224643b1f7db957a69ea8cc SHA512 45e1dcee504fc57998cc7ce749eb44a4ce557f60ab8ea481473126813fcbe37def65ff1624a7a6b6cbdbd47cf4f57d3c5c697596a7626bde81d1c14231542cf3 WHIRLPOOL 7d59b873c397dc960f809612b3f1576738b472f28834b983ce756b3893fcdc5ef15ad8227286c50d7e32a805cac12b153dd75966d087651334fa3dbac5cf80fd MISC metadata.xml 394 SHA256 8307581eeba08fb1f7f2c0951bbe241764c7e17e19c76d4b25551943e467f521 SHA512 14fe7ac889669e2908f310cb8364c41406c75f733c6c63fd7379af09be87670be642454adb87bd190064dd4aee4459d6d1c4e9aac376b33ae24b4e186c392745 WHIRLPOOL 2951e6f245b02a9e9faedd9292c65fa2d395ec36d085f74df796934fda9cc7474e4abd7ba2224dd27245d2f004063d02cb9fc34e60ddb19d7c866fbd1590d5ae diff --git a/dev-perl/Audio-Mixer/files/Audio-Mixer-0.700.0-clang.patch b/dev-perl/Audio-Mixer/files/Audio-Mixer-0.700.0-clang.patch new file mode 100644 index 000000000000..b7beac56f9a8 --- /dev/null +++ b/dev-perl/Audio-Mixer/files/Audio-Mixer-0.700.0-clang.patch @@ -0,0 +1,27 @@ +From 6390829e5e60019b464d1fe83fb448ea54604170 Mon Sep 17 00:00:00 2001 +From: gregor herrmann <gregoa@debian.org> +Date: Wed, 26 Mar 2014 05:44:25 +1300 +Subject: Fix building with clang + +Bug: https://rt.cpan.org/Ticket/Display.html?id=94186 +Bug: https://bugs.debian.org/742537 +--- + Mix.c | 2 +- + 1 file changed, 1 insertion(+), 1 deletion(-) + +diff --git a/Mix.c b/Mix.c +index 108153e..8b4284b 100644 +--- a/Mix.c ++++ b/Mix.c +@@ -78,7 +78,7 @@ close_mixer() { + #ifdef DEBUG + fprintf(stderr, "close_mixer()\n"); + #endif +- if (mixer_fd < 0) return; ++ if (mixer_fd < 0) return(0); + close(mixer_fd); + init_flag = 0; + mixer_fd = -1; +-- +2.14.2 + diff --git a/dev-perl/Audio-Mixer/files/Audio-Mixer-0.700.0-testsuite.patch b/dev-perl/Audio-Mixer/files/Audio-Mixer-0.700.0-testsuite.patch new file mode 100644 index 000000000000..c984c7190fca --- /dev/null +++ b/dev-perl/Audio-Mixer/files/Audio-Mixer-0.700.0-testsuite.patch @@ -0,0 +1,124 @@ +From a3117d0b6a9e79f11e69362c42205bc548f6c754 Mon Sep 17 00:00:00 2001 +From: Kent Fredric <kentnl@gentoo.org> +Date: Fri, 13 Oct 2017 09:43:01 +1300 +Subject: Rework test suite to be useful + +Bug: https://rt.cpan.org/Ticket/Display.html?id=31547 +--- + MANIFEST | 2 +- + t/basic.t | 23 +++++++++++++++++++++++ + test.pl | 60 ------------------------------------------------------------ + 3 files changed, 24 insertions(+), 61 deletions(-) + create mode 100644 t/basic.t + delete mode 100644 test.pl + +diff --git a/MANIFEST b/MANIFEST +index d15c4ab..b713e9a 100644 +--- a/MANIFEST ++++ b/MANIFEST +@@ -5,6 +5,6 @@ Mix.c + Mix.h + Mixer.pm + Mixer.xs +-test.pl ++t/basic.t + eg/volume.pl + README +diff --git a/t/basic.t b/t/basic.t +new file mode 100644 +index 0000000..53448d2 +--- /dev/null ++++ b/t/basic.t +@@ -0,0 +1,23 @@ ++use strict; ++use warnings; ++ ++use Test::More tests => 7; ++ ++require_ok("Audio::Mixer"); ++ ++is( Audio::Mixer::init_mixer(), 0, "Initialize Mixer" ); ++ ++my ( @old ) = Audio::Mixer::get_cval('vol'); ++cmp_ok( scalar @old, ">", 0 , "Got existing volume levels"); ++ ++Audio::Mixer::set_cval('vol', 50); ++my ( @new ) = Audio::Mixer::get_cval('vol'); ++is( $new[0], 50, "Set left channel to 50"); ++is( $new[1], 50, "Set right channel to 50"); ++ ++Audio::Mixer::set_cval('vol', $old[0], $old[1]); ++my ( @final ) = Audio::Mixer::get_cval('vol'); ++is( $final[0], $old[0], "Restored left channel"); ++is( $final[1], $old[1], "Restored right channel"); ++ ++done_testing; +diff --git a/test.pl b/test.pl +deleted file mode 100644 +index af1f214..0000000 +--- a/test.pl ++++ /dev/null +@@ -1,60 +0,0 @@ +-# Before `make install' is performed this script should be runnable with +-# `make test'. After `make install' it should work as `perl test.pl' +- +-######################### We start with some black magic to print on failure. +- +-# Change 1..1 below to 1..last_test_to_print . +-# (It may become useful if the test is moved to ./t subdirectory.) +- +-BEGIN { $| = 1; print "1..1\n"; } +-END {print "not ok 1\n" unless $loaded;} +-use Audio::Mixer; +-$loaded = 1; +-print "ok 1\n"; +- +-######################### End of black magic. +- +-# Insert your test code below (better if it prints "ok 13" +-# (correspondingly "not ok 13") depending on the success of chunk 13 +-# of the test code): +- +-print STDERR "Opening mixer... "; +-$ret = Audio::Mixer::init_mixer(); +-print STDERR $ret ? "FAILED.\n" : "Ok.\n"; +- +-print STDERR "Getting the volume... "; +-my @old = Audio::Mixer::get_cval('vol'); +-print STDERR join(', ', @old)." Ok.\nSetting to 50... "; +-Audio::Mixer::set_cval('vol', 50); +-my @ret = Audio::Mixer::get_cval('vol'); +-print STDERR ($ret[0] == 50 && $ret[1] == 50) ? "Ok.\nResetting back... " : +- "FAILED.\nTrying to reset back... "; +-Audio::Mixer::set_cval('vol', $old[0], $old[1]); +-@ret = Audio::Mixer::get_cval('vol'); +-print STDERR ($ret[0] == $old[0] && $ret[1] == $old[1]) ? +- "Ok.\n" : "FAILED.\n"; +- +-#my $ret = Mixer::get_cval('vol'); +-#printf "get_cval() vol=0x%x\n", $ret; +- +-#$ret = Mixer::set_cval('vol', 50); +-#print "set_cval returns $ret\n"; +- +-#@ret = Mixer::get_cval('vol'); +-#print "get_cval() vol=".join(', ', @ret)."\n"; +-#$ret = Mixer::get_cval('vol'); +-#printf "get_cval() vol=0x%x\n", $ret; +- +- +-#$ret = Mixer::get_param_val('vol'); +-#printf "get_param_val() vol=0x%x\n", $ret; +- +-#$ret = Mixer::set_param_val('vol', 20, 50); +-#print "set_param_val returns $ret\n"; +- +-#$ret = Mixer::get_param_val('vol'); +-#printf "get_param_val() vol=0x%x\n", $ret; +- +-#@ret = Mixer::get_mixer_params(); +-#print "== ".join(',', @ret)." ==\n"; +- +-- +2.14.2 + diff --git a/dev-perl/Audio-Mixer/files/Audio-Mixer-0.700.0-volumepl.patch b/dev-perl/Audio-Mixer/files/Audio-Mixer-0.700.0-volumepl.patch new file mode 100644 index 000000000000..577c64c8cc36 --- /dev/null +++ b/dev-perl/Audio-Mixer/files/Audio-Mixer-0.700.0-volumepl.patch @@ -0,0 +1,33 @@ +From 695556cfe22cdcec13f2dc206abcc425f7168519 Mon Sep 17 00:00:00 2001 +From: Kent Fredric <kentnl@gentoo.org> +Date: Fri, 13 Oct 2017 08:41:59 +1300 +Subject: Prevent volume.pl being installed to @INC + +$DISTROOT/*.pl get installed as Audio/*.pl, due to the historical use +use of ".pl" to indicate "perl library" in Perl 4 and older. + +Bug: https://rt.cpan.org/Ticket/Display.html?id=123258 +--- + MANIFEST | 2 +- + volume.pl => eg/volume.pl | 0 + 2 files changed, 1 insertion(+), 1 deletion(-) + rename volume.pl => eg/volume.pl (100%) + +diff --git a/MANIFEST b/MANIFEST +index 627c3fe..d15c4ab 100644 +--- a/MANIFEST ++++ b/MANIFEST +@@ -6,5 +6,5 @@ Mix.h + Mixer.pm + Mixer.xs + test.pl +-volume.pl ++eg/volume.pl + README +diff --git a/volume.pl b/eg/volume.pl +similarity index 100% +rename from volume.pl +rename to eg/volume.pl +-- +2.14.2 + |