diff options
| author | Marius Bakke <mbakke@fastmail.com> | 2019-06-20 23:08:16 +0200 |
|---|---|---|
| committer | Marius Bakke <mbakke@fastmail.com> | 2019-06-20 23:08:16 +0200 |
| commit | 651478aa18a3f575d3b4cc14166a15a1c45b0f61 (patch) | |
| tree | 87c27dc9eff3d321f7ad4a622b110c517856a104 /tests/utils.scm | |
| parent | 71c08ee60bb3f62bac0614888fb62405f7a388ab (diff) | |
| parent | 9a2e5fe5fdcc6ea848ceeefa0f70147dfb360639 (diff) | |
| download | guix-651478aa18a3f575d3b4cc14166a15a1c45b0f61.tar guix-651478aa18a3f575d3b4cc14166a15a1c45b0f61.tar.gz | |
Merge branch 'master' into staging
Diffstat (limited to 'tests/utils.scm')
| -rw-r--r-- | tests/utils.scm | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/tests/utils.scm b/tests/utils.scm index 44861384ab..f78ec356bd 100644 --- a/tests/utils.scm +++ b/tests/utils.scm @@ -230,6 +230,12 @@ skip these tests." "This is a journey\r\nInto the sound\r\nA journey ...\n"))) (get-string-all (canonical-newline-port port)))) +(test-equal "canonical-newline-port-1024" + (string-concatenate (make-list 100 "0123456789abcde\n")) + (let ((port (open-string-input-port + (string-concatenate + (make-list 100 "0123456789abcde\r\n"))))) + (get-string-all (canonical-newline-port port)))) (test-equal "edit-expression" "(display \"GNU Guix\")\n(newline)\n" |