;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2022 Fredrik Salomonsson <plattfot@posteo.net>
;;;
;;; 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 <http://www.gnu.org/licenses/>.


(define-module (test build-emacs-utils)
  #:use-module (guix tests)
  #:use-module (guix build emacs-utils)
  #:use-module (guix build utils)
  #:use-module ((guix utils)
                #:select (call-with-temporary-directory))
  #:use-module (ice-9 regex)
  #:use-module (srfi srfi-34)
  #:use-module (srfi srfi-64))

(test-begin "build-emacs-utils")
;; Only run the following tests if emacs is present.
(test-skip (if (which "emacs") 0 5))

(test-equal "emacs-batch-script: print foo from emacs"
  "foo"
  (emacs-batch-script '(princ "foo")))

(test-assert "emacs-batch-script: raise &emacs-batch-error on failure"
  (guard (c ((emacs-batch-error? c)
             ;; The error message format changed between Emacs 27 and Emacs
             ;; 28.
             (string-match "[Ww]rong.*argument.*numberp.*\"three\""
                           (emacs-batch-error-message c))))
    (emacs-batch-script '(mapcar 'number-to-string (list 1 2 "three")))))

(call-with-temporary-directory
 (lambda (directory)
   (let ((mock-elisp-file (string-append directory "/foo.el")))
     (call-with-output-file mock-elisp-file
       (lambda (port)
         (display ";;; foo --- mock emacs package -*- lexical-binding: t -*-

;; Created: 4 Jun 2022
;; Keywords: lisp test
;; Version: 1.0.0
;;; Commentary:
;;; Code:
;;; foo.el ends here
"
                  port)))
     (test-equal "emacs-header-parse: fetch version"
       "1.0.0"
       (emacs-header-parse "version" mock-elisp-file))
     (test-equal "emacs-header-parse: fetch keywords"
       "lisp test"
       (emacs-header-parse "keywords" mock-elisp-file))
     (test-equal "emacs-header-parse: fetch nonexistent author"
       "nil"
       (emacs-header-parse "author" mock-elisp-file)))))

(test-end "build-emacs-utils")
ker.scm?id=a2255a5b783fe3a1a5b7b1284f394d5ff1589fe3&amp;showmsg=1'>Expand</a>)</th><th class='left'>Author</th></tr>
<tr><td><span title='2024-08-04 11:54:50 +0300'>2024-08-04</span></td><td><a href='/guix/commit/gnu/services/docker.scm?id=26638b8e8129aa755586d017677b4cf076bafda6'>services: containerd: Provision separately from docker service.</a><span class='msg-avail'>...</span></td><td>Oleg Pykhalov</td></tr>
<tr><td><span title='2024-07-05 15:12:34 +0800'>2024-07-05</span></td><td><a href='/guix/commit/gnu/services/docker.scm?id=5ee2799cabba4b2d462ac064a98789d7bca07923'>services: oci-container: Allow setting Shepherd actions in oci-container-conf...</a><span class='msg-avail'>...</span></td><td>Giacomo Leidi via Guix-patches via</td></tr>
<tr><td><span title='2024-07-05 15:12:34 +0800'>2024-07-05</span></td><td><a href='/guix/commit/gnu/services/docker.scm?id=cb57a3fd9f09f4158f1e2ff122ac855be422f374'>services: oci-container: Allow setting Shepherd respawn? in oci-container-con...</a><span class='msg-avail'>...</span></td><td>Giacomo Leidi via Guix-patches via</td></tr>
<tr><td><span title='2024-07-05 15:12:34 +0800'>2024-07-05</span></td><td><a href='/guix/commit/gnu/services/docker.scm?id=7d91bd453010da8941f32694706024645905ae37'>services: oci-container: Allow setting Shepherd auto-start? in oci-container-...</a><span class='msg-avail'>...</span></td><td>Giacomo Leidi via Guix-patches via</td></tr>
<tr><td><span title='2024-07-05 15:12:34 +0800'>2024-07-05</span></td><td><a href='/guix/commit/gnu/services/docker.scm?id=30ba86cb712e1012708d2bafad21d6b7266f0c6f'>services: oci-container: Allow setting Shepherd log-file in oci-container-con...</a><span class='msg-avail'>...</span></td><td>Giacomo Leidi via Guix-patches via</td></tr>
<tr><td><span title='2024-06-06 13:55:20 +0800'>2024-06-06</span></td><td><a href='/guix/commit/gnu/services/docker.scm?id=2b2337f275a6421a0d0964c54987df4ac74162e6'>services: oci-container: Fix provided image is string.</a><span class='msg-avail'>...</span></td><td>Zheng Junjie</td></tr>
<tr><td><span title='2024-05-25 15:34:53 +0200'>2024-05-25</span></td><td><a href='/guix/commit/gnu/services/docker.scm?id=c07731a777137b673725a4318411a3df6e221d29'>gnu: docker: Allow passing tarballs for images in oci-container-configuration.</a><span class='msg-avail'>...</span></td><td>Giacomo Leidi</td></tr>
<tr><td><span title='2024-05-25 15:34:47 +0200'>2024-05-25</span></td><td><a href='/guix/commit/gnu/services/docker.scm?id=68adfaea25a31247c1555f503839f928ba2e9a04'>gnu: docker: Allow setting Shepherd dependencies in oci-container-configuration.</a><span class='msg-avail'>...</span></td><td>Giacomo Leidi</td></tr>
<tr><td><span title='2024-05-25 15:34:43 +0200'>2024-05-25</span></td><td><a href='/guix/commit/gnu/services/docker.scm?id=e68c1af4f4cb2223b37c7bdcc925ca6ad551da24'>gnu: docker: Allow setting host environment variables in oci-container-config...</a><span class='msg-avail'>...</span></td><td>Giacomo Leidi</td></tr>
<tr><td><span title='2024-05-25 15:34:38 +0200'>2024-05-25</span></td><td><a href='/guix/commit/gnu/services/docker.scm?id=003c89a85ced239e2dac4f89cc52117e188e2810'>gnu: docker: Provide escape hatch in oci-container-configuration.</a><span class='msg-avail'>...</span></td><td>Giacomo Leidi</td></tr>
<tr><td><span title='2024-01-03 15:32:01 +0100'>2024-01-03</span></td><td><a href='/guix/commit/gnu/services/docker.scm?id=2f642b602398ab32b18faceecd074f49da92e95e'>services: docker: Add config-file option.</a><span class='msg-avail'>...</span></td><td>Connor Clark</td></tr>
<tr><td><span title='2023-12-10 22:23:29 +0100'>2023-12-10</span></td><td><a href='/guix/commit/gnu/services/docker.scm?id=be3b7f446787033db9405d0d0b821b73f462ed3a'>services: Fix oci-container-service-type container user.</a><span class='msg-avail'>...</span></td><td>Giacomo Leidi</td></tr>
<tr><td><span title='2023-11-23 12:56:42 +0100'>2023-11-23</span></td><td><a href='/guix/commit/gnu/services/docker.scm?id=267786721b64c11343d9f96fde21d79a07655bf3'>services: Add oci-container-service-type.</a><span class='msg-avail'>...</span></td><td>Giacomo Leidi</td></tr>
<tr><td><span title='2023-08-08 18:01:55 +0200'>2023-08-08</span></td><td><a href='/guix/commit/gnu/services/docker.scm?id=969cea683615e79c7e6548f945f15af80ad58a8a'>file-systems: Use cgroups v2.</a><span class='msg-avail'>...</span></td><td>Sam Lockart</td></tr>