06/06: tests: Add tests for "guix system disk-image" et al.

[Chris Marusich]

marusich pushed a commit to branch master
in repository guix.

commit 8e88f6fa8236a1fe66912957ecacae348355ec15
Author: Chris Marusich <address@hidden>
Date:   Thu Mar 15 05:09:15 2018 +0100

    tests: Add tests for "guix system disk-image" et al.
    
    * tests/guix-system.sh: Add test cases that exercise (1) all of the
      example files in gnu/system/examples, and (2) all of the "image"
      creation commands: vm, vm-image, disk-image, and docker-image.
---
 tests/guix-system.sh | 17 +++++++++++++++++
 1 file changed, 17 insertions(+)

diff --git a/tests/guix-system.sh b/tests/guix-system.sh
index ed8563c..211c26f 100644
--- a/tests/guix-system.sh
+++ b/tests/guix-system.sh
@@ -1,6 +1,7 @@
 # GNU Guix --- Functional package management for GNU
 # Copyright © 2014, 2015, 2016, 2017 Ludovic Courtès <address@hidden>
 # Copyright © 2017 Tobias Geerinckx-Rice <address@hidden>
+# Copyright © 2018 Chris Marusich <address@hidden>
 #
 # This file is part of GNU Guix.
 #
@@ -267,3 +268,19 @@ guix system build "$tmpdir/config.scm" -n
 # Searching.
 guix system search tor | grep "^name: tor"
 guix system search anonym network | grep "^name: tor"
+
+# Below, use -n (--dry-run) for the tests because if we actually tried to
+# build these images, the commands would take hours to run in the worst case.
+
+# Verify that the examples can be built.
+for example in gnu/system/examples/*; do
+    guix system -n disk-image $example
+done
+
+# Verify that the disk image types can be built.
+guix system -n vm gnu/system/examples/vm-image.tmpl
+guix system -n vm-image gnu/system/examples/vm-image.tmpl
+# This invocation was taken care of in the loop above:
+# guix system -n disk-image gnu/system/examples/bare-bones.tmpl
+guix system -n disk-image --file-system-type=iso9660 
gnu/system/examples/bare-bones.tmpl
+guix system -n docker-image gnu/system/examples/docker-image.tmpl