GNU bug report logs - #18690
When run as root, tests/syscalls.scm fails

Previous Next

To add a comment to this bug, you must first unarchive it, by sending
a message to control AT debbugs.gnu.org, with unarchive 18690 in the body.
You can then email your comments to 18690 AT debbugs.gnu.org in the normal way.

Toggle the display of automated, internal messages from the tracker.

Message #5 received at submit <at> debbugs.gnu.org (full text, mbox):

From: Philip Woods <elzairthesorcerer <at> gmail.com>
To: bug-guix <at> gnu.org
Subject: When run as root, tests/syscalls.scm fails
Date: Sat, 11 Oct 2014 14:30:28 -0400

%%%% Starting test syscalls
Group begin: syscalls
Test begin:
  test-name: "mount, ENOENT"
  source-file: "tests/syscalls.scm"
  source-line: 30
  source-form: (test-equal "mount, ENOENT" ENOENT (catch (quote
system-error) (lambda () (mount "/dev/null" "/does-not-exist" "ext2")
#f) (compose system-error-errno list)))
Test end:
  result-kind: pass
  actual-value: 2
  expected-value: 2
Test begin:
  test-name: "umount, ENOENT/EPERM"
  source-file: "tests/syscalls.scm"
  source-line: 38
  source-form: (test-assert "umount, ENOENT/EPERM" (catch (quote
system-error) (lambda () (umount "/does-not-exist") #f) (lambda args
(memv (system-error-errno args) (list EPERM ENOENT)))))
Test end:
  result-kind: pass
  actual-value: (2)
Test begin:
  test-name: "swapon, ENOENT/EPERM"
  source-file: "tests/syscalls.scm"
  source-line: 47
  source-form: (test-assert "swapon, ENOENT/EPERM" (catch (quote
system-error) (lambda () (swapon "/does-not-exist") #f) (lambda args
(memv (system-error-errno args) (list EPERM ENOENT)))))
Test end:
  result-kind: pass
  actual-value: (2)
Test begin:
  test-name: "swapoff, EINVAL/EPERM"
  source-file: "tests/syscalls.scm"
  source-line: 55
  source-form: (test-assert "swapoff, EINVAL/EPERM" (catch (quote
system-error) (lambda () (swapoff "/does-not-exist") #f) (lambda args
(memv (system-error-errno args) (list EPERM EINVAL)))))
Test end:
  result-kind: fail
  actual-value: #f
Test begin:
  test-name: "all-network-interfaces"
  source-file: "tests/syscalls.scm"
  source-line: 63
  source-form: (test-assert "all-network-interfaces" (match
(all-network-interfaces) (((? string? names) ..1) (member "lo"
names))))
Test end:
  result-kind: pass
  actual-value: ("lo" "wlan0")
Test begin:
  test-name: "network-interfaces"
  source-file: "tests/syscalls.scm"
  source-line: 68
  source-form: (test-assert "network-interfaces" (match
(network-interfaces) (((? string? names) ..1) (lset<= string=? names
(all-network-interfaces)))))
Test end:
  result-kind: pass
  actual-value: #t
Test begin:
  test-name: "network-interface-flags"
  source-file: "tests/syscalls.scm"
  source-line: 73
  source-form: (test-assert "network-interface-flags" (let* ((sock
(socket SOCK_STREAM AF_INET 0)) (flags (network-interface-flags sock
"lo"))) (close-port sock) (and (not (zero? (logand flags
IFF_LOOPBACK))) (not (zero? (logand flags IFF_UP))))))
Test end:
  result-kind: pass
  actual-value: #t
Test begin:
  test-name: "loopback-network-interface?"
  source-file: "tests/syscalls.scm"
  source-line: 80
  source-form: (test-equal "loopback-network-interface?" ENODEV (and
(loopback-network-interface? "lo") (catch (quote system-error) (lambda
() (loopback-network-interface? "nonexistent") #f) (lambda args
(system-error-errno args)))))
Test end:
  result-kind: pass
  actual-value: 19
  expected-value: 19
Group end: syscalls
# of expected passes      7
# of unexpected failures  1

Message #10 received at 18690-done <at> debbugs.gnu.org (full text, mbox):

From: ludo <at> gnu.org (Ludovic Courtès)
To: Philip Woods <elzairthesorcerer <at> gmail.com>
Cc: 18690-done <at> debbugs.gnu.org
Subject: Re: bug#18690: When run as root, tests/syscalls.scm fails
Date: Sun, 12 Oct 2014 00:15:05 +0200

Philip Woods <elzairthesorcerer <at> gmail.com> skribis:

> Test begin:
>   test-name: "swapoff, EINVAL/EPERM"
>   source-file: "tests/syscalls.scm"
>   source-line: 55
>   source-form: (test-assert "swapoff, EINVAL/EPERM" (catch (quote
> system-error) (lambda () (swapoff "/does-not-exist") #f) (lambda args
> (memv (system-error-errno args) (list EPERM EINVAL)))))
> Test end:
>   result-kind: fail
>   actual-value: #f

I believe this is fixed by commit 2793c0f.

Thanks!

Ludo’.

Previous Next

GNU bug tracking system
Copyright (C) 1999 Darren O. Benham, 1997,2003 nCipher Corporation Ltd, 1994-97 Ian Jackson.