diff options
| author | Yarl Baudig <yarl-baudig@mailoo.org> | 2026-02-07 02:16:01 +0100 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2026-02-10 11:36:16 +0100 |
| commit | a06c9b0ff721a5ec3f0c214cc92dc00175595dab (patch) | |
| tree | f1f56ad916134986d6c8e953edde95be5e084a79 /tests | |
| parent | afcfe2bc3cba9c1c48a63f7cb0202ee6593c1c19 (diff) | |
store: Make derivation-path? use direct-store-path?.
* guix/store.scm (derivation-path?): Use direct-store-path? instead of
store-path?.
* tests/store.scm (derivation-path?): New test.
Change-Id: Ib54b9e2045f19f26039cf072eeb79dab8f0195be
Signed-off-by: Ludovic Courtès <ludo@gnu.org>
Merges: #6192
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/store.scm | 12 |
1 files changed, 12 insertions, 0 deletions
diff --git a/tests/store.scm b/tests/store.scm index 1f69f14cdcd..2eb6b778396 100644 --- a/tests/store.scm +++ b/tests/store.scm | |||
| @@ -109,6 +109,18 @@ | |||
| 109 | "/283gqy39v3g9dxjy26rynl0zls82fmcg-guile-2.0.7/bin/guile"))) | 109 | "/283gqy39v3g9dxjy26rynl0zls82fmcg-guile-2.0.7/bin/guile"))) |
| 110 | (not (direct-store-path? (%store-prefix))))) | 110 | (not (direct-store-path? (%store-prefix))))) |
| 111 | 111 | ||
| 112 | (test-assert "derivation-path?" | ||
| 113 | (and (derivation-path? | ||
| 114 | (string-append (%store-prefix) | ||
| 115 | "/283gqy39v3g9dxjy26rynl0zls82fmcg-guile-2.0.7.drv")) | ||
| 116 | (not (derivation-path? | ||
| 117 | (string-append (%store-prefix) | ||
| 118 | "/283gqy39v3g9dxjy26rynl0zls82fmcg-guile-2.0.7"))) | ||
| 119 | (not (derivation-path? | ||
| 120 | (string-append | ||
| 121 | (%store-prefix) | ||
| 122 | "/283gqy39v3g9dxjy26rynl0zls82fmcg-guile-2.0.7/guile.drv"))))) | ||
| 123 | |||
| 112 | (test-skip (if %store 0 18)) | 124 | (test-skip (if %store 0 18)) |
| 113 | 125 | ||
| 114 | (test-equal "substitute-urls, default" | 126 | (test-equal "substitute-urls, default" |