bug#18690: When run as root, tests/syscalls.scm fails

[Philip Woods]

%%%% 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