;;; GNU Guix --- Functional package management for GNU ;;; Copyright © 2020 Maxim Cournoyer ;;; ;;; This file is part of GNU Guix. ;;; ;;; GNU Guix is free software; you can redistribute it and/or modify it ;;; under the terms of the GNU General Public License as published by ;;; the Free Software Foundation; either version 3 of the License, or (at ;;; your option) any later version. ;;; ;;; GNU Guix is distributed in the hope that it will be useful, but ;;; WITHOUT ANY WARRANTY; without even the implied warranty of ;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the ;;; GNU General Public License for more details. ;;; ;;; You should have received a copy of the GNU General Public License ;;; along with GNU Guix. If not, see . (define-module (tests services linux) #:use-module (ice-9 match) #:use-module (gnu packages linux) #:use-module (gnu services linux) #:use-module (guix gexp) #:use-module (srfi srfi-64)) ;;; Tests for the (gnu services linux) module. (test-begin "linux-services") ;;; ;;; Early OOM daemon. ;;; (define earlyoom-configuration->command-line-args (@@ (gnu services linux) earlyoom-configuration->command-line-args)) (define %earlyoom-configuration-sample (earlyoom-configuration (minimum-available-memory 10) (minimum-free-swap 20) (prefer-regexp "icecat") (avoid-regexp "guix-daemon") (memory-report-interval 60) (ignore-positive-oom-score-adj? #f) (run-with-higher-priority? #t) (show-debug-messages? #f) (send-notification-command "python \"/some/path/notify-all-users.py\""))) (test-equal "earlyoom-configuration->command-line-args" (list (file-append earlyoom "/bin/earlyoom") "-m" "10" "-s" "20" "--prefer" "icecat" "--avoid" "guix-daemon" "-r" "60" "-p" "-N" "python \"/some/path/notify-all-users.py\"") (earlyoom-configuration->command-line-args %earlyoom-configuration-sample)) (test-end "linux-services") ut type='submit' value='search'/>