bartronx7/guix
1
0
Fork 0
mirror of https://codeberg.org/guix/guix.git synced 2026-01-25 03:55:08 -06:00
Code Issues Projects Releases Packages Wiki Activity Actions

tests: New ld-wrapper test.

Browse source 
* tests/ld-wrapper.scm: New file.
* Makefile.am (SCM_TESTS): Register it.

Change-Id: I3cef5ff363226a3ceee2599d4906f107d6ae7151
Reviewed-by: Ludovic Courtès <ludo@gnu.org>
This commit is contained in:
Maxim Cournoyer 2025-10-20 22:36:44 +09:00
parent cbc35fd9aa
commit 79dcb79e1f
No known key found for this signature in database
GPG key ID: 1260E46482E63562
2 changed files with 58 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
Makefile.am
View file

@ -14,7 +14,7 @@
# Copyright © 2018 Oleg Pykhalov <go.wigust@gmail.com>
# Copyright © 2018 Alex Vong <alexvong1995@gmail.com>
# Copyright © 2019, 2023 Efraim Flashner <efraim@flashner.co.il>
# Copyright © 2020, 2021, 2023 Maxim Cournoyer <maxim@guixotic.coop>
# Copyright © 2020, 2021, 2023, 2025 Maxim Cournoyer <maxim@guixotic.coop>
# Copyright © 2021 Chris Marusich <cmmarusich@gmail.com>
# Copyright © 2021 Andrew Tropin <andrew@trop.in>
# Copyright © 2023 Clément Lassieur <clement@lassieur.org>
@ -590,6 +590,7 @@ SCM_TESTS = \
tests/http-client.scm \
tests/inferior.scm \
tests/ipfs.scm \
tests/ld-wrapper.scm \
tests/lint.scm \
tests/modules.scm \
tests/monads.scm \

56
tests/ld-wrapper.scm Normal file
View file

@ -0,0 +1,56 @@
;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2025 Maxim Cournoyer <maxim@guixotic.coop>
;;;
;;; This file is part of GNU Guix.
;;;
;;; GNU Guix is free software; you can redistribute it and/or modify it
;;; under the terms of the GNU General Public License as published by
;;; the Free Software Foundation; either version 3 of the License, or (at
;;; your option) any later version.
;;;
;;; GNU Guix is distributed in the hope that it will be useful, but
;;; WITHOUT ANY WARRANTY; without even the implied warranty of
;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
;;; GNU General Public License for more details.
;;;
;;; You should have received a copy of the GNU General Public License
;;; along with GNU Guix. If not, see <http://www.gnu.org/licenses/>.
(use-modules (guix tests)
(srfi srfi-26)
(srfi srfi-64))
(define %project-root
(dirname (dirname (canonicalize-path (or (current-filename))))))
;;; Load the ld-wrapper module and expose some internals, for white-box
;;; testing.
(load (string-append %project-root "/gnu/packages/ld-wrapper.in"))
(define ld-wrapper-module (resolve-module '(gnu build-support ld-wrapper)))
(define library-files-linked (module-ref ld-wrapper-module 'library-files-linked))
(define %dummy-library-prefix "/gnu/store/...-dummy-0.0.0/lib")
(test-begin "ld-wrapper")
(define lugaru-link-arguments
'("-Wall" "-Wextra" "-Wno-parentheses" "-pedantic" "--std=gnu++11" "-O2" "-g"
"-DNDEBUG" "-rdynamic" "-Wl,--dependency-file=CMakeFiles/lugaru.dir/link.d"
"CMakeFiles/lugaru.dir/Source/main.cpp.o"
"CMakeFiles/lugaru.dir/Source/Animation/Animation.cpp.o"
"-o" "lugaru" "-lopenal" "-lpng" "-ljpeg" "-lz" "-lSDL2"
"-lGL" "-lGLU" "-lvorbisfile" "-logg"))
(define lugaru-link-libraries
(map (cut string-append "lib" <> ".so")
'("openal" "png" "jpeg" "z" "SDL2" "GL" "GLU" "vorbisfile" "ogg")))
(test-equal "library files linked"
(map (cut string-append %dummy-library-prefix "/" <>)
lugaru-link-libraries)
(mock ((guile) search-path
(lambda (_ library)
(string-append %dummy-library-prefix "/" library)))
(library-files-linked lugaru-link-arguments "dummy:library:path")))
(test-end)