~ruther/guix-local: tests: basic: Don't hard-code the expected architecture name.

125af57e09a00d861d4e9bf73f36a08296218f8c — Ludovic Courtès 9 years ago f6d5456

tests: basic: Don't hard-code the expected architecture name.

* gnu/tests/base.scm (run-basic-test)["uname"]: Don't hard-code the
architecture.

patch browse .tar.gz

1 files changed, 4 insertions(+), 3 deletions(-)

M gnu/tests/base.scm

M gnu/tests/base.scm => gnu/tests/base.scm +4 -3

@@ 81,12 81,13 @@ properties of running system to what's declared in OS, an <operating-system>."
 
         (test-assert "uname"
           (match (marionette-eval '(uname) marionette)
-            (#("Linux" host-name version _ "x86_64")
+            (#("Linux" host-name version _ architecture)
              (and (string=? host-name
                             #$(operating-system-host-name os))
                   (string-prefix? #$(package-version
                                      (operating-system-kernel os))
-                                  version)))))
+                                  version)
+                  (string-prefix? architecture %host-type)))))
 
         (test-assert "shell and user commands"
           ;; Is everything in $PATH?


@@ 166,7 167,7 @@ info --version")
   (system-test
    (name "basic")
    (description
-    "Instrument %SIMPLE-OS, run it in a VM, and runs a series of basic
+    "Instrument %SIMPLE-OS, run it in a VM, and run a series of basic
 functionality tests.")
    (value
     (mlet* %store-monad ((os -> (marionette-operating-system