diff options
| author | Robert Vollmert <rob@vllmrt.net> | 2019-06-16 16:55:36 +0200 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2019-06-20 14:07:01 +0200 |
| commit | b46a9b9a5e833989396565c9d924cc97ce080703 (patch) | |
| tree | 9e37fd3e5c881824bafbb169f32d9607ec86b40d | |
| parent | 3149c002644b927e0245d237cdda3a6aeca00e4a (diff) | |
import: hackage: Add two expected failing test cases.
This adds failing test cases for two hackage import bugs:
https://debbugs.gnu.org/cgi/bugreport.cgi?bug=25138
https://debbugs.gnu.org/cgi/bugreport.cgi?bug=35743
* tests/hackage.scm: Make comment style consistent. Add two
cabal parsing tests, marked as expected failures.
Signed-off-by: Ludovic Courtès <ludo@gnu.org>
| -rw-r--r-- | tests/hackage.scm | 52 |
1 files changed, 50 insertions, 2 deletions
diff --git a/tests/hackage.scm b/tests/hackage.scm index 14176b2cf9e..77e333cbfcb 100644 --- a/tests/hackage.scm +++ b/tests/hackage.scm | |||
| @@ -1,5 +1,6 @@ | |||
| 1 | ;;; GNU Guix --- Functional package management for GNU | 1 | ;;; GNU Guix --- Functional package management for GNU |
| 2 | ;;; Copyright © 2015 Federico Beffa <beffa@fbengineering.ch> | 2 | ;;; Copyright © 2015 Federico Beffa <beffa@fbengineering.ch> |
| 3 | ;;; Copyright © 2019 Robert Vollmert <rob@vllmrt.net> | ||
| 3 | ;;; | 4 | ;;; |
| 4 | ;;; This file is part of GNU Guix. | 5 | ;;; This file is part of GNU Guix. |
| 5 | ;;; | 6 | ;;; |
| @@ -236,7 +237,7 @@ library | |||
| 236 | (test-assert "hackage->guix-package test 6" | 237 | (test-assert "hackage->guix-package test 6" |
| 237 | (eval-test-with-cabal test-cabal-6 match-ghc-foo-6)) | 238 | (eval-test-with-cabal test-cabal-6 match-ghc-foo-6)) |
| 238 | 239 | ||
| 239 | ;; Check multi-line layouted description | 240 | ;; Check multi-line layouted description. |
| 240 | (define test-cabal-multiline-layout | 241 | (define test-cabal-multiline-layout |
| 241 | "name: foo | 242 | "name: foo |
| 242 | version: 1.0.0 | 243 | version: 1.0.0 |
| @@ -254,7 +255,7 @@ executable cabal | |||
| 254 | (test-assert "hackage->guix-package test multiline desc (layout)" | 255 | (test-assert "hackage->guix-package test multiline desc (layout)" |
| 255 | (eval-test-with-cabal test-cabal-multiline-layout match-ghc-foo)) | 256 | (eval-test-with-cabal test-cabal-multiline-layout match-ghc-foo)) |
| 256 | 257 | ||
| 257 | ;; Check multi-line braced description | 258 | ;; Check multi-line braced description. |
| 258 | (define test-cabal-multiline-braced | 259 | (define test-cabal-multiline-braced |
| 259 | "name: foo | 260 | "name: foo |
| 260 | version: 1.0.0 | 261 | version: 1.0.0 |
| @@ -274,6 +275,53 @@ executable cabal | |||
| 274 | (test-assert "hackage->guix-package test multiline desc (braced)" | 275 | (test-assert "hackage->guix-package test multiline desc (braced)" |
| 275 | (eval-test-with-cabal test-cabal-multiline-braced match-ghc-foo)) | 276 | (eval-test-with-cabal test-cabal-multiline-braced match-ghc-foo)) |
| 276 | 277 | ||
| 278 | ;; Check mixed layout. Compare e.g. warp. | ||
| 279 | (define test-cabal-mixed-layout | ||
| 280 | "name: foo | ||
| 281 | version: 1.0.0 | ||
| 282 | homepage: http://test.org | ||
| 283 | synopsis: synopsis | ||
| 284 | description: description | ||
| 285 | license: BSD3 | ||
| 286 | executable cabal | ||
| 287 | build-depends: | ||
| 288 | HTTP >= 4000.2.5 && < 4000.3, | ||
| 289 | mtl >= 2.0 && < 3 | ||
| 290 | ghc-options: -Wall | ||
| 291 | ") | ||
| 292 | |||
| 293 | ;; Fails: https://debbugs.gnu.org/cgi/bugreport.cgi?bug=35743 | ||
| 294 | (test-expect-fail 1) | ||
| 295 | (test-assert "hackage->guix-package test mixed layout" | ||
| 296 | (eval-test-with-cabal test-cabal-mixed-layout match-ghc-foo)) | ||
| 297 | |||
| 298 | ;; Check flag executable. Compare e.g. darcs. | ||
| 299 | (define test-cabal-flag-executable | ||
| 300 | "name: foo | ||
| 301 | version: 1.0.0 | ||
| 302 | homepage: http://test.org | ||
| 303 | synopsis: synopsis | ||
| 304 | description: description | ||
| 305 | license: BSD3 | ||
| 306 | flag executable | ||
| 307 | description: Build executable | ||
| 308 | default: True | ||
| 309 | executable cabal | ||
| 310 | if !flag(executable) | ||
| 311 | buildable: False | ||
| 312 | else | ||
| 313 | buildable: True | ||
| 314 | |||
| 315 | build-depends: | ||
| 316 | HTTP >= 4000.2.5 && < 4000.3, | ||
| 317 | mtl >= 2.0 && < 3 | ||
| 318 | ") | ||
| 319 | |||
| 320 | ;; Fails: https://debbugs.gnu.org/cgi/bugreport.cgi?bug=25138 | ||
| 321 | (test-expect-fail 1) | ||
| 322 | (test-assert "hackage->guix-package test flag executable" | ||
| 323 | (eval-test-with-cabal test-cabal-flag-executable match-ghc-foo)) | ||
| 324 | |||
| 277 | ;; Check Hackage Cabal revisions. | 325 | ;; Check Hackage Cabal revisions. |
| 278 | (define test-cabal-revision | 326 | (define test-cabal-revision |
| 279 | "name: foo | 327 | "name: foo |
