[gnunet-scheme] 02/02: fs/network: Fix argument order of 'construct-request-loc-signature'.

[gnunet]

This is an automated email from the git hooks/post-receive script.

maxime-devos pushed a commit to branch master
in repository gnunet-scheme.

commit 6b5ff8dac9913057c89bd94130be75456ca971a8
Author: Maxime Devos <maximedevos@telenet.be>
AuthorDate: Tue Dec 20 14:39:15 2022 +0100

    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.
---
 gnu/gnunet/fs/network.scm | 3 ++-
 tests/file-sharing.scm    | 4 ++--
 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))
 

-- 
To stop receiving notification emails like this one, please contact
gnunet@gnunet.org.