The test case below relies on /etc/groups and similar info that is not available in chroot builds, so skip it. --- scheme48-1.9/scheme/posix/check.scm 2013-05-11 21:55:36.000000000 +0200 +++ scheme48-1.9/scheme/posix/check.scm 2013-05-11 21:55:40.000000000 +0200 @@ -229,29 +229,7 @@ ; This assumes that we are not running as root and that / is owned by root. -(define-test-case users&groups posix-core-tests - (let ((my-info (get-file-info directory-name)) - (root-info (get-file-info "/"))) - (let ((my-user (user-id->user-info (file-info-owner my-info))) - (root-user (user-id->user-info (file-info-owner root-info))) - (my-group (group-id->group-info (file-info-group my-info))) - (root-group (group-id->group-info (file-info-group root-info)))) - (let ((my-other-user (name->user-info (user-info-name my-user))) - (my-other-group (name->group-info (group-info-name my-group)))) - (check-that (file-info-owner my-info) - (is user-id=? (user-info-id my-user))) - (check-that (file-info-owner root-info) - (opposite (is user-id=? (user-info-id my-user)))) - (check-that (file-info-group my-info) - (is group-id=? (group-info-id my-group))) - ;; doesn't work reliably - ;; (specifically, if the user is member of wheel) - ;; (check (not (group-id=? (file-info-group root-info) - ;; (group-info-id my-group)))) - (check-that (os-string->string (user-info-name root-user)) - (member-of '("root" - "bin" ; AIX - ))))))) + (define-test-case environment posix-core-tests (let ((env (reverse (environment-alist)))) put type='hidden' name='id' value='33133a6ed32752b2ad2b974f7d63d9302c476a7f'/>
path: root/gnu/tests.scm
AgeCommit message (Expand)Author
2021-08-29Migrate to the new 'targets' field of bootloader-configuration....The old 'target' field is deprecated; adjust the sources to use the new 'targets' one instead. * doc/guix-cookbook.texi<target>: Replace by 'targets'. * gnu/bootloader/grub.scm: Likewise. * gnu/installer/parted.scm: Likewise. * gnu/machine/digital-ocean.scm: Likewise. * gnu/system/examples/asus-c201.tmpl: Likewise * gnu/system/examples/bare-bones.tmpl: Likewise * gnu/system/examples/bare-hurd.tmpl: Likewise * gnu/system/examples/beaglebone-black.tmpl: Likewise * gnu/system/examples/desktop.tmpl: Likewise * gnu/system/examples/docker-image.tmpl: Likewise * gnu/system/examples/lightweight-desktop.tmpl: Likewise * gnu/system/examples/vm-image.tmpl: Likewise * gnu/system/examples/yggdrasil.tmpl: Likewise * gnu/system/hurd.scm: Likewise * gnu/system/images/hurd.scm: Likewise * gnu/system/images/novena.scm: Likewise * gnu/system/images/pine64.scm: Likewise * gnu/system/images/pinebook-pro.scm: Likewise * gnu/system/images/rock64.scm: Likewise * gnu/system/install.scm: Likewise * gnu/system/vm.scm: Likewise * gnu/tests.scm: Likewise * gnu/tests/ganeti.scm: Likewise * gnu/tests/install.scm: Likewise * gnu/tests/nfs.scm: Likewise * gnu/tests/telephony.scm: Likewise * tests/boot-parameters.scm: Likewise * tests/system.scm: Likewise Maxim Cournoyer
2021-04-12tests: Support package extensions in the backdoor REPL....* gnu/tests.scm (<marionette-configuration>): Add 'extensions' field. (marionette-shepherd-service): Honour the field. (with-import-modules-and-extensions): Define a combination of 'with-import-modules' and 'with-extensions'. Signed-off-by: Ludovic Courtès <ludo@gnu.org> Maxime Devos
2021-02-19tests: Export %simple-os....* gnu/tests.scm (%simple-os): Export it. Mathieu Othacehe
2020-07-25utils: Move <location> and '&error-location' to (guix diagnostics)....* guix/utils.scm (<location>, source-properties->location) (location->source-properties, &error-location): Move to... * guix/diagnostics.scm: ... here. * gnu.scm: Adjust imports accordingly. * gnu/machine.scm: Likewise. * gnu/system.scm: Likewise. * gnu/tests.scm: Likewise. * guix/inferior.scm: Likewise. * tests/channels.scm: Likewise. * tests/packages.scm: Likewise. Ludovic Courtès
2020-03-05tests: Add <system-test> gexp compiler....* gnu/tests.scm (compile-system-test): New gexp compiler. Ludovic Courtès
2020-01-23tests: Fix typo in comment....* gnu/tests.scm: Add missing word in commentary. Ludovic Courtès
2019-12-18gexp: Allow character literals in GEXP->SEXP....Fixes <https://bugs.gnu.org/38628>. * tests/gexp.scm ("lower-gexp, character literal"): New test. * guix/gexp.scm (gexp->sexp)[self-quoting?]: Add CHAR? to the tested types. * guix/repl.scm (self-quoting?): Likewise. * gnu/tests.scm (marionette-shepherd-service)[self-quoting?]: Likewise. Marius Bakke
2019-09-23repl, marionette: 'self-quoting?' matches keywords....* guix/repl.scm (self-quoting?): Add 'keyword?' and 'array?'; remove 'vector?' and 'bytevector?'. * gnu/tests.scm (marionette-shepherd-service) <start>: Likewise. <modules>: Remove (rnrs bytevector). Ludovic Courtès