From 3101fe4b8e666f88caa1c127efc5adcefc26741a Mon Sep 17 00:00:00 2001
From: Ricardo Wurmus <rekado@elephly.net>
Date: Thu, 6 Apr 2023 19:38:47 +0200
Subject: [PATCH] gnu: bctoolbox: Run tests conditionally.

* gnu/packages/linphone.scm (bctoolbox)[arguments]: Respect the TESTS? flag in
the custom 'check phase.
---
 gnu/packages/linphone.scm | 8 +++++---
 1 file changed, 5 insertions(+), 3 deletions(-)

diff --git a/gnu/packages/linphone.scm b/gnu/packages/linphone.scm
index 84bc16805c0a55144cf61447ea37057b0c0624e1..9b9c5fcd4b3fb149840fdfee43faadf17e7c5b0c 100644
--- a/gnu/packages/linphone.scm
+++ b/gnu/packages/linphone.scm
@@ -3,6 +3,7 @@
 ;;; Copyright © 2020, 2021 Raghav Gururajan <raghavgururajan@disroot.org>
 ;;; Copyright © 2020, 2021 Maxim Cournoyer <maxim.cournoyer@gmail.com>
 ;;; Copyright © 2020 Tobias Geerinckx-Rice <me@tobias.gr>
+;;; Copyright © 2023 Ricardo Wurmus <rekado@elephly.net>
 ;;;
 ;;; This file is part of GNU Guix.
 ;;;
@@ -176,9 +177,10 @@ writing, administering, and running unit tests in C.")
                (("if \\(file_exists\\(\"..\"\\)\\)")
                 "if (NULL)"))))
          (replace 'check
-           (lambda _
-             (with-directory-excursion "tester"
-               (invoke "./bctoolbox_tester")))))))
+           (lambda* (#:key tests? #:allow-other-keys)
+             (when tests?
+               (with-directory-excursion "tester"
+                 (invoke "./bctoolbox_tester"))))))))
     (inputs
      `(("bcunit" ,bcunit)
        ("decaf" ,libdecaf)