build: ruby-build-system: Adjust replace-git-ls-files. - guix - Wojtek's customized Guix


about summary refs log tree commit diff

path: root/tests/base64.scm

diff options

author	Maxim Cournoyer <maxim.cournoyer@gmail.com>	2020-07-11 15:03:48 -0400
committer	Maxim Cournoyer <maxim.cournoyer@gmail.com>	2020-08-28 01:21:02 -0400
commit	a7b1cc333eedcfb8630fe98bfac43bf8ad86b962 (patch)
tree	0e94ffe85fb197affc19acfb31fb966d051aed91 /tests/base64.scm
parent	15e716740564485f2e14cadca1cd50c2aa450fe7 (diff)
download	guix-a7b1cc333eedcfb8630fe98bfac43bf8ad86b962.tar.gz guix-a7b1cc333eedcfb8630fe98bfac43bf8ad86b962.zip

build: ruby-build-system: Adjust replace-git-ls-files.

The file names returned by `find ...` instead of `git ls-files...` contains leading './' characters, which can cause problems when the file lists is further processed with regexps, for example, as was discovered while updating the ruby-asciidoctor package in commit 5df1126c3adf557f3a5b386e391e7cb56b9c1d63. * guix/build/ruby-build-system.scm (replace-git-ls-files): Strip the first two characters ("./") of the file names returned by the 'find' command. Fix typo in doc. Simplify '(when (not ...' into '(unless ...'.

Diffstat (limited to 'tests/base64.scm')

0 files changed, 0 insertions, 0 deletions

quot;baz" "http://example.org/baz" #:size 500 #:transferred 500 #:start 'now #:end 'now) (download "bar" "http://example.org/bar" #:size 999 #:transferred 999 #:start 'now #:end 'now))))) ;; Below we omit 'substituter-started' events and the like. (let ((port get-status (build-event-output-port (lambda (event status) (compute-status event status #:current-time (const 'now)))))) (display "@ build-started foo.drv - x86_64-linux foo.log\n" port) (display "@ download-started bar http://example.org/bar 999\n" port) (display "various\nthings\nget\nwritten\n" port) (display "@ download-progress baz http://example.org/baz 500 42\n" port) (let ((first (get-status))) (display "@ build-succeeded foo.drv\n" port) (display "@ download-succeeded bar http://example.org/bar 999\n" port) (display "Almost done!\n" port) (display "@ substituter-succeeded baz\n" port) (list first (get-status))))) (test-equal "build-output-port, UTF-8" '((build-log #f "lambda is λ!\n")) (let ((port get-status (build-event-output-port cons '())) (bv (string->utf8 "lambda is λ!\n"))) (put-bytevector port bv) (force-output port) (get-status))) (test-equal "build-output-port, daemon messages with LF" '((build-log #f "updating substitutes... 0%\r") (build-log #f "updating substitutes... 50%\r") (build-log #f "updating substitutes... 100%\r")) (let ((port get-status (build-event-output-port cons '()))) (for-each (lambda (suffix) (let ((bv (string->utf8 (string-append "updating substitutes... " suffix "\r")))) (put-bytevector port bv) (force-output port))) '("0%" "50%" "100%")) (reverse (get-status)))) (test-equal "current-build-output-port, UTF-8 + garbage" ;; What about a mixture of UTF-8 + garbage? (let ((replacement "�")) `((build-log #f ,(string-append "garbage: " replacement "lambda: λ\n")))) (let ((port get-status (build-event-output-port cons '()))) (display "garbage: " port) (put-bytevector port #vu8(128)) (put-bytevector port (string->utf8 "lambda: λ\n")) (force-output port) (get-status))) (test-equal "compute-status, multiplexed build output" (list (build-status (building (list (build "foo.drv" "x86_64-linux" #:id 121))) (downloading (list (download "bar" "http://example.org/bar" #:size 999 #:start 'now)))) (build-status (building (list (build "foo.drv" "x86_64-linux" #:id 121))) (downloading (list (download "bar" "http://example.org/bar" #:size 999 #:transferred 42 #:start 'now)))) (build-status ;; "bar" is now only listed as a download. (builds-completed (list (build "foo.drv" "x86_64-linux" #:id 121))) (downloads-completed (list (download "bar" "http://example.org/bar" #:size 999 #:transferred 999 #:start 'now #:end 'now))))) (let ((port get-status (build-event-output-port (lambda (event status) (compute-status event status #:current-time (const 'now) #:derivation-path->output-path (match-lambda ("bar.drv" "bar"))))))) (display "@ build-started foo.drv - x86_64-linux 121\n" port) (display "@ build-started bar.drv - armhf-linux bar.log 144\n" port) (display "@ build-log 121 6\nHello!" port) (display "@ build-log 144 50 @ download-started bar http://example.org/bar 999\n" port) (let ((first (get-status))) (display "@ build-log 121 30\n@ build-started FAKE!.drv 555\n") (display "@ build-log 144 54 @ download-progress bar http://example.org/bar 999 42\n" port) (let ((second (get-status))) (display "@ download-succeeded bar http://example.org/bar 999\n" port) (display "@ build-succeeded foo.drv\n" port) (display "@ build-succeeded bar.drv\n" port) (list first second (get-status)))))) (test-equal "compute-status, build completion" (list (build-status (building (list (build "foo.drv" "x86_64-linux" #:id 121)))) (build-status (building (list (build "foo.drv" "x86_64-linux" #:id 121 #:completion 0.)))) (build-status (building (list (build "foo.drv" "x86_64-linux" #:id 121 #:completion 50.)))) (build-status (builds-completed (list (build "foo.drv" "x86_64-linux" #:id 121 #:completion 100.))))) (let ((port get-status (build-event-output-port (lambda (event status) (compute-status event status #:current-time (const 'now)))))) (display "@ build-started foo.drv - x86_64-linux 121\n" port) (display "@ build-log 121 6\nHello!" port) (let ((first (get-status))) (display "@ build-log 121 20\n[ 0/100] building X\n" port) (display "@ build-log 121 6\nHello!" port) (let ((second (get-status))) (display "@ build-log 121 20\n[50/100] building Y\n" port) (display "@ build-log 121 6\nHello!" port) (let ((third (get-status))) (display "@ build-log 121 21\n[100/100] building Z\n" port) (display "@ build-log 121 6\nHello!" port) (display "@ build-succeeded foo.drv\n" port) (list first second third (get-status))))))) (test-equal "compute-status, build phase" (list (build-status (building (list (build "foo.drv" "x86_64-linux" #:id 121 #:phase 'configure)))) (build-status (building (list (build "foo.drv" "x86_64-linux" #:id 121 #:phase 'configure #:completion 50.)))) (build-status (building (list (build "foo.drv" "x86_64-linux" #:id 121 #:phase 'install)))) (build-status (builds-completed (list (build "foo.drv" "x86_64-linux" #:id 121 #:phase 'install))))) (let ((port get-status (build-event-output-port (lambda (event status) (compute-status event status #:current-time (const 'now)))))) (display "@ build-started foo.drv - x86_64-linux 121\n" port) (display "@ build-log 121 27\nstarting phase `configure'\n" port) (display "@ build-log 121 6\nabcde!" port) (let ((first (get-status))) (display "@ build-log 121 20\n[50/100] building Y\n" port) (display "@ build-log 121 6\nfghik!" port) (let ((second (get-status))) (display "@ build-log 121 21\n[100/100] building Z\n" port) (display "@ build-log 121 25\nstarting phase `install'\n" port) (display "@ build-log 121 6\nlmnop!" port) (let ((third (get-status))) (display "@ build-succeeded foo.drv\n" port) (list first second third (get-status))))))) (test-end "status")