Browse Source
tests: basic: Don't hard-code the expected architecture name.
* gnu/tests/base.scm (run-basic-test)["uname"]: Don't hard-code the
architecture.
version-0.11.0
Ludovic Courtès
6 years ago
No known key found for this signature in database
GPG Key ID: 90B11993D9AEBB5
1 changed files with
4 additions and
3 deletions
-
gnu/tests/base.scm
|
|
|
@ -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 |
|
|
|
|
