diff options
| author | Marius Bakke <marius@gnu.org> | 2022-07-22 01:09:14 +0200 |
|---|---|---|
| committer | Marius Bakke <marius@gnu.org> | 2022-07-22 01:09:14 +0200 |
| commit | 9044b086ddca64a62966a83cbf1b82d32dece89e (patch) | |
| tree | 2c7f910c9100b2f2a752d07fe0ec44be83fb7600 /tests/graph.scm | |
| parent | 5dfc6ab1ab292b87ceea144aa661d0e64c834031 (diff) | |
| parent | abea091dbef2d44e6eb46bd2413bdf917e14d095 (diff) | |
| download | guix-9044b086ddca64a62966a83cbf1b82d32dece89e.tar guix-9044b086ddca64a62966a83cbf1b82d32dece89e.tar.gz | |
Merge branch 'staging' into core-updates
Diffstat (limited to 'tests/graph.scm')
| -rw-r--r-- | tests/graph.scm | 24 |
1 files changed, 12 insertions, 12 deletions
diff --git a/tests/graph.scm b/tests/graph.scm index baa08a6be2..6aa2d0e0ff 100644 --- a/tests/graph.scm +++ b/tests/graph.scm @@ -1,5 +1,5 @@ ;;; GNU Guix --- Functional package management for GNU -;;; Copyright © 2015, 2016, 2017, 2018, 2019, 2020, 2021 Ludovic Courtès <ludo@gnu.org> +;;; Copyright © 2015-2022 Ludovic Courtès <ludo@gnu.org> ;;; ;;; This file is part of GNU Guix. ;;; @@ -244,10 +244,10 @@ edges." edges))))))))) (test-assert "reverse bag DAG" - (let-values (((dune bap ocaml-base) - (values (specification->package "ocaml4.07-dune") - (specification->package "bap") - (specification->package "ocaml4.07-base"))) + (let-values (((dune camomile utop) + (values (specification->package "dune") + (specification->package "ocaml-camomile") + (specification->package "ocaml-utop"))) ((backend nodes+edges) (make-recording-backend))) (run-with-store %store (export-graph (list dune) 'port @@ -256,17 +256,17 @@ edges." (run-with-store %store (mlet %store-monad ((dune-drv (package->derivation dune)) - (bap-drv (package->derivation bap)) - (ocaml-base-drv (package->derivation ocaml-base))) - ;; OCAML-BASE uses 'dune-build-system' so DUNE is a direct dependency. - ;; BAP is much higher in the stack but it should be there. + (camomile-drv (package->derivation camomile)) + (utop-drv (package->derivation utop))) + ;; CAMOMILE uses 'dune-build-system' so DUNE is a direct dependency. + ;; UTOP is much higher in the stack but it should be there. (let-values (((nodes edges) (nodes+edges))) (return - (and (member `(,(derivation-file-name bap-drv) - ,(package-full-name bap)) + (and (member `(,(derivation-file-name camomile-drv) + ,(package-full-name camomile)) nodes) (->bool (member (map derivation-file-name - (list dune-drv ocaml-base-drv)) + (list dune-drv utop-drv)) edges))))))))) (test-assert "derivation DAG" |