mirror/guix
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/guix.git synced 2025-01-30 22:36:50 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

lint: Fix indentation.

Browse source 
* guix/lint.scm(check-synopsis-style): Add white space.
* tests/lint.scm: Fix indentation.

Signed-off-by: Ludovic Courtès <ludo@gnu.org>
Change-Id: I8e08fa43131c586065b742fc441172c9408877a3
This commit is contained in:
Gabriel Wicki 2024-12-02 23:34:03 +01:00 committed by Ludovic Courtès
parent 536202958c
commit dac3011477
No known key found for this signature in database
GPG key ID: 090B11993D9AEBB5
2 changed files with 9 additions and 9 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
guix/lint.scm
View file

@ -737,7 +737,7 @@ (define (check-proper-start synopsis)
(define (check-start-with-package-name synopsis) (define (check-start-with-package-name synopsis)
(if (and (regexp-exec (package-name-regexp package) synopsis) (if (and (regexp-exec (package-name-regexp package) synopsis)
(not (starts-with-abbreviation? synopsis))) (not (starts-with-abbreviation? synopsis)))
(list (list
(make-warning package (make-warning package
(G_ "synopsis should not start with the package name") (G_ "synopsis should not start with the package name")

16
tests/lint.scm
View file

@ -171,14 +171,14 @@ (define (warning-contains? str warnings)
"description contains leading whitespace" "description contains leading whitespace"
(single-lint-warning-message (single-lint-warning-message
(let ((pkg (dummy-package "x" (let ((pkg (dummy-package "x"
(description " Whitespace.")))) (description " Whitespace."))))
(check-description-style pkg)))) (check-description-style pkg))))
(test-equal "description: trailing whitespace" (test-equal "description: trailing whitespace"
"description contains trailing whitespace" "description contains trailing whitespace"
(single-lint-warning-message (single-lint-warning-message
(let ((pkg (dummy-package "x" (let ((pkg (dummy-package "x"
(description "Whitespace. ")))) (description "Whitespace. "))))
(check-description-style pkg)))) (check-description-style pkg))))
(test-equal "description: pluralized 'This package'" (test-equal "description: pluralized 'This package'"
@ -359,18 +359,18 @@ (define (warning-contains? str warnings)
'() '()
(check-compiler-for-target (check-compiler-for-target
(dummy-package "x" (dummy-package "x"
(arguments (arguments
(list #:make-flags (list #:make-flags
#~(list (string-append "CC=" (cc-for-target)))))))) #~(list (string-append "CC=" (cc-for-target))))))))
(test-equal "compiler-for-target: CC=gcc is acceptable when target=#false" (test-equal "compiler-for-target: CC=gcc is acceptable when target=#false"
'() '()
(check-compiler-for-target (check-compiler-for-target
;; This (dummy) package consists purely of architecture-independent data. ;; This (dummy) package consists purely of architecture-independent data.
(dummy-package "tzdata" (dummy-package "tzdata"
(arguments (arguments
(list #:target #false (list #:target #false
#:make-flags #~(list "CC=gcc")))))) #:make-flags #~(list "CC=gcc"))))))
;; The emacs-build-system sets #:tests? #f by default. ;; The emacs-build-system sets #:tests? #f by default.
(test-equal "tests-true: #:tests? #t acceptable for emacs packages" (test-equal "tests-true: #:tests? #t acceptable for emacs packages"