guix/guix
3
5
Fork 0
mirror of git://git.savannah.gnu.org/guix.git synced 2023-12-14 03:33:07 +01:00
Code Issues Releases Wiki Activity

tests: Add new test cases for beautify-description.

Browse source 
* tests/import-utils.scm ("beautify-description: use double spacing"): Update.
("beautify-description: remove single quotes",
"beautify-description: escape @"): New tests.
This commit is contained in:
Ricardo Wurmus 2022-10-05 23:45:23 +02:00
parent 9be5f88e18
commit 421a87a68a
No known key found for this signature in database
GPG key ID: 197A5888235FACAC
1 changed files with 16 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

19
tests/import-utils.scm
View file

@ -1,5 +1,5 @@
;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2015, 2017 Ricardo Wurmus <rekado@elephly.net>
;;; Copyright © 2015, 2017, 2022 Ricardo Wurmus <rekado@elephly.net>
;;; Copyright © 2016 Ben Woodcroft <donttrustben@gmail.com>
;;; Copyright © 2020 Martin Becze <mjbecze@riseup.net>
;;; Copyright © 2021 Sarah Morgensen <iskarian@mgsn.dev>
@ -32,14 +32,27 @@
(test-begin "import-utils")
(test-equal "beautify-description: use double spacing"
"This is a package. It is great. Trust me Mr. Hendrix."
"\
Trust me Mr. Hendrix, M. Night Shyamalan et al. \
Differences are hard to spot,
e.g. in CLOS vs. GOOPS."
(beautify-description
"This is a package. It is great. Trust me Mr. Hendrix."))
"
Trust me Mr. Hendrix, M. Night Shyamalan et al. \
Differences are hard to spot, e.g. in CLOS vs. GOOPS."))
(test-equal "beautify-description: transform fragment into sentence"
"This package provides a function to establish world peace"
(beautify-description "A function to establish world peace"))
(test-equal "beautify-description: remove single quotes"
"CRAN likes to quote acronyms and function names."
(beautify-description "CRAN likes to 'quote' acronyms and 'function' names."))
(test-equal "beautify-description: escape @"
"This @@ is not Texinfo syntax. Neither is this %@@>%."
(beautify-description "This @ is not Texinfo syntax. Neither is this %@>%."))
(test-equal "license->symbol"
'license:lgpl2.0
(license->symbol license:lgpl2.0))