From 125af57e09a00d861d4e9bf73f36a08296218f8c Mon Sep 17 00:00:00 2001 From: Ludovic Courtès Date: Thu, 23 Jun 2016 00:49:04 +0200 Subject: tests: basic: Don't hard-code the expected architecture name. * gnu/tests/base.scm (run-basic-test)["uname"]: Don't hard-code the architecture. --- gnu/tests/base.scm | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) (limited to 'gnu/tests/base.scm') diff --git a/gnu/tests/base.scm b/gnu/tests/base.scm index 8b1fefe9f8..4fe779802b 100644 --- a/gnu/tests/base.scm +++ b/gnu/tests/base.scm @@ -81,12 +81,13 @@ properties of running system to what's declared in OS, an ." (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 -- cgit 1.4.1