This patch fixes Curl related tests for 'translate-shell'.

Upstream bug URL:

https://github.com/soimort/translate-shell/issues/221

From bb9f32d3145125ba664b6b05bf0a2fd34108e9d2 Mon Sep 17 00:00:00 2001
From: Mort Yao <soi@mort.ninja>
Date: Sun, 25 Mar 2018 03:14:33 +0200
Subject: [PATCH] TestUtils: perform curl-related tests only if NETWORK_ACCESS
 is set to yes (#221)

---
 test/TestUtils.awk | 32 +++++++++++++++++---------------
 1 file changed, 17 insertions(+), 15 deletions(-)

diff --git a/test/TestUtils.awk b/test/TestUtils.awk
index 08bb2e9..1c141e5 100644
--- a/test/TestUtils.awk
+++ b/test/TestUtils.awk
@@ -30,22 +30,24 @@ BEGIN {
         assertTrue(newerVersion("2", "1.9.9999"))
     }
 
-    T("curl()", 1)
-    {
-        delete tokens; delete ast
-        tokenize(tokens, curl("https://httpbin.org/get"))
-        parseJson(ast, tokens)
-        assertEqual(unparameterize(ast[0 SUBSEP "url"]),
-                    "https://httpbin.org/get")
-    }
+    if (yn(ENVIRON["NETWORK_ACCESS"])) { # if network access enabled
+        T("curl()", 1)
+        {
+            delete tokens; delete ast
+            tokenize(tokens, curl("https://httpbin.org/get"))
+            parseJson(ast, tokens)
+            assertEqual(unparameterize(ast[0 SUBSEP "url"]),
+                        "https://httpbin.org/get")
+        }
 
-    T("curlPost()", 1)
-    {
-        delete tokens; delete ast
-        tokenize(tokens, curlPost("https://httpbin.org/post", "fizz=buzz"))
-        parseJson(ast, tokens)
-        assertEqual(unparameterize(ast[0 SUBSEP "url"]),
-                    "https://httpbin.org/post")
+        T("curlPost()", 1)
+        {
+            delete tokens; delete ast
+            tokenize(tokens, curlPost("https://httpbin.org/post", "fizz=buzz"))
+            parseJson(ast, tokens)
+            assertEqual(unparameterize(ast[0 SUBSEP "url"]),
+                        "https://httpbin.org/post")
+        }
     }
 
     T("dump()", 3)
lue=''/>
<input type='submit' value='search'/>
</form>
</td></tr></table>
<div class='path'>path: <a href='/guix/log/?id=f739b5f408e63cb21e0fbcb54e7d85923069de3a&amp;showmsg=1'>root</a>/<a href='/guix/log/tests?id=f739b5f408e63cb21e0fbcb54e7d85923069de3a&amp;showmsg=1'>tests</a>/<a href='/guix/log/tests/cran.scm?id=f739b5f408e63cb21e0fbcb54e7d85923069de3a&amp;showmsg=1'>cran.scm</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/tests/cran.scm?id=f739b5f408e63cb21e0fbcb54e7d85923069de3a'>Collapse</a>)</th><th class='left'>Author</th></tr>
<tr class='logheader'><td><span title='2021-12-18 04:09:47 +0100'>2021-12-18</span></td><td class='logsubject'><a href='/guix/commit/tests/cran.scm?id=10ceb3e84654e024f14a4b048e7d68492ed9dc7c'>import: cran: Fix description-&gt;package test.</a></td><td>Tobias Geerinckx-Rice</td></tr>
<tr class='nohover-highlight'><td/><td colspan='3' class='logmsg'>
This follows up on commit 5cd1019488c44081aaf030fbe8bc357d78daef23.

* tests/cran.scm (description): Include a very long line.
(description-&gt;package): Update the golden description to match the
paragraph filling now performed by BEAUTIFY-DESCRIPTION.


</td></tr>
<tr class='logheader'><td><span title='2021-07-11 00:49:16 +0200'>2021-07-11</span></td><td class='logsubject'><a href='/guix/commit/tests/cran.scm?id=aa6921634b4ea9988af0e37bfbb56780c431ef64'>import: cran: Emit new-style package inputs.</a></td><td>Ludovic Courtès</td></tr>
<tr class='nohover-highlight'><td/><td colspan='3' class='logmsg'>
* guix/import/cran.scm (format-inputs): Emit symbols or
'specification-&gt;package' calls.
(maybe-inputs): Wrap in 'list' instead of 'quasiquote'.
* tests/cran.scm ("description-&gt;package"): Adjust accordingly.


</td></tr>
<tr class='logheader'><td><span title='2020-01-16 23:14:05 +0100'>2020-01-16</span></td><td class='logsubject'><a href='/guix/commit/tests/cran.scm?id=cfd1ed84013df85f0e473884ef4038b4bd7120d4'>import: cran: Avoid uses of '@@' in the tests.</a></td><td>Ludovic Courtès</td></tr>
<tr class='nohover-highlight'><td/><td colspan='3' class='logmsg'>
* guix/import/cran.scm (description-&gt;alist, description-&gt;package): Export.
&lt;top level&gt;: Set! 'listify'.
* tests/cran.scm (description-alist, "description-&gt;package"): Remove use
of '@@' to access the relevant bindings.


</td></tr>