guix-commits
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

13/16: tests: Check 'guix home reconfigure' for a second generation.


From: guix-commits
Subject: 13/16: tests: Check 'guix home reconfigure' for a second generation.
Date: Thu, 10 Mar 2022 05:43:55 -0500 (EST)

civodul pushed a commit to branch master
in repository guix.

commit 5fabaf112858c5c5e8787e83f8f2002fdc710917
Author: Ludovic Court├Ęs <ludo@gnu.org>
AuthorDate: Fri Feb 18 23:07:21 2022 +0100

    tests: Check 'guix home reconfigure' for a second generation.
    
    * tests/guix-home.sh: Invoke "guix home reconfigure" a second time with
    a modify config file and check the result.
---
 tests/guix-home.sh | 23 +++++++++++++++++++++++
 1 file changed, 23 insertions(+)

diff --git a/tests/guix-home.sh b/tests/guix-home.sh
index 3b397649cc..f054d15172 100644
--- a/tests/guix-home.sh
+++ b/tests/guix-home.sh
@@ -108,6 +108,7 @@ EOF
     # Make sure preexisting files were backed up.
     grep "overridden" "$HOME"/*guix-home*backup/.bashrc
     grep "overridden" "$HOME"/*guix-home*backup/.config/test.conf
+    rm -r "$HOME"/*guix-home*backup
 
     #
     # Test 'guix home describe'.
@@ -131,6 +132,28 @@ EOF
     }
     test "$(canonical_file_name)" == "$(readlink "${HOME}/.guix-home")"
 
+    #
+    # Configure a new generation.
+    #
+
+    # Change the bashrc snippet content and comment out one service.
+    sed -i "home.scm" -e's/the content of/the NEW content of/g'
+    sed -i "home.scm" -e"s/(simple-service 'test-config/#;(simple-service 
'test-config/g"
+
+    guix home reconfigure "${test_directory}/home.scm"
+    test "$(tail -n 2 "${HOME}/.bashrc")" == "\
+# dot-bashrc test file for guix home
+# the NEW content of bashrc-test-config.sh"
+
+    # This file must have been removed and not backed up.
+    ! test -e "$HOME/.config/test.conf"
+    ! test -e "$HOME"/*guix-home*backup/.config/test.conf
+
+    test "$(cat "$(configuration_file)")" == "$(cat home.scm)"
+    test "$(canonical_file_name)" == "$(readlink "${HOME}/.guix-home")"
+
+    test $(guix home list-generations | grep "^Generation" | wc -l) -eq 2
+
     #
     # Test 'guix home search'.
     #



reply via email to

[Prev in Thread] Current Thread [Next in Thread]