import/utils: Allow `find-version' to match an over-specified version.

This fixes the use case of using --target-version with an exact
match (--target-version causes the partial? mode to be enabled).

* tests/import/utils.scm ("find-version, latest")
("find-version, empty versions list")
("find-version, partial, under-specified")
("find-version, partial, exact")
("find-version, partial, over-specified"): New tests.
* guix/import/utils.scm (find-version): [PARTIAL?]: Truncate VERSION to the
maximum length of VERSIONS.  Explicitly handle the empty versions case.

1 files changed, 25 insertions, 0 deletions

diff --git a/tests/import/utils.scm b/tests/import/utils.scm
index c82fef78ec7..44559e2c237 100644
--- a/tests/import/utils.scm
+++ b/tests/import/utils.scm
@@ -281,6 +281,31 @@ Differences are hard to spot, e.g. in CLOS vs. GOOPS."))
   (map spdx-string->license
        '("GPL-3.0-oR-LaTeR" "AGPL-3.0" "GPL-2.0+")))
 
+
+;;;
+;;; find-version.
+;;;
+
+(test-equal "find-version, empty versions list"
+  #f
+  (find-version '()))
+
+(test-equal "find-version, latest"
+  "6.11.1"
+  (find-version '("6.9" "6.8" "6.5" "6.11.1" "6.10.3")))
+
+(test-equal "find-version, partial, exact"
+  "6.10.3"
+  (find-version '("6.9" "6.8" "6.5" "6.11.1" "6.10.3") "6.10.3" #t))
+
+(test-equal "find-version, partial, under-specified"
+  "6.10.3"
+  (find-version '("6.9" "6.8" "6.5" "6.11.1" "6.10.3") "6.10" #t))
+
+(test-equal "find-version, partial, over-specified"
+  "6.10"
+  (find-version '("6.9" "6.8" "6.5" "6.11" "6.10") "6.10.3" #t))
+
 ;;;
 ;;; default-git-error
 ;;;