Re: [PATCH] utils: file-extension should work with urls.

[David Craven <david@craven.ch>]

This patch causes a test failure. Any ideas on how to do it better?
I'll push the rust stuff in the meantime, since there is nothing
technically wrong with the updater itself.

test-name: /*.narinfo for a compressed file
location: /home/dvc/guix/tests/publish.scm:218
source:
+ (test-equal
+   "/*.narinfo for a compressed file"
+   '("none" "nar")
+   (let* ((item (add-text-to-store
+                  %store
+                  "fake.tar.gz"
+                  "This is a fake compressed file."))
+          (url (string-append
+                 "http://localhost:6799/"
+                 (store-path-hash-part item)
+                 ".narinfo"))
+          (body (http-get-port url))
+          (info (recutils->alist body)))
+     (list (assoc-ref info "Compression")
+           (dirname (assoc-ref info "URL")))))
expected-value: (none nar)
actual-value: (gzip nar/gzip)
result: FAIL