diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2022-08-02 14:48:59 +0200 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2022-08-08 11:22:32 +0200 |
| commit | 3eb3901d7f1d4aae134cb64aa703af67c3c27cdf (patch) | |
| tree | 00cdf5d04ddd7f8ed035a5d9125a43ba35342d61 /tests | |
| parent | 5b273e7c777cc975d398df9f9a6847b935cb5e86 (diff) | |
style: Adjust test to not emit blank lines.
Previously this test would produce a file containing blank lines between
inputs.
* tests/style.scm ("input labels, modify-inputs and margin comment"):
Remove trailing newlines in replacement strings of 'substitute*'
expression.
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/style.scm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/tests/style.scm b/tests/style.scm index 4ac5ae7c092..6aab2c3785b 100644 --- a/tests/style.scm +++ b/tests/style.scm | |||
| @@ -355,9 +355,9 @@ | |||
| 355 | 355 | ||
| 356 | (substitute* file | 356 | (substitute* file |
| 357 | ((",gmp\\)(.*)$" _ rest) | 357 | ((",gmp\\)(.*)$" _ rest) |
| 358 | (string-append ",gmp) ;margin comment\n" rest)) | 358 | (string-append ",gmp) ;margin comment" rest)) |
| 359 | ((",acl\\)(.*)$" _ rest) | 359 | ((",acl\\)(.*)$" _ rest) |
| 360 | (string-append ",acl) ;another one\n" rest))) | 360 | (string-append ",acl) ;another one" rest))) |
| 361 | 361 | ||
| 362 | (system* "guix" "style" "-L" directory "-S" "inputs" | 362 | (system* "guix" "style" "-L" directory "-S" "inputs" |
| 363 | "my-coreutils") | 363 | "my-coreutils") |
