From 2ebebe3f6b883cda656ac27d15c368d56837ec97 Mon Sep 17 00:00:00 2001
From: Ricardo Wurmus <rekado@elephly.net>
Date: Fri, 22 Nov 2024 22:43:27 +0100
Subject: [PATCH] gnu: r-tdthap: Fix tests.

* gnu/packages/cran.scm (r-tdthap)[arguments]: Add phase 'compatibility.

Change-Id: Id4854b8b0403467819c1b4a589665f4ae1afddd4
---
 gnu/packages/cran.scm | 11 +++++++++++
 1 file changed, 11 insertions(+)

diff --git a/gnu/packages/cran.scm b/gnu/packages/cran.scm
index 4552d066437..03f195b6657 100644
--- a/gnu/packages/cran.scm
+++ b/gnu/packages/cran.scm
@@ -26751,6 +26751,17 @@ exact test for Hardy-Weinberg equilibrium.")
         (base32
          "05yj7jwwd0q2yk8gpp44fhh3sknvw3g6p9glj6z6rz46p9xf31kr"))))
     (build-system r-build-system)
+    (arguments
+     (list
+      #:phases
+      '(modify-phases %standard-phases
+         (add-after 'unpack 'compatibility
+           (lambda _
+             ;; ".path.package" is obsolete.
+             (substitute* "inst/tests/test.R"
+               (("# Read a pedfile" m)
+                (string-append "library(tdthap)\n" m))
+               (("\\.path.package") "path.package")))))))
     (home-page "https://cran.r-project.org/web/packages/tdthap/")
     (synopsis "TDT tests for extended haplotypes")
     (description