~ruther/guix-local

5075e28305e633837c214706dd09d3db3ec75eb1 — Ludovic Courtès 13 years ago ef1ee6b
guix-package: Extract version strings when installing a direct store path.

* guix-package.in (guix-package)[process-actions]: Extract the version
  string from store paths.
* tests/guix-package.sh: Adjust accordingly.
2 files changed, 12 insertions(+), 6 deletions(-)

M guix-package.in
M tests/guix-package.sh
M guix-package.in => guix-package.in +5 -2
@@ 338,8 338,11 @@ Report bugs to: ~a.~%") "@PACKAGE_BUGREPORT@"))
           (install* (append
                      (filter-map (match-lambda
                                   (('install . (? store-path? path))
                                    `(,(store-path-package-name path)
                                      #f #f ,path))
                                    (let-values (((name version)
                                                  (package-name->name+version
                                                   (store-path-package-name
                                                    path))))
                                     `(,name ,version #f ,path)))
                                   (_ #f))
                                  opts)
                      (map (lambda (tuple drv)

M tests/guix-package.sh => tests/guix-package.sh +7 -4
@@ 42,12 42,15 @@ test -f "$profile/bin/make" && test -f "$profile/bin/guile"
# name and version string.
installed="`guix-package -p "$profile" --list-installed | cut -f1 | xargs echo | sort`"
case "x$installed" in
    "guile* make*") true;;
    "make* guile*") true;;
    "*")            false;;
    "guile-bootstrap make-boot0")
	true;;
    "make-boot0 guile-bootstrap")
	true;;
    "*")
        false;;
esac

test "`guix-package -p "$profile" -I 'g.*e' | cut -f1`" = "guile-bootstrap-2.0"
test "`guix-package -p "$profile" -I 'g.*e' | cut -f1`" = "guile-bootstrap"

# Remove a package.
guix-package -b -p "$profile" -r "guile-bootstrap-2.0"