path: root/gnu/packages
AgeCommit message (Expand)Author
2024-12-09gnu: monado: Update to 24.0.0....* gnu/packages/graphics.scm (monado): Update to 24.0.0. [source]: Switch to git-fetch. [build-system]: Switch to cmake-build-system. [arguments]: Remove configure-flags. Change-Id: Iba340dd539de40235e0f67b97ddf2b646296b883 Signed-off-by: Zheng Junjie <zhengjunjie@iscas.ac.cn> Zheng Junjie
2024-12-09gnu: ccls: Update to 0.20241108....* gnu/packages/cpp.scm (ccls): Update to 0.20241108. Change-Id: I67ba31ec4486371334968553acf66144524531ab Signed-off-by: Zheng Junjie <zhengjunjie@iscas.ac.cn> Zheng Junjie
2024-12-08gnu: guile-emacs: Update home-page....* gnu/packages/emacs.scm (guile-emacs)[home-page]: New field. Change-Id: Icd092c0d1762f2a5853e2e77d21f50d47fcf8a41 Janneke Nieuwenhuizen
2024-12-08gnu: hyprland: Update to 0.45.2....* gnu/packages/wm.scm (hyprland): Update to 0.45.2. Change-Id: Ib93355a3381316fa8c1f5eddf61a01c80b21ebd7 John Kehayias
2024-12-08gnu: python-gphoto2: Update to 2.5.0....* gnu/packages/python-xyz.scm (python-gphoto2): Update to 2.5.0. [license]: Change to lgpl3+ (upstream changed in version 2.4.0). Change-Id: Ib15737ded100458c955652ee2c075a12016d0689 John Kehayias
2024-12-08gnu: guile-emacs: Support running emacs from the store....* gnu/packages/emacs.scm (guile-emacs)[argumets]: Replace stage "wrap-emacs-paths" to restrict EMACSLOADPATH. [native-search-paths]: Remove. Change-Id: Ie2c222a53a5bd79b1a8a0b8424a90e6e06b77fb9 Janneke Nieuwenhuizen
2024-12-08gnu: daikichi: Update to 0.3.1....* gnu/packages/toys.scm (daikichi): Update to 0.3.1. Liliana Marie Prikler
2024-12-08gnu: emacs-lsp-java: Update to 3.1-1.4909c14...* gnu/packages/emacs-xyz.scm (emacs-lsp-java): Update to 3.1-1.4909c14. Change-Id: I16eb365d0fd7b14cd2bdf837c009c931e01ca607 Signed-off-by: Liliana Marie Prikler <liliana.prikler@gmail.com> Rostislav Svoboda
2024-12-08gnu: python-clinguin: Update to 2.1.1....* gnu/packages/potassco.scm (python-clinguin): Update to 2.1.1. [source]: Adjust snippet accordingly. [inputs]: Add python-clingo-dl and python-clingexplaid. Liliana Marie Prikler
2024-12-08gnu: python-clinguin: Fix homepage....* gnu/packages/potassco.scm (python-clinguin)[home-page]: Use “https://github.com/potassco/clinguin”. Liliana Marie Prikler
2024-12-08gnu: Add python-clingexplaid....* gnu/packages/potassco.scm (python-clingexplaid): New variable. Liliana Marie Prikler
2024-12-08gnu: python-asyncssh: Update to 2.18.0....* gnu/packages/ssh.scm (python-asyncssh): Update to 2.18.0. Change-Id: I03ac3759e90261219e2f90dcc668c7af019a957b Sharlatan Hellseher
2024-12-08gnu: python-asyncssh: Improve package style....* gnu/packages/ssh.scm: Add pyproject-build-system. (python-asyncssh): Use G-expressions and new package style. [build-system]: Swap to pyrpoject-build-system. [arguments]<test-flags>: Move skip test logic here. <phases>: Remove 'disable-tests, add 'pre-check. [native-inputs]: Apply list style and sort alphabetically. Add python-setuptools, and python-wheel. [propagated-inputs]: Apply list style and sort alphabetically. Change-Id: I021361c3667f60b60fc137380800646f10f2cd05 Sharlatan Hellseher
2024-12-08gnu: python-asyncssh: Disable flaky connection tests....* gnu/packages/ssh.scm (python-asyncssh): Disable flaky connection tests. Change-Id: If99cc686679fd2c731f3d66a85abe23eff6f1234 Signed-off-by: Sharlatan Hellseher <sharlatanus@gmail.com> Roman Scherer
2024-12-08gnu: guile-emacs: Remove hardcoded version from EMACSLOADPATH....After a question by lilyp via IRC. * gnu/packages/emacs.scm (guile-emacs): Add "upstream-version" to outer let. [native-search-paths]: Use that for EMACSLOADPATH and add a comment. Change-Id: Ie2c222a53a5bd79b1a8a0b8424a90e6e06b77fb9 Janneke Nieuwenhuizen
2024-12-08gnu: Add rust-cdshealpix-0.7....* gnu/packages/crates-io.scm (rust-cdshealpix-0.7): New variable. Change-Id: Iefc7ee7018725e3072bf7696445aab20f6f9bd32 Reviewed-by: Efraim Flashner <efraim@flashner.co.il> Sharlatan Hellseher
2024-12-08gnu: Add rust-katex-doc-0.1....* gnu/packages/crates-io.scm (rust-katex-doc-0.1): New variable. Change-Id: I62b79193b8b7764bffeb0dba23e110a34a705416 Reviewed-by: Efraim Flashner <efraim@flashner.co.il> Sharlatan Hellseher
2024-12-08gnu: Add rust-mapproj-0.3....* gnu/packages/crates-io.scm (rust-mapproj-0.3): New variable. Change-Id: Idf2f2cf69fdd38c7246fa49fdd61ffff450b891d Reviewed-by: Efraim Flashner <efraim@flashner.co.il> Sharlatan Hellseher
2024-12-08gnu: Add rust-stc-s-0.1....* gnu/packages/crates-io.scm (rust-stc-s-0.1): New variable. Change-Id: Ic6cb2c8f598219126a1d55ed979f42f0cca3e524 Reviewed-by: Efraim Flashner <efraim@flashner.co.il> Sharlatan Hellseher
2024-12-08gnu: Add grimblast....* gnu/packages/wm.scm (grimblast): New variable. Change-Id: I38d8e0ff92e8724cec64d37d036ff307c96a2cc0 Hilton Chain
2024-12-08gnu: Add hyprpicker....* gnu/packages/wm.scm (hyprpicker): New variable. Change-Id: I09cfc8b465ca0ac5d4dcbae34f680e80c74fd56f Hilton Chain
2024-12-08gnu: Add xdg-desktop-portal-hyprland....* gnu/packages/freedesktop.scm (xdg-desktop-portal-hyprland): New variable. Co-authored-by: Hilton Chain <hako@ultrarare.space> Signed-off-by: Hilton Chain <hako@ultrarare.space> Change-Id: If8c413319b089ed5d8d75aa0503f886a81697278 Ryan Schanzenbacher
2024-12-08gnu: Add hyprland....* gnu/packages/wm.scm (hyprland): New variable. Change-Id: Idffb9309f61f30c5523e69bb6313162cff87b275 Hilton Chain
2024-12-08gnu: Add aquamarine....* gnu/packages/wm.scm (aquamarine): New variable. Modified-by: Hilton Chain <hako@ultrarare.space> Signed-off-by: Hilton Chain <hako@ultrarare.space> Change-Id: Ibf62dd86d8dd336a4552d767dc0c235db5e57106 John Kehayias
2024-12-08gnu: Add hyprcursor....* gnu/packages/wm.scm (hyprcursor): New variable. Change-Id: I3e753cbaf75244adca65f0478cabd10c89af4286 Hilton Chain
2024-12-08gnu: Add hyprlang....* gnu/packages/wm.scm (hyprlang): New variable. Change-Id: Ie585412bd26bff2c5949ed3aef15c37f6958dc0b Hilton Chain
2024-12-08gnu: Add hyprland-protocols....* gnu/packages/wm.scm (hyprland-protocols): New variable. Change-Id: If986f2b5f8c0070807484e60431bb4c47f901edc Hilton Chain
2024-12-08gnu: Add hyprwayland-scanner....* gnu/packages/wm.scm (hyprwayland-scanner): New variable. Change-Id: I492006356e3abc68609d6c73738a0dfd3b15681c Hilton Chain
2024-12-08gnu: Add hyprutils....* gnu/packages/wm.scm (hyprutils): New variable. Modified-by: Hilton Chain <hako@ultrarare.space> Signed-off-by: Hilton Chain <hako@ultrarare.space> Change-Id: Ife120a7c2d66b7189a3116f8dbcb53be8dafd58e John Kehayias
2024-12-08gnu: Add udis86....* gnu/packages/engineering.scm (udis86): New variable. Change-Id: I95d6e1dc6dbd07812377633a3290eea9b8102456 Hilton Chain
2024-12-08gnu: aflplusplus: Update to 4.30c....* gnu/packages/debug.scm (aflplusplus): Update to 4.30c. Change-Id: Id7cbea11e53faf138e2d5691ff298a20ba6d63b0 Signed-off-by: Hilton Chain <hako@ultrarare.space> Nguyễn Gia Phong
2024-12-08gnu: make-gitolite: Fix inputs references....* gnu/packages/version-control.scm (make-gitolite)[#:phases] <patch-scripts,patch-source,wrap-scripts>: Use search-input-file. Change-Id: Ia2468235b43c257ee1816d19325671d373ed2870 Modified-by: Hilton Chain <hako@ultrarare.space> Signed-off-by: Hilton Chain <hako@ultrarare.space> Ashish SHUKLA
2024-12-08gnu: guile-emacs: Update to 8f87cbc1dae6a9e77368afc5736df8c342e9153d....* gnu/packages/patches/guile-emacs-build-fixes.patch: New file. * gnu/packages/patches/guile-emacs-fix-configure.patch: Remove file. * gnu/local.mk (dist_patch_DATA): Update accordingly. * gnu/packages/emacs.scm (guile-emacs): Update to 8f87cbc1dae6a9e77368afc5736df8c342e9153d and use new patch. [arguments]: Allow parallel-build. Do not strip-binaries. Use recommended #:configure-flags and #:make-flags. Add stages "help-patch-progam-file-names" and "touch-lisp/finder-inf.el". No longer delete non-existent stage "strip-double-wrap". Delete stages "patch-compilation-driver", "set-libgccjit-path", "validate-comp-integrity", "restore-emacs-pdmp", "build-trampolines", and "install-site-start". [native-search-paths]: New field. Change-Id: I8153a55ef0061720ffd3c4833eff3ae6df3eccfc Janneke Nieuwenhuizen
2024-12-08gnu: guile-for-guile-emacs: Update to wip-elisp-rebased....* gnu/packages/guile.scm (guile-for-guile-emacs): Inherit from guile-next. Update to 4b9b8277733729f5b825f78fadfead9fc3630e7e. [version]: Update to 3.0.7-81. [arguments, native-inputs]: Remove. Change-Id: I78a53c2b45c4d2b87f560da82b400cbd985e332a Janneke Nieuwenhuizen
2024-12-07gnu: flacon: Add a source file-name....* gnu/packages/music.scm (flacon)[source]: Add a file-name field. Change-Id: I1a35101dcd6bdbdff4e75d01c82c2016b02591f6 Efraim Flashner
2024-12-07gnu: Add emacs-weblorg....* gnu/packages/emacs-xyz.scm (emacs-weblorg): New Variable. Change-Id: Iae2d6cbbadec7a171e1e5b8502d4f47701d7af5b Signed-off-by: Andreas Enge <andreas@enge.fr> Mattia Bunel
2024-12-07gnu: cl-simple-neural-network: Update to 3.2....* gnu/packages/lisp-xyz.scm (sbcl-simple-neural-network): Update to 3.2. [native-inputs, inputs]: Remove labels. [arguments]: Use gexp. Change-Id: Ia7682c82f88ab509715d90e37612b0208d500ed4 Guillaume Le Vaillant
2024-12-07gnu: cl-simple-matrix: Update to 1.1-0.c949568....* gnu/packages/lisp-xyz.scm (sbcl-simple-matrix): Update to 1.1-0.c949568. Change-Id: Ida5c5136607bbe0962a42827a8eed96e54b113bd Guillaume Le Vaillant
2024-12-07gnu: cl-cf: Update to 1.1-0.0aa0dd6....* gnu/packages/lisp-xyz.scm (sbcl-cf): Update to 1.1-0.0aa0dd6. Change-Id: I4ff6c6d1d82f0e604d5019d1af5bc1fd42f48170 Guillaume Le Vaillant
2024-12-06gnu: ipxe: Update to 24db39fb2983ca83ab5c6ee37cb57a4f7f6f94e6....* gnu/packages/bootloaders.scm (ipxe): Update to 24db39fb2983ca83ab5c6ee37cb57a4f7f6f94e6. Change-Id: I480fa8efad1e2d72e5239bf7df5fb779179ad96b Signed-off-by: Vagrant Cascadian <vagrant@debian.org> Roman Scherer
2024-12-07gnu: xnedit: Update to 1.6.0....* gnu/packages/text-editors.scm (xnedit): Update to 1.6.0. Change-Id: I7f7b30535b40f21864bba44665015242553f4881 Signed-off-by: Zheng Junjie <zhengjunjie@iscas.ac.cn> Andy Tai
2024-12-07gnu: diffoscope: Update to 284....* gnu/packages/diffoscope.scm (diffoscope): Update to 284. Vagrant Cascadian
2024-12-07gnu: lcov: disable parallel tests...`make check` is not reliable for lcov when run in parallel (e.g. `make -j 24 check`). Disable parallelism for the test suite. * gnu/packages/code (lcov): Set #:parallel-tests? #f Signed-off-by: Zheng Junjie <zhengjunjie@iscas.ac.cn> Change-Id: Ibb3618c4786dfbb50b90e725297947458115347c Ryan Sundberg via Guix-patches via
2024-12-07gnu: wmenu: Update to 0.1.9....* gnu/packages/wm.scm (wmenu): Update to 0.1.9. [source]: Update url. [home-page]: Update url. Change-Id: Id0b6e1865cc2b4195fb6f73344494e5e0e880595 Signed-off-by: Zheng Junjie <zhengjunjie@iscas.ac.cn> Zheng Junjie
2024-12-06gnu: packages/astronomy: Sort alphabetically....* gnu/packages/astronomy.scm (python-astral, python-drizzle, splash): Sort variables alphabetically. Change-Id: I9876e8e2ad2f83448b65beb9d72aa1220f464581 Sharlatan Hellseher
2024-12-06gnu: packages/astronomy: Sort alphabetically....* gnu/packages/astronomy.scm (python-ccdproc, python-gwcs, python-jplephem, python-jwst, python-jwst-reffiles): Sort variables alphabetically. Change-Id: I8a0b77fe456927a158080570c52cb4c48d58257f Sharlatan Hellseher
2024-12-06gnu: Add perl-extutils-f77....* gnu/packages/perl.scm (perl-extutils-f77): New variable. Change-Id: I50b6e15e30d9b1dd2cfe5c1aae3398085069e303 Danny Milosavljevic
2024-12-06gnu: Add perl-sort-versions....* gnu/packages/perl.scm (perl-sort-versions): New variable. Danny Milosavljevic
2024-12-06gnu: Add perl-mojo-dom58....* gnu/packages/perl-web (perl-mojo-dom58): New variable. Danny Milosavljevic
2024-12-06gnu: Add perl-file-map....* gnu/packages/perl.scm (perl-file-map): New variable. Danny Milosavljevic
generated by cgit
play "source"))))) (let ((result (texlive->guix-package "trsym" #:version "0" #:database %fake-tlpdb))) (match result (('package ('name _) ('version _) ('source _) ('outputs _) ('build-system _) ('native-inputs ('list 'texlive-metafont)) ('home-page (? string?)) ('synopsis (? string?)) ('description (? string?)) ('license _)) #true) (_ (begin (format #t "~s~%" result) (pk 'fail result #f))))))) (test-assert "texlive->guix-package, with catalogue entry, no inputs" ;; Replace network resources with sample data. (mock ((guix build svn) svn-fetch (lambda* (url revision directory #:key (svn-command "svn") (user-name #f) (password #f) (recursive? #t)) (mkdir-p directory) (with-output-to-file (string-append directory "/foo") (lambda () (display "source"))))) (let ((result (texlive->guix-package "12many" #:version "0" #:database %fake-tlpdb))) (match result (('package ('name "texlive-12many") ('version _) ('source ('origin ('method 'svn-multi-fetch) ('uri ('svn-multi-reference ('url ('texlive-packages-repository 'version)) ('revision 12345) ('locations ('list "doc/latex/12many/" "source/latex/12many/" "tex/latex/12many/")))) ('file-name ('git-file-name 'name 'version)) ('sha256 ('base32 (? string? hash))))) ('outputs ''("out" "doc")) ('build-system 'texlive-build-system) ('home-page "https://ctan.org/pkg/one2many") ('synopsis (? string?)) ('description (? string?)) ('license 'lppl)) #true) (_ (begin (format #t "~s~%" result) (pk 'fail result #f))))))) (test-assert "texlive->guix-package, multiple licenses" ;; Replace network resources with sample data. (mock ((guix build svn) svn-fetch (lambda* (url revision directory #:key (svn-command "svn") (user-name #f) (password #f) (recursive? #t)) (mkdir-p directory) (with-output-to-file (string-append directory "/foo") (lambda () (display "source"))))) (let ((result (texlive->guix-package "chs-physics-report" #:version "0" #:database %fake-tlpdb))) (match result (('package ('name "texlive-chs-physics-report") ('version _) ('source ('origin ('method 'svn-multi-fetch) ('uri ('svn-multi-reference ('url ('texlive-packages-repository 'version)) ('revision 12345) ('locations ('list "doc/latex/chs-physics-report/" "tex/latex/chs-physics-report/")))) ('file-name ('git-file-name 'name 'version)) ('sha256 ('base32 (? string? hash))))) ('outputs ''("out" "doc")) ('build-system 'texlive-build-system) ('home-page (? string?)) ('synopsis (? string?)) ('description (? string?)) ('license ('list 'public-domain 'cc-by-sa3.0))) #true) (_ (begin (format #t "~s~%" result) (pk 'fail result #f))))))) (test-assert "texlive->guix-package, meta-package" ;; Replace network resources with sample data. (mock ((guix build svn) svn-fetch (lambda* (url revision directory #:key (svn-command "svn") (user-name #f) (password #f) (recursive? #t)) (mkdir-p directory) (with-output-to-file (string-append directory "/foo") (lambda () (display "source"))))) (let ((result (texlive->guix-package "collection-texworks" #:version "0" #:database %fake-tlpdb))) (match result (('package ('name "texlive-collection-texworks") ('version '%texlive-version) ('source #f) ('build-system 'trivial-build-system) ('arguments ('list '#:builder ('gexp ('mkdir ('ungexp 'output))))) ('propagated-inputs ('list 'texlive-collection-basic)) ('home-page "https://www.tug.org/texlive/") ('synopsis (? string?)) ('description (? string?)) ('license ('fsf-free "https://www.tug.org/texlive/copying.html"))) #true) (_ (begin (format #t "~s~%" result) (pk 'fail result #f))))))) (test-assert "texlive->guix-package, with TeX format" ;; Replace network resources with sample data. (mock ((guix build svn) svn-fetch (lambda* (url revision directory #:key (svn-command "svn") (user-name #f) (password #f) (recursive? #t)) (mkdir-p directory) (with-output-to-file (string-append directory "/foo") (lambda () (display "source"))))) (let ((result (texlive->guix-package "lollipop" #:version "0" #:database %fake-tlpdb))) (match result (('package ('name "texlive-lollipop") ('version _) ('source ('origin ('method 'svn-multi-fetch) ('uri ('svn-multi-reference ('url ('texlive-packages-repository 'version)) ('revision 12345) ('locations ('list "doc/otherformats/lollipop/" "tex/lollipop/")))) ('file-name ('git-file-name 'name 'version)) ('sha256 ('base32 (? string? hash))))) ('outputs ''("out" "doc")) ('build-system 'texlive-build-system) ('arguments ('list '#:create-formats ('gexp ('list "lollipop")))) ('home-page (? string?)) ('synopsis (? string?)) ('description (? string?)) ('license 'gpl3)) #true) (_ (begin (format #t "~s~%" result) (pk 'fail result #f))))))) (test-assert "texlive->guix-package, execute but no TeX format" ;; Replace network resources with sample data. (mock ((guix build svn) svn-fetch (lambda* (url revision directory #:key (svn-command "svn") (user-name #f) (password #f) (recursive? #t)) (mkdir-p directory) (with-output-to-file (string-append directory "/foo") (lambda () (display "source"))))) (let ((result (texlive->guix-package "adforn" #:version "0" #:database %fake-tlpdb))) (match result (('package ('name "texlive-adforn") ('version _) ('source _) ('outputs ''("out" "doc")) ('build-system 'texlive-build-system) ('home-page (? string?)) ('synopsis (? string?)) ('description (? string?)) ('license _)) #true) (_ (begin (format #t "~s~%" result) (pk 'fail result #f))))))) (test-assert "texlive->guix-package, translate dependencies" ;; Replace network resources with sample data. (mock ((guix build svn) svn-fetch (lambda* (url revision directory #:key (svn-command "svn") (user-name #f) (password #f) (recursive? #t)) (mkdir-p directory) (with-output-to-file (string-append directory "/foo") (lambda () (display "source"))))) (let ((result (texlive->guix-package "collection-basic" #:version "0" #:database %fake-tlpdb))) (match result (('package ('name "texlive-collection-basic") ('version _) ('source _) ('build-system 'trivial-build-system) ('arguments ('list '#:builder ('gexp ('mkdir ('ungexp 'output))))) ('propagated-inputs ('list 'texlive-amsfonts 'texlive-hyphen-complete)) ('home-page (? string?)) ('synopsis (? string?)) ('description (? string?)) ('license _)) #true) (_ (begin (format #t "~s~%" result) (pk 'fail result #f))))))) (test-assert "texlive->guix-package, lonely `hyphen-base' dependency and ARCH" ;; Replace network resources with sample data. (mock ((guix build svn) svn-fetch (lambda* (url revision directory #:key (svn-command "svn") (user-name #f) (password #f) (recursive? #t)) (mkdir-p directory) (with-output-to-file (string-append directory "/foo") (lambda () (display "source"))))) (let ((result (texlive->guix-package "tex" #:version "0" #:database %fake-tlpdb))) (match result (('package ('name "texlive-tex") ('version _) ('source _) ('outputs _) ('build-system 'texlive-build-system) ('arguments ('list '#:texlive-latex-bin? #f)) ('propagated-inputs ('list 'texlive-cm 'texlive-hyphen-base)) ('home-page (? string?)) ('synopsis (? string?)) ('description (? string?)) ('license _)) #true) (_ (begin (format #t "~s~%" result) (pk 'fail result #f))))))) (test-assert "texlive->guix-package, single script, no extension" ;; Replace network resources with sample data. (mock ((guix build svn) svn-fetch (lambda* (url revision directory #:key (svn-command "svn") (user-name #f) (password #f) (recursive? #t)) (mkdir-p directory) (with-output-to-file (string-append directory "/foo") (lambda () (display "source"))))) (let ((result (texlive->guix-package "authorindex" #:version "0" #:database %fake-tlpdb))) (match result (('package ('name "texlive-authorindex") ('version _) ('source _) ('outputs _) ('build-system 'texlive-build-system) ('arguments ('list '#:link-scripts ('gexp ('list "authorindex")))) ('home-page (? string?)) ('synopsis (? string?)) ('description (? string?)) ('license _)) #true) (_ (begin (format #t "~s~%" result) (pk 'fail result #f))))))) (test-assert "texlive->guix-package, multiple scripts, with extensions" ;; Replace network resources with sample data. (mock ((guix build svn) svn-fetch (lambda* (url revision directory #:key (svn-command "svn") (user-name #f) (password #f) (recursive? #t)) (mkdir-p directory) (with-output-to-file (string-append directory "/foo") (lambda () (display "source"))))) (let ((result (texlive->guix-package "cyrillic-bin" #:version "0" #:database %fake-tlpdb))) (match result (('package ('name "texlive-cyrillic-bin") ('version _) ('source _) ('outputs _) ('build-system 'texlive-build-system) ('arguments ('list '#:link-scripts ('gexp ('list "rubibtex.sh" "rumakeindex.sh")))) ('home-page _) ('synopsis _) ('description _) ('license _)) #true) (_ (begin (format #t "~s~%" result) (pk 'fail result #f))))))) (test-assert "texlive->guix-package, script with associated input" ;; Replace network resources with sample data. (mock ((guix build svn) svn-fetch (lambda* (url revision directory #:key (svn-command "svn") (user-name #f) (password #f) (recursive? #t)) (mkdir-p directory) (with-output-to-file (string-append directory "/foo") (lambda () (display "source"))))) (let ((result (texlive->guix-package "pax" #:version "0" #:database %fake-tlpdb))) (match result (('package ('name "texlive-pax") ('version _) ('source _) ('outputs _) ('build-system 'texlive-build-system) ('arguments ('list '#:link-scripts ('gexp ('list "pdfannotextractor.pl")))) ('inputs ('list 'perl)) ('home-page _) ('synopsis _) ('description _) ('license _)) #true) (_ (begin (format #t "~s~%" result) (pk 'fail result #f))))))) (test-assert "texlive->guix-package, propagated binaries, no script" ;; Replace network resources with sample data. (mock ((guix build svn) svn-fetch (lambda* (url revision directory #:key (svn-command "svn") (user-name #f) (password #f) (recursive? #t)) (mkdir-p directory) (with-output-to-file (string-append directory "/foo") (lambda () (display "source"))))) (let ((result (texlive->guix-package "vlna" #:version "0" #:database %fake-tlpdb))) (match result (('package ('name "texlive-vlna") ('version _) ('source _) ('outputs _) ('build-system 'texlive-build-system) ('propagated-inputs ('list 'texlive-vlna-bin)) ('home-page _) ('synopsis _) ('description _) ('license _)) #true) (_ (begin (format #t "~s~%" result) (pk 'fail result #f))))))) (test-assert "texlive->guix-package, propagated binaries and scripts" ;; Replace network resources with sample data. (mock ((guix build svn) svn-fetch (lambda* (url revision directory #:key (svn-command "svn") (user-name #f) (password #f) (recursive? #t)) (mkdir-p directory) (with-output-to-file (string-append directory "/foo") (lambda () (display "source"))))) (let ((result (texlive->guix-package "m-tx" #:version "0" #:database %fake-tlpdb))) (match result (('package ('name "texlive-m-tx") ('version _) ('source _) ('build-system 'texlive-build-system) ('arguments ('list '#:link-scripts ('gexp ('list "m-tx.lua")))) ('propagated-inputs ('list 'texlive-m-tx-bin)) ('home-page _) ('synopsis _) ('description _) ('license _)) #true) (_ (begin (format #t "~s~%" result) (pk 'fail result #f))))))) (test-assert "texlive->guix-package, with skipped propagated binaries" ;; Replace network resources with sample data. (mock ((guix build svn) svn-fetch (lambda* (url revision directory #:key (svn-command "svn") (user-name #f) (password #f) (recursive? #t)) (mkdir-p directory) (with-output-to-file (string-append directory "/foo") (lambda () (display "source"))))) (let ((result (texlive->guix-package "web" #:version "0" #:database %fake-tlpdb))) (match result (('package ('name "texlive-web") ('version _) ('source _) ('outputs _) ('build-system 'texlive-build-system) ('home-page _) ('synopsis _) ('description _) ('license _)) #true) (_ (begin (format #t "~s~%" result) (pk 'fail result #f))))))) (test-assert "texlive->guix-package, with upstream-name property" ;; Replace network resources with sample data. (mock ((guix build svn) svn-fetch (lambda* (url revision directory #:key (svn-command "svn") (user-name #f) (password #f) (recursive? #t)) (mkdir-p directory) (with-output-to-file (string-append directory "/foo") (lambda () (display "source"))))) (let ((result (texlive->guix-package "r_und_s" #:version "0" #:database %fake-tlpdb))) (match result (('package ('name "texlive-r-und-s") ('version _) ('source _) ('properties _) ('build-system 'texlive-build-system) ('home-page _) ('synopsis _) ('description _) ('license _)) #true) (_ (begin (format #t "~s~%" result) (pk 'fail result #f))))))) (test-end "texlive")
generated by cgit