tests: Avoid literal strings for invalid Texinfo markup.
This is a followup to e171182a20
.
* tests/lint.scm ("description: invalid Texinfo markup")
("synopsis: valid Texinfo markup"): Add call to 'identity' to avoid
triggering a syntax error.
master
parent
b2ee0798ee
commit
86ed003990
|
@ -107,7 +107,7 @@
|
||||||
"Texinfo markup in description is invalid"
|
"Texinfo markup in description is invalid"
|
||||||
(single-lint-warning-message
|
(single-lint-warning-message
|
||||||
(check-description-style
|
(check-description-style
|
||||||
(dummy-package "x" (description "f{oo}b@r")))))
|
(dummy-package "x" (description (identity "f{oo}b@r"))))))
|
||||||
|
|
||||||
(test-equal "description: does not start with an upper-case letter"
|
(test-equal "description: does not start with an upper-case letter"
|
||||||
"description should start with an upper-case letter or digit"
|
"description should start with an upper-case letter or digit"
|
||||||
|
@ -209,7 +209,7 @@
|
||||||
"Texinfo markup in synopsis is invalid"
|
"Texinfo markup in synopsis is invalid"
|
||||||
(single-lint-warning-message
|
(single-lint-warning-message
|
||||||
(check-synopsis-style
|
(check-synopsis-style
|
||||||
(dummy-package "x" (synopsis "Bad $@ texinfo")))))
|
(dummy-package "x" (synopsis (identity "Bad $@ texinfo"))))))
|
||||||
|
|
||||||
(test-equal "synopsis: does not start with an upper-case letter"
|
(test-equal "synopsis: does not start with an upper-case letter"
|
||||||
"synopsis should start with an upper-case letter or digit"
|
"synopsis should start with an upper-case letter or digit"
|
||||||
|
|
Reference in New Issue