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
q' value=''/>
<input type='submit' value='search'/>
</form>
</td></tr></table>
<div class='path'>path: <a href='/guix/log/?id=5ff1137b9cc7d0f0a637fe54e95003027e1e2e93'>root</a>/<a href='/guix/log/tests?id=5ff1137b9cc7d0f0a637fe54e95003027e1e2e93'>tests</a>/<a href='/guix/log/tests/substitute.scm?id=5ff1137b9cc7d0f0a637fe54e95003027e1e2e93'>substitute.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/substitute.scm?id=5ff1137b9cc7d0f0a637fe54e95003027e1e2e93&amp;showmsg=1'>Expand</a>)</th><th class='left'>Author</th></tr>
<tr><td><span title='2018-12-14 00:02:59 +0100'>2018-12-14</span></td><td><a href='/guix/commit/tests/substitute.scm?id=60b04024f8823192b74c1ed5b14f318049865ac7'>substitute: Ignore irrelevant narinfo signatures.</a><span class='msg-avail'>...</span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2018-09-04 17:25:11 +0200'>2018-09-04</span></td><td><a href='/guix/commit/tests/substitute.scm?id=ca719424455465fca4b872c371daf2a46de88b33'>Switch to Guile-Gcrypt.</a><span class='msg-avail'>...</span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2017-09-11 11:10:21 +0200'>2017-09-11</span></td><td><a href='/guix/commit/tests/substitute.scm?id=a9468b422b6df2349a3f4d1451c9302c3d77011b'>substitute: Download from unauthorized sources that provide the right content.</a><span class='msg-avail'>...</span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2017-09-11 11:10:21 +0200'>2017-09-11</span></td><td><a href='/guix/commit/tests/substitute.scm?id=218f6eccafa8172221cf7efd5262107233e7a587'>substitute: Make substitute URLs a SRFI-39 parameter.</a><span class='msg-avail'>...</span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2016-04-03 14:19:09 +0200'>2016-04-03</span></td><td><a href='/guix/commit/tests/substitute.scm?id=a9edb211e733b8b34e67ec3b4450567e9376986f'>build: Add a Guile custom test driver using SRFI-64.</a><span class='msg-avail'>...</span></td><td>Mathieu Lirzin</td></tr>
<tr><td><span title='2015-10-28 12:04:03 +0100'>2015-10-28</span></td><td><a href='/guix/commit/tests/substitute.scm?id=55b2fc18772a512a2227757423e55dc6c7523113'>substitute: Honor all the specified server URLs.</a><span class='msg-avail'>...</span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2015-03-25 10:46:22 +0100'>2015-03-25</span></td><td><a href='/guix/commit/tests/substitute.scm?id=614c2188420a266ec512c9c04af3bb2ea46c4dc4'>substitute: Rename cache directory from "substitute-binary" to "substitute".</a><span class='msg-avail'>...</span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2015-03-25 10:46:22 +0100'>2015-03-25</span></td><td><a href='/guix/commit/tests/substitute.scm?id=2c74fde00e4e721c6a73646935ab0cfe19dd9188'>Rename 'guix substitute-binary' to 'guix substitute'.</a><span class='msg-avail'>...</span></td><td>Ludovic Courtès</td></tr>