From 3963439e518115e379a3726c9290c9f51f7b1c1b Mon Sep 17 00:00:00 2001
From: Csepp <raingloom@riseup.net>
Date: Sun, 6 Nov 2022 00:26:48 +0100
Subject: [PATCH] gnu: Disable failing test in earlyoom.

* gnu/packages/linux.scm (earlyoom)[arguments]: Disable failing test.
---
 gnu/packages/linux.scm | 9 +++++++--
 1 file changed, 7 insertions(+), 2 deletions(-)

diff --git a/gnu/packages/linux.scm b/gnu/packages/linux.scm
index cf11a7fc1b..4254cf54cd 100644
--- a/gnu/packages/linux.scm
+++ b/gnu/packages/linux.scm
@@ -66,6 +66,7 @@
 ;;; Copyright © 2022 muradm <mail@muradm.net>
 ;;; Copyright © 2022 Denis 'GNUtoo' Carikli <GNUtoo@cyberdimension.org>
 ;;; Copyright © 2022 Hunter Jozwiak <hunter.t.joz@gmail.com>
+;;; Copyright © 2022 Csepp <raingloom@riseup.net>
 
 ;;;
 ;;; This file is part of GNU Guix.
@@ -3829,10 +3830,14 @@ (define-public earlyoom
                (setenv "HOME" (getcwd))))
            (add-before 'check 'disable-failing-test
              (lambda _
-               ;; This test relies on writing to /proc/%d/oom_score_adj.
                (substitute* "testsuite_cli_test.go"
+                 ;; Relies on writing to /proc/%d/oom_score_adj.
                  (("TestI" match)
-                  (string-append "skipped" match))))))
+                  (string-append "skipped" match))
+                 ;; Relies on setting niceness to -20.
+                 (("^.*\"-p\".*$" match)
+                  ;; comment out the whole line
+                  (string-append "// skipped: " match))))))
        #:make-flags
        #~(list (string-append "CC=" #$(cc-for-target))
                (string-append "VERSION=v" #$version)
-- 
2.38.0