From mboxrd@z Thu Jan 1 00:00:00 1970 From: Danny Milosavljevic Subject: bug#22612: guix make check failure for syscalls: "FAIL network-interfaces returns one or more interfaces" Date: Fri, 25 Mar 2016 15:17:07 +0100 Message-ID: <20160325151707.19555503@scratchpost.org> References: <20160209235934.5f410f19@scratchpost.org> <87r3gkjn81.fsf@gnu.org> <87fuvft068.fsf@gnu.org> Mime-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: quoted-printable Return-path: Received: from eggs.gnu.org ([2001:4830:134:3::10]:45001) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1ajSYx-0001dG-Tf for bug-guix@gnu.org; Fri, 25 Mar 2016 10:18:09 -0400 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1ajSYs-0000hS-NA for bug-guix@gnu.org; Fri, 25 Mar 2016 10:18:07 -0400 Received: from debbugs.gnu.org ([208.118.235.43]:40829) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1ajSYs-0000hN-Jm for bug-guix@gnu.org; Fri, 25 Mar 2016 10:18:02 -0400 Received: from Debian-debbugs by debbugs.gnu.org with local (Exim 4.84_2) (envelope-from ) id 1ajSYs-00059m-Ab for bug-guix@gnu.org; Fri, 25 Mar 2016 10:18:02 -0400 Sender: "Debbugs-submit" Resent-Message-ID: In-Reply-To: <87fuvft068.fsf@gnu.org> List-Id: Bug reports for GNU Guix List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: bug-guix-bounces+gcggb-bug-guix=m.gmane.org@gnu.org Sender: bug-guix-bounces+gcggb-bug-guix=m.gmane.org@gnu.org To: Ludovic =?UTF-8?Q?Court=C3=A8s?= Cc: 22612@debbugs.gnu.org On Fri, 25 Mar 2016 09:46:23 +0100 ludo@gnu.org (Ludovic Court=C3=A8s) wrote: > ludo@gnu.org (Ludovic Court=C3=A8s) skribis: >=20 > > Danny Milosavljevic skribis: > > =20 > >> git clone, `guix environment guix`, ./bootstrap && ./configure --loc= alstatedir=3D/var && make check =20 > > > > When running the tests, were you using the --container option of =E2=80= =98guix > > environment guix=E2=80=99? > > =20 > >> tests/syscalls.scm:220: FAIL network-interfaces returns one or more in= terfaces =20 > > > > Could you send the output of: > > > > ./pre-inst-env guile -c '(use-modules (guix build syscalls)) (write (= network-interfaces))' =20 >=20 > Ping! :) >=20 > http://bugs.gnu.org/22612 >=20 > Ludo'. dannym@dayas ~/src/guix$ ./pre-inst-env guile -c '(use-modules (guix build = syscalls)) (write (network-interfaces))' =20 (# # # # ...] In unknown file: ?: 8 [apply-smob/1 #] In ice-9/boot-9.scm: 63: 7 [call-with-prompt prompt0 ...] In ice-9/eval.scm: 432: 6 [eval # #] In unknown file: ?: 5 [call-with-input-string "(use-modules (guix build syscalls)) (write= (network-interfaces))" ...] In ice-9/command-line.scm: 180: 4 [# #] In unknown file: ?: 3 [eval (write (network-interfaces)) #] ?: 2 Exception thrown while printing backtrace: ERROR: In procedure vector-ref: Wrong type argument in position 1 (expectin= g vector): #f ice-9/networking.scm:82:27: In procedure sockaddr:fam: ice-9/networking.scm:82:27: In procedure vector-ref: Wrong type argument in= position 1 (expecting vector): #f dannym@dayas ~/src/guix$ ./pre-inst-env guile -c '(use-modules (guix build = syscalls)) (write (network-interfaces))' =20 dannym@dayas /etc$ cat config.scm ;; This is an operating system configuration template for a "desktop" setup= with X11. (use-modules (ice-9 match) (gnu) (gnu services) (gnu services shepherd) (gnu services networking) (gnu services printing) ;(gnu services syslog) (gnu services xorg) (gnu services web) (guix records) (gnu system nss)) (use-service-modules desktop databases) (use-package-modules xfce ratpoison certs wm enlightenment databases bdw-gc= java lua gprolog vpn scheme freedesktop suckless djvu mail cdrom ocr lsof = ntp gnome libreoffice admin emacs gcc gnupg guile haskell hugs linux pulsea= udio video version-control qemu texlive ssh gnuzilla curl messaging screen = ldc guile-wm stalonetray xorg fonts webkit autotools gdb web syslog cups) (define-record-type* vpn-tunnel make-vpn-tunnel vpn-tunnel? (interface-name vpn-tunnel-interface-name) (user-name vpn-tunnel-user-name)) ;(define nginx-config ; (nginx-configuration (nginx nginx) ; ;(log-directory "/var/log/nginx") ; ;(run-directory "/var/run/nginx") ; (file "/etc/nginx.conf"))) ;(define cups-service-type ; (shepherd-service-type ; 'cups-service (match-lambda (($ < ; )) ;(define (cups-service a-listening-port b-listening-port c-bind-address (define vpn-tunnel-service-type (shepherd-service-type 'vpn-tunnel (match-lambda (($ interface user) (let ((ip #~(string-append #$iproute "/sbin/ip"))) (shepherd-service (documentation "Create tunnel interface.") (provision '(vpn-tunnel)) (requirement '(networking)) (start #~(lambda _ ;; Return #t if successfully started. (zero? (system* #$ip "tuntap" "add" #$= interface "mode" "tun" "user" #$user)))) (respawn? #f))))))) (define (vpn-tunnel-service interface-name user-name) "Return a service that ..." (service vpn-tunnel-service-type (vpn-tunnel (interface-name interface-name) (user-name user-name)))) (operating-system ; TODO GRUB_CMDLINE_LINUX_DEFAULT=3D"cryptdevice=3D/dev/sda2:main" (kernel-arguments '("crashkernel=3D256M" "modprobe.blacklist=3Dpcspkr,snd= _pcsp" "intel_iommu=3Doff" "intremap=3Doff" "quiet" "acpi_sleep=3Ds3_bios" = "acpi_osi=3DLinux" "clocksource=3Dacpi_pm")) (host-name "dayas") (timezone "Europe/Vienna") (locale "en_US.UTF-8") (bootloader (grub-configuration (device "/dev/sda"))) ;(mapped-devices (list (mapped-device ; (source "/dev/sda5") ; (target "dayas-sys") ; (type luks-device-mapping)))) (file-systems (cons* (file-system (device "/dev/sda1") (title 'dayas:/) (mount-point "/") (type "ext4") (needed-for-boot? #t)) ;(file-system ; (device "/dev/mapper/dayas-sys") ; (title 'dayas:/x) ; (mount-point "/x") ; (type "btrfs") ; (needed-for-boot? #f)) %base-file-systems)) (users (cons (user-account (name "dannym") (uid 27481) (comment "Danny") (group "users") (supplementary-groups '("wheel" "netdev" "audio" "video" "l= p")) ; FIXME remove "lp" again. (home-directory (string-append "/home/" name))) %base-user-accounts)) ; TODO lxde (packages (cons* ratpoison enlightenment stalonetray fluxbox ; TODO xfce = ;desktop environments nss-certs ;for HTTPS access postgresql bdb gdbm unixodbc ; DBMSes nginx wayland elogind udisks python-pyxdg python2-pyxdg dwm dmenu slock st ; suckless djvulibre libgc ant ; java luajit gprolog openvpn esmtp cdparanoia abcde tesseract-ocr ocrad lsof ntp brasero eog totem evince upower goffice gnumeric devhelp= ;libreoffice cups cups-filters hplip gcc-5 gdb gnupg dmidecode sudo tcpdump testdisk smartmontools fdupes wpa= -supplicant ;;guile-emacs guile-for-guile-emacs ; TODO ghc hugs procps usbutils e2fsprogs e2fsck/static extundelete stra= ce ltrace alsa-lib alsa-utils net-tools iw powertop iotop fuse unionfs-fuse= sshfs-fuse inotify-tools wireless-tools i2c-tools hdparm rfkill acpid sysf= sutils cpufrequtils=20 ffmpeg vlc mplayer mpv youtube-dl libdvdcss xvid=20 webkitgtk git git-manpages mercurial subversion cvs diffstat ; TODO texlive ; TODO sane-backends pavucontrol openssh curl qemu gnome-terminal icecat claws-mail pidgin pidgin-otr screen ldc guile-wm icedtea ; 7 font-adobe100dpi font-adobe75dpi font-bitstream-vera fon= t-dejavu font-gnu-freefont-ttf font-gnu-unifont font-liberation font-ubuntu= =20 xkbcomp automake autoconf binutils rsyslog %base-packages)) ; (dhcp-client-service) ; (lsh-service #:port-number 2222 #:password-authentication? #f) (services (cons* (postgresql-service) ; #:config-file "/etc/postgresql.co= nf") (vpn-tunnel-service "vpn0" "dannym") ;(rsyslog-service) ;(nginx-service-type nginx-config) (cups-service #:printers '()) (modify-services %desktop-services (slim-service-type config =3D> (slim-configuration (inherit config) (auto-login? #t) (auto-login-session #~(string-ap= pend #$fluxbox "/bin/startfluxbox")) (default-user "dannym"))) ))) ; TODO nginx service ;; Allow resolution of '.local' host names with mDNS. (name-service-switch %mdns-host-lookup-nss) (hosts-file (plain-file "hosts" (string-append (local-host-aliases host-name) "192.168.1.103 daya20\n" %facebook-host-aliases))) )