fs/network: Fix argument order of 'construct-request-loc-signature'.

Now it is compatible with 'analyse-request-loc-signature', making the
test "analyse + construct round-trips (request-loc-signature)" pass.

* gnu/gnunet/fs/network.scm: Switch 'file-length' and
'content-hash-key'.
* tests/file-sharing.scm
("analyse + construct round-trips (request-loc-signature)"): Unskip.

2 files changed, 4 insertions, 3 deletions

diff --git a/gnu/gnunet/fs/network.scm b/gnu/gnunet/fs/network.scm
index 97a66ab..3519aae 100644
--- a/gnu/gnunet/fs/network.scm
+++ b/gnu/gnunet/fs/network.scm
@@ -42,7 +42,8 @@
     ;; (see gnunet-signatures/gnunet_signatures.rst)
     (define %purpose-peer-placement 5)
 
-    (define* (construct-request-loc-signature content-hash-key file-length
+    (define* (construct-request-loc-signature file-length
+                                              content-hash-key
                                               expiration-time
                                               #:key
                                               (purpose %purpose-peer-placement))
diff --git a/tests/file-sharing.scm b/tests/file-sharing.scm
index 0f9947c..fc3839e 100644
--- a/tests/file-sharing.scm
+++ b/tests/file-sharing.scm
@@ -46,12 +46,12 @@
 (define $file-length $natural) ; TODO bounds
 (define $purpose $natural) ; TODO bounds
 (define $expiration-time $natural) ; TODO bounds
-(test-expect-fail 1)
+
 (test-roundtrip "analyse + construct round-trips (request-loc-signature)"
                 analyse-request-loc-signature construct-request-loc-signature*
                 normalise
-                (content-hash-key $content-hash-key)
                 (file-length $file-length)
+                (content-hash-key $content-hash-key)
                 (expiration-time $expiration-time)
                 (purpose $purpose))