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>
This commit is contained in:
Robert Vollmert 2019-06-16 16:55:36 +02:00 committed by Ludovic Courtès
parent 3149c00264
commit b46a9b9a5e
No known key found for this signature in database
GPG Key ID: 090B11993D9AEBB5
1 changed files with 50 additions and 2 deletions

View File

@ -1,5 +1,6 @@
;;; GNU Guix --- Functional package management for GNU ;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2015 Federico Beffa <beffa@fbengineering.ch> ;;; Copyright © 2015 Federico Beffa <beffa@fbengineering.ch>
;;; Copyright © 2019 Robert Vollmert <rob@vllmrt.net>
;;; ;;;
;;; This file is part of GNU Guix. ;;; This file is part of GNU Guix.
;;; ;;;
@ -236,7 +237,7 @@ library
(test-assert "hackage->guix-package test 6" (test-assert "hackage->guix-package test 6"
(eval-test-with-cabal test-cabal-6 match-ghc-foo-6)) (eval-test-with-cabal test-cabal-6 match-ghc-foo-6))
;; Check multi-line layouted description ;; Check multi-line layouted description.
(define test-cabal-multiline-layout (define test-cabal-multiline-layout
"name: foo "name: foo
version: 1.0.0 version: 1.0.0
@ -254,7 +255,7 @@ executable cabal
(test-assert "hackage->guix-package test multiline desc (layout)" (test-assert "hackage->guix-package test multiline desc (layout)"
(eval-test-with-cabal test-cabal-multiline-layout match-ghc-foo)) (eval-test-with-cabal test-cabal-multiline-layout match-ghc-foo))
;; Check multi-line braced description ;; Check multi-line braced description.
(define test-cabal-multiline-braced (define test-cabal-multiline-braced
"name: foo "name: foo
version: 1.0.0 version: 1.0.0
@ -274,6 +275,53 @@ executable cabal
(test-assert "hackage->guix-package test multiline desc (braced)" (test-assert "hackage->guix-package test multiline desc (braced)"
(eval-test-with-cabal test-cabal-multiline-braced match-ghc-foo)) (eval-test-with-cabal test-cabal-multiline-braced match-ghc-foo))
;; Check mixed layout. Compare e.g. warp.
(define test-cabal-mixed-layout
"name: foo
version: 1.0.0
homepage: http://test.org
synopsis: synopsis
description: description
license: BSD3
executable cabal
build-depends:
HTTP >= 4000.2.5 && < 4000.3,
mtl >= 2.0 && < 3
ghc-options: -Wall
")
;; Fails: https://debbugs.gnu.org/cgi/bugreport.cgi?bug=35743
(test-expect-fail 1)
(test-assert "hackage->guix-package test mixed layout"
(eval-test-with-cabal test-cabal-mixed-layout match-ghc-foo))
;; Check flag executable. Compare e.g. darcs.
(define test-cabal-flag-executable
"name: foo
version: 1.0.0
homepage: http://test.org
synopsis: synopsis
description: description
license: BSD3
flag executable
description: Build executable
default: True
executable cabal
if !flag(executable)
buildable: False
else
buildable: True
build-depends:
HTTP >= 4000.2.5 && < 4000.3,
mtl >= 2.0 && < 3
")
;; Fails: https://debbugs.gnu.org/cgi/bugreport.cgi?bug=25138
(test-expect-fail 1)
(test-assert "hackage->guix-package test flag executable"
(eval-test-with-cabal test-cabal-flag-executable match-ghc-foo))
;; Check Hackage Cabal revisions. ;; Check Hackage Cabal revisions.
(define test-cabal-revision (define test-cabal-revision
"name: foo "name: foo