This patch fixes the test suite to allow any order when listing the
members of a JSON object.  Aeson (being true to the JSON specification)
does not specify an order for objects.  In practice, the order depends
on your processor architecture.

See <https://github.com/bos/aeson/issues/568> for a discussion resulting
in a similar patch fixing the Aeson tests.

See <https://github.com/fosskers/microlens-aeson/issues/1> for the
upstream bug report.

diff -ruN a/test/Test.hs b/test/Test.hs
--- a/test/Test.hs	2018-12-31 15:10:50.000000000 -0500
+++ b/test/Test.hs	2019-11-08 01:34:07.419706831 -0500
@@ -48,8 +48,10 @@
     , testCase "" $ ("{\"a\": {}, \"b\": null}" ^? key (T.pack "b") . _Object) @?= Nothing
     , testCase "" $ ("{\"a\": 100, \"b\": 200}" ^? key (T.pack "a")) @?= Just (Number 100.0)
     , testCase "" $ ("[1,2,3]" ^? key (T.pack "a")) @?= Nothing
-    , testCase "" $ ("{\"a\": 4, \"b\": 7}" ^.. members) @?= [Number 4.0,Number 7.0]
-    , testCase "" $ ("{\"a\": 4, \"b\": 7}" & members . _Number %~ (* 10)) @?= "{\"a\":40,\"b\":70}"
+    , testCase "" $ assertBool "" (let x = ("{\"a\": 4, \"b\": 7}" ^.. members)
+                                   in x == [Number 4.0,Number 7.0] || x == [Number 7.0,Number 4.0])
+    , testCase "" $ assertBool "" (let x = ("{\"a\": 4, \"b\": 7}" & members . _Number %~ (* 10))
+                                   in x == "{\"a\":40,\"b\":70}" || x == "{\"b\":70,\"a\":40}")
     , testCase "" $ ("[1,2,3]" ^? nth 1) @?= Just (Number 2.0)
     , testCase "" $ ("{\"a\": 100, \"b\": 200}" ^? nth 1) @?= Nothing
     , testCase "" $ ("[1,2,3]" & nth 1 .~ Number 20) @?= "[1,20,3]"
'author'>author</option>
<option value='committer'>committer</option>
<option value='range'>range</option>
</select>
<input class='txt' type='search' size='10' name='q' value=''/>
<input type='submit' value='search'/>
</form>
</td></tr></table>
<div class='path'>path: <a href='/guix/log/?id=3344567bb14b8445495e402f0043dcf23f588242'>root</a>/<a href='/guix/log/THANKS?id=3344567bb14b8445495e402f0043dcf23f588242'>THANKS</a></div><div class='content'><table class='list nowrap'><tr class='nohover'><th class='left'>Age</th><th class='left'>Commit message (<a href='/guix/log/THANKS?id=3344567bb14b8445495e402f0043dcf23f588242&amp;showmsg=1'>Expand</a>)</th><th class='left'>Author</th></tr>
<tr><td><span title='2021-09-12 22:52:58 -0400'>2021-09-12</span></td><td><a href='/guix/commit/THANKS?id=53f54d4aa252fed425180641f27094600522c4f1'>Thank Christine under her updated name.</a></td><td>Christine Lemmer-Webber</td></tr>
42ab6658f163a53988b53&amp;showmsg=1'>Expand</a>)</th><th class='left'>Author</th></tr>
<tr><td><span title='2023-10-05 23:14:54 +0200'>2023-10-05</span></td><td><a href='/guix/commit/gnu/system/accounts.scm?id=97927608cb4f9c5d721115f1cb638de17ac38e62'>Revert "system: accounts: Export &lt;user-account&gt;."</a><span class='msg-avail'>...<span class='msg-tooltip'>This reverts commit 03795e2ba27424fc98957da00f6c71325e7ae425.
Fixes &lt;https://issues.guix.gnu.org/66279&gt;.
</span></span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2023-08-20 02:00:00 +0200'>2023-08-20</span></td><td><a href='/guix/commit/gnu/system/accounts.scm?id=5a2c3352d8f8a08a5ba01542a3f282799e503d33'>Revert "gnu: system: Add home-directory-permissions field to &lt;user-account&gt;."</a><span class='msg-avail'>...<span class='msg-tooltip'>This reverts commit e9a5eebc785cb843034b38c5c5a6dd10904bdf2a, which
as far as I can tell breaks system roll-backs thusly:

[...]
In gnu/build/accounts.scm:
   239:27  3 (_ #&lt;&lt;password-entry&gt; name: "root" password: "x" uid: 0 gid: 0 real-name: "System &gt;)
In unknown file:
           2 (string-join ("root" "x" "0" "0" "System administrator" "/root" #t) ":" #&lt;undefined&gt;)
In ice-9/boot-9.scm:
  1685:16  1 (raise-exception _ #:continuable? _)
  1685:16  0 (raise-exception _ #:continuable? _)

ice-9/boot-9.scm:1685:16: In procedure raise-exception:
In procedure string-append: Wrong type (expecting string): #t
</span></span></td><td>Tobias Geerinckx-Rice</td></tr>
<tr><td><span title='2023-08-25 15:12:54 +0200'>2023-08-25</span></td><td><a href='/guix/commit/gnu/system/accounts.scm?id=e9a5eebc785cb843034b38c5c5a6dd10904bdf2a'>gnu: system: Add home-directory-permissions field to &lt;user-account&gt;.</a><span class='msg-avail'>...<span class='msg-tooltip'>* gnu/system/accounts.scm (&lt;user-account&gt;)[home-directory-permissions]: New
field.
(user-account-home-directory-permissions): New accessor.
* gnu/build/activation.scm (activate-users+groups): Use home directory
permission bits from the user account object.
* doc/guix.texi (User Accounts): Document new field.

Signed-off-by: Josselin Poiret &lt;dev@jpoiret.xyz&gt;
</span></span></td><td>David Thompson</td></tr>
<tr><td><span title='2023-07-26 10:40:16 -0400'>2023-07-26</span></td><td><a href='/guix/commit/gnu/system/accounts.scm?id=03795e2ba27424fc98957da00f6c71325e7ae425'>system: accounts: Export &lt;user-account&gt;.</a></td><td>Maxim Cournoyer</td></tr>