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
parent
commit
125af57e09
No known key found for this signature in database GPG Key ID: 90B11993D9AEBB5
  1. 7
      gnu/tests/base.scm

7
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

Loading…
Cancel
Save