~ruther/guix-local

e7de5ac0d56dfc895d5a60d59f6307d6b966346a — Andreas Enge 12 years ago 49d294e
gnu: ffmpeg: Enable tests.

* gnu/packages/video.scm (ffmpeg): Add upstream patch and re-enable tests.
* gnu/packages/patches/ffmpeg-check.patch: New file.
* gnu-system.am (dist_patch_DATA): Register patch.
3 files changed, 21 insertions(+), 3 deletions(-)

M gnu-system.am
A gnu/packages/patches/ffmpeg-check.patch
M gnu/packages/video.scm
M gnu-system.am => gnu-system.am +1 -0
@@ 228,6 228,7 @@ dist_patch_DATA =						\
  gnu/packages/patches/dbus-localstatedir.patch			\
  gnu/packages/patches/diffutils-gets-undeclared.patch		\
  gnu/packages/patches/emacs-configure-sh.patch			\
  gnu/packages/patches/ffmpeg-check.patch			\
  gnu/packages/patches/findutils-absolute-paths.patch		\
  gnu/packages/patches/flac-fix-memcmp-not-declared.patch	\
  gnu/packages/patches/flex-bison-tests.patch			\

A gnu/packages/patches/ffmpeg-check.patch => gnu/packages/patches/ffmpeg-check.patch +15 -0
@@ 0,0 1,15 @@
See https://trac.ffmpeg.org/ticket/3177 .

diff --git a/libavcodec/cabac.c b/libavcodec/cabac.c
index 29b188b..dff0a91 100644
--- a/libavcodec/cabac.c
+++ b/libavcodec/cabac.c
@@ -301,7 +301,7 @@ STOP_TIMER("get_cabac_bypass")
 
     for(i=0; i<SIZE; i++){
 START_TIMER
-        if( (r[i]&1) != get_cabac(&c, state) )
+        if( (r[i]&1) != get_cabac_noinline(&c, state) )
             av_log(NULL, AV_LOG_ERROR, "CABAC failure at %d\n", i);
 STOP_TIMER("get_cabac")
     }

M gnu/packages/video.scm => gnu/packages/video.scm +5 -3
@@ 21,6 21,7 @@
  #:use-module (guix packages)
  #:use-module (guix download)
  #:use-module (guix build-system gnu)
  #:use-module (gnu packages)
  #:use-module (gnu packages algebra)
  #:use-module (gnu packages compression)
  #:use-module (gnu packages fontutils)


@@ 41,7 42,9 @@
                                 version ".tar.bz2"))
             (sha256
              (base32
               "1qnspbpwa6cflsb6mkm84ay4nfx60ism6d7lgvnasidck9dmxydy"))))
               "1qnspbpwa6cflsb6mkm84ay4nfx60ism6d7lgvnasidck9dmxydy"))
             ;; from upstream, drop with next release
             (patches (list (search-patch "ffmpeg-check.patch")))))
    (build-system gnu-build-system)
    (inputs
     `(("bc" ,bc)


@@ 57,8 60,7 @@
       ("yasm" ,yasm)
       ("zlib", zlib)))
    (arguments
     `(#:tests? #f ; see https://trac.ffmpeg.org/ticket/3177
       #:phases
     `(#:phases
         (alist-replace
          'configure
          ;; configure does not work followed by "SHELL=..." and