tests: Adjust reverse-bag graph test to recent OCaml changes.

This is a followup to 87858bc526.

Partly fixes <https://bugs.gnu.org/39374>.
Reported by Ellen Papsch <ellen.papsch@wine-logistix.de>.

* tests/graph.scm ("reverse bag DAG"): Adjust test to latest OCaml
changes.
This commit is contained in:
Ludovic Courtès 2020-02-05 14:47:52 +01:00
parent 895363e4cf
commit 312df1d40c
No known key found for this signature in database
GPG key ID: 090B11993D9AEBB5

View file

@ -1,5 +1,5 @@
;;; GNU Guix --- Functional package management for GNU ;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2015, 2016, 2017, 2018, 2019 Ludovic Courtès <ludo@gnu.org> ;;; Copyright © 2015, 2016, 2017, 2018, 2019, 2020 Ludovic Courtès <ludo@gnu.org>
;;; ;;;
;;; This file is part of GNU Guix. ;;; This file is part of GNU Guix.
;;; ;;;
@ -195,7 +195,7 @@ (define (edge->tuple source target)
(let-values (((dune bap ocaml-base) (let-values (((dune bap ocaml-base)
(values (specification->package "dune") (values (specification->package "dune")
(specification->package "bap") (specification->package "bap")
(specification->package "ocaml-base"))) (specification->package "ocaml4.07-base")))
((backend nodes+edges) (make-recording-backend))) ((backend nodes+edges) (make-recording-backend)))
(run-with-store %store (run-with-store %store
(export-graph (list dune) 'port (export-graph (list dune) 'port