ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2024-12-25 05:48:07 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

tests: Adjust syscall tests for 2.6ish Linux.

Browse source 
* tests/syscalls.scm ("set-network-interface-flags",
  "set-network-interface-address"): Accept EACCES as a valid result.
This commit is contained in:
Ludovic Courtès 2015-01-19 15:44:12 +01:00
parent 510023184a
commit d35c5e29b6
1 changed files with 7 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

14
tests/syscalls.scm
View file

@ -1,5 +1,5 @@
;;; GNU Guix --- Functional package management for GNU ;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2014 Ludovic Courtès <ludo@gnu.org> ;;; Copyright © 2014, 2015 Ludovic Courtès <ludo@gnu.org>
;;; ;;;
;;; This file is part of GNU Guix. ;;; This file is part of GNU Guix.
;;; ;;;
@ -91,15 +91,15 @@ (define-module (test-syscalls)
(system-error-errno args))))) (system-error-errno args)))))
(test-skip (if (zero? (getuid)) 1 0)) (test-skip (if (zero? (getuid)) 1 0))
(test-equal "set-network-interface-flags" (test-assert "set-network-interface-flags"
EPERM
(let ((sock (socket AF_INET SOCK_STREAM 0))) (let ((sock (socket AF_INET SOCK_STREAM 0)))
(catch 'system-error (catch 'system-error
(lambda () (lambda ()
(set-network-interface-flags sock "lo" IFF_UP)) (set-network-interface-flags sock "lo" IFF_UP))
(lambda args (lambda args
(close-port sock) (close-port sock)
(system-error-errno args))))) ;; We get EPERM with Linux 3.18ish and EACCES with 2.6.32.
(memv (system-error-errno args) (list EPERM EACCES))))))
(test-equal "network-interface-address lo" (test-equal "network-interface-address lo"
(make-socket-address AF_INET (inet-pton AF_INET "127.0.0.1") 0) (make-socket-address AF_INET (inet-pton AF_INET "127.0.0.1") 0)
@ -108,8 +108,7 @@ (define-module (test-syscalls)
(close-port sock) (close-port sock)
addr)) addr))
(test-equal "set-network-interface-address" (test-assert "set-network-interface-address"
EPERM
(let ((sock (socket AF_INET SOCK_STREAM 0))) (let ((sock (socket AF_INET SOCK_STREAM 0)))
(catch 'system-error (catch 'system-error
(lambda () (lambda ()
@ -120,7 +119,8 @@ (define-module (test-syscalls)
0))) 0)))
(lambda args (lambda args
(close-port sock) (close-port sock)
(system-error-errno args))))) ;; We get EPERM with Linux 3.18ish and EACCES with 2.6.32.
(memv (system-error-errno args) (list EPERM EACCES))))))
(test-end) (test-end)