--- Begin Message ---
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
--- End Message ---
--- Begin Message ---
Subject: |
Re: bug#18690: When run as root, tests/syscalls.scm fails |
Date: |
Sun, 12 Oct 2014 00:15:05 +0200 |
User-agent: |
Gnus/5.130011 (Ma Gnus v0.11) Emacs/24.3 (gnu/linux) |
Philip Woods <address@hidden> 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’.
--- End Message ---