1 ;;; GNU Guix --- Functional package management for GNU
2 ;;; Copyright © 2016 Ludovic Courtès <ludo@gnu.org>
4 ;;; This file is part of GNU Guix.
6 ;;; GNU Guix is free software; you can redistribute it and/or modify it
7 ;;; under the terms of the GNU General Public License as published by
8 ;;; the Free Software Foundation; either version 3 of the License, or (at
9 ;;; your option) any later version.
11 ;;; GNU Guix is distributed in the hope that it will be useful, but
12 ;;; WITHOUT ANY WARRANTY; without even the implied warranty of
13 ;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
14 ;;; GNU General Public License for more details.
16 ;;; You should have received a copy of the GNU General Public License
17 ;;; along with GNU Guix. If not, see <http://www.gnu.org/licenses/>.
19 (define-module (test-system)
21 #:use-module (guix store)
22 #:use-module (srfi srfi-1)
23 #:use-module (srfi srfi-64))
25 ;; Test the (gnu system) module.
36 (host-name "komputilo")
37 (timezone "Europe/Berlin")
39 (bootloader (grub-configuration (device "/dev/sdX")))
40 (file-systems (cons %root-fs %base-file-systems))
42 (users %base-user-accounts)))
46 (test-assert "operating-system-store-file-system"
47 ;; %BASE-FILE-SYSTEMS defines a bind-mount for /gnu/store, but this
48 ;; shouldn't be a problem.
50 (operating-system-store-file-system %os)))
52 (test-assert "operating-system-store-file-system, prefix"
53 (let* ((gnu (file-system
55 (mount-point (dirname (%store-prefix)))
59 (file-systems (cons* gnu %root-fs
60 %base-file-systems)))))
61 (eq? gnu (operating-system-store-file-system os))))
63 (test-assert "operating-system-store-file-system, store"
64 (let* ((gnu (file-system
66 (mount-point (%store-prefix))
70 (file-systems (cons* gnu %root-fs
71 %base-file-systems)))))
72 (eq? gnu (operating-system-store-file-system os))))
77 (exit (= (test-runner-fail-count (test-runner-current)) 0))