summaryrefslogtreecommitdiff
path: root/tests/hackage.scm
diff options
context:
space:
mode:
authorRobert Vollmert <rob@vllmrt.net>2019-06-16 16:55:36 +0200
committerLudovic Courtès <ludo@gnu.org>2019-06-20 14:07:01 +0200
commitb46a9b9a5e833989396565c9d924cc97ce080703 (patch)
tree9e37fd3e5c881824bafbb169f32d9607ec86b40d /tests/hackage.scm
parent3149c002644b927e0245d237cdda3a6aeca00e4a (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>
Diffstat (limited to 'tests/hackage.scm')
-rw-r--r--tests/hackage.scm52
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
242version: 1.0.0 243version: 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
260version: 1.0.0 261version: 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
281version: 1.0.0
282homepage: http://test.org
283synopsis: synopsis
284description: description
285license: BSD3
286executable 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
301version: 1.0.0
302homepage: http://test.org
303synopsis: synopsis
304description: description
305license: BSD3
306flag executable
307 description: Build executable
308 default: True
309executable 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