diff options
| author | Robert Vollmert <rob@vllmrt.net> | 2019-06-02 00:27:49 +0200 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2019-06-02 22:12:19 +0200 |
| commit | 64d31813577b7471f819652e3ec81abb285bb77c (patch) | |
| tree | ec4cf06b911ce2c74550c8fcc46fef6e2aa3c086 /tests/hackage.scm | |
| parent | ea35f5c599a2fe4d6ab2925b1030f64e8b21e195 (diff) | |
tests: hackage: Test multiline cabal description.
* tests/hackage.scm (test-cabal-multiline-desc): New variable.
("hackage->guix-package test multiline desc"): New test.
Signed-off-by: Ludovic Courtès <ludo@gnu.org>
Diffstat (limited to 'tests/hackage.scm')
| -rw-r--r-- | tests/hackage.scm | 19 |
1 files changed, 19 insertions, 0 deletions
diff --git a/tests/hackage.scm b/tests/hackage.scm index 269c1e1f9b4..2f45194fabd 100644 --- a/tests/hackage.scm +++ b/tests/hackage.scm | |||
| @@ -236,6 +236,25 @@ library | |||
| 236 | (test-assert "hackage->guix-package test 6" | 236 | (test-assert "hackage->guix-package test 6" |
| 237 | (eval-test-with-cabal test-cabal-6 match-ghc-foo-6)) | 237 | (eval-test-with-cabal test-cabal-6 match-ghc-foo-6)) |
| 238 | 238 | ||
| 239 | ;; Check multi-line layouted description | ||
| 240 | (define test-cabal-multiline-desc | ||
| 241 | "name: foo | ||
| 242 | version: 1.0.0 | ||
| 243 | homepage: http://test.org | ||
| 244 | synopsis: synopsis | ||
| 245 | description: first line | ||
| 246 | second line | ||
| 247 | license: BSD3 | ||
| 248 | executable cabal | ||
| 249 | build-depends: | ||
| 250 | HTTP >= 4000.2.5 && < 4000.3, | ||
| 251 | mtl >= 2.0 && < 3 | ||
| 252 | ") | ||
| 253 | |||
| 254 | (test-assert "hackage->guix-package test multiline desc" | ||
| 255 | (eval-test-with-cabal test-cabal-multiline-desc match-ghc-foo)) | ||
| 256 | |||
| 257 | |||
| 239 | (test-assert "read-cabal test 1" | 258 | (test-assert "read-cabal test 1" |
| 240 | (match (call-with-input-string test-read-cabal-1 read-cabal) | 259 | (match (call-with-input-string test-read-cabal-1 read-cabal) |
| 241 | ((("name" ("test-me")) | 260 | ((("name" ("test-me")) |
