Guix libarchive no support xar.

--- ark-20.04.1.orig/autotests/kerfuffle/loadtest.cpp	2020-12-23 08:46:15.780782601 +0800
+++ ark-20.04.1/autotests/kerfuffle/loadtest.cpp	2020-12-23 11:13:17.101724042 +0800
@@ -181,13 +181,6 @@
         qDebug() << "lz4 executable not found in path. Skipping lz4 test.";
     }
 
-    QTest::newRow("xar archive")
-            << QFINDTESTDATA("data/simplearchive.xar")
-            << QStringLiteral("simplearchive")
-            << true << false << false << false << false << 0 << Archive::Unencrypted
-            << QStringLiteral("simplearchive")
-            << QString();
-
     QTest::newRow("mimetype child of application/zip")
             << QFINDTESTDATA("data/test.odt")
             << QStringLiteral("test")
--- ark-20.04.1.orig/autotests/kerfuffle/extracttest.cpp	2020-12-23 08:46:15.780782601 +0800
+++ ark-20.04.1/autotests/kerfuffle/extracttest.cpp	2020-12-23 11:14:02.801809620 +0800
@@ -350,23 +350,6 @@
         qDebug() << "lz4 executable not found in path. Skipping lz4 test.";
     }
 
-    archivePath = QFINDTESTDATA("data/simplearchive.xar");
-    QTest::newRow("extract selected entries from a xar archive without path")
-            << archivePath
-            << QVector<Archive::Entry*> {
-                   new Archive::Entry(this, QStringLiteral("dir1/file11.txt"), QString()),
-                   new Archive::Entry(this, QStringLiteral("file4.txt"), QString())
-               }
-            << optionsNoPaths
-            << 2;
-
-    archivePath = QFINDTESTDATA("data/simplearchive.xar");
-    QTest::newRow("extract all entries from a xar archive with path")
-            << archivePath
-            << QVector<Archive::Entry*>()
-            << optionsPreservePaths
-            << 6;
-
     archivePath = QFINDTESTDATA("data/hello-1.0-x86_64.AppImage");
     QTest::newRow("extract all entries from an AppImage with path")
             << archivePath
='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=1f017bf7d031f9aaef415a6b726bc488c733a9c4&amp;showmsg=1'>root</a>/<a href='/guix/log/gnu?id=1f017bf7d031f9aaef415a6b726bc488c733a9c4&amp;showmsg=1'>gnu</a>/<a href='/guix/log/gnu/packages?id=1f017bf7d031f9aaef415a6b726bc488c733a9c4&amp;showmsg=1'>packages</a>/<a href='/guix/log/gnu/packages/guile.scm?id=1f017bf7d031f9aaef415a6b726bc488c733a9c4&amp;showmsg=1'>guile.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/gnu/packages/guile.scm?id=1f017bf7d031f9aaef415a6b726bc488c733a9c4'>Collapse</a>)</th><th class='left'>Author</th></tr>
<tr class='logheader'><td><span title='2022-11-06 12:38:03 +0100'>2022-11-06</span></td><td class='logsubject'><a href='/guix/commit/gnu/packages/guile.scm?id=7138ba34fa11d3eb2d9e7e44771e698f53415dbc'>gnu: guile@3.0.8: Add patch to address continuation memory leak.</a></td><td>Ludovic Courtès</td></tr>
<tr class='nohover-highlight'><td/><td colspan='3' class='logmsg'>
* gnu/packages/patches/guile-continuation-stack-leak.patch: New patch.
* gnu/local.mk (dist_patch_DATA): Add it.
* gnu/packages/guile.scm (guile-3.0-latest)[source]: Use it.


</td></tr>
<tr class='logheader'><td><span title='2022-08-07 11:45:28 +0200'>2022-08-07</span></td><td class='logsubject'><a href='/guix/commit/gnu/packages/guile.scm?id=120d8f8563106e16375bf092f0fad45f9f2dc697'>gnu: guile-sqlite3: Update to 0.1.3.</a></td><td>Olivier Dion</td></tr>
<tr class='nohover-highlight'><td/><td colspan='3' class='logmsg'>
* gnu/packages/guile.scm (guile-sqlite3): Update to 0.1.3.

Signed-off-by: Mathieu Othacehe &lt;othacehe@gnu.org&gt;


</td></tr>
<tr class='logheader'><td><span title='2022-06-24 23:18:20 +0200'>2022-06-24</span></td><td class='logsubject'><a href='/guix/commit/gnu/packages/guile.scm?id=005763301f20cc4cb0a4537bdc9b5dbf679ff78f'>gnu: guile-json: Update to 4.7.1.</a></td><td>Ludovic Courtès</td></tr>
<tr class='nohover-highlight'><td/><td colspan='3' class='logmsg'>
* gnu/packages/guile.scm (guile-json-4): Update to 4.7.1.


</td></tr>