From 457e528eb910225d55b08f200fabe29c1eebbb52 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= <ludo@gnu.org>
Date: Thu, 16 Apr 2015 10:54:07 +0200
Subject: [PATCH] gnu: ffmpeg: Allow tests to run from the build tree.

* gnu/packages/video.scm (ffmpeg)[arguments]: Add 'set-ld-library-path'
  phase.
---
 gnu/packages/video.scm | 10 ++++++++++
 1 file changed, 10 insertions(+)

diff --git a/gnu/packages/video.scm b/gnu/packages/video.scm
index 693a8251f8..114ad7e61b 100644
--- a/gnu/packages/video.scm
+++ b/gnu/packages/video.scm
@@ -411,6 +411,16 @@ standards (MPEG-2, MPEG-4 ASP/H.263, MPEG-4 AVC/H.264, and VC-1/VMW3).")
                       "--disable-mipsdspr1"
                       "--disable-mipsdspr2"
                       "--disable-mipsfpu")))))
+         (add-before
+          'check 'set-ld-library-path
+          (lambda _
+            ;; Allow $(top_builddir)/ffmpeg to find its dependencies when
+            ;; running tests.
+            (let* ((dso  (find-files "." "\\.so$"))
+                   (path (string-join (map dirname dso) ":")))
+              (format #t "setting LD_LIBRARY_PATH to ~s~%" path)
+              (setenv "LD_LIBRARY_PATH" path)
+              #t)))
          (add-after
           'strip 'add-lib-to-runpath
           (lambda* (#:key outputs #:allow-other-keys)