#!@abs_top_builddir@/guile \
--no-auto-compile -e main -s
!#
;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2013 Mark H Weaver <mhw@netris.org>
;;; Copyright © 2018 Mathieu Lirzin <mthl@gnu.org>
;;;
;;; This file is part of GNU Guix.
;;;
;;; GNU Guix is free software; you can redistribute it and/or modify it
;;; under the terms of the GNU General Public License as published by
;;; the Free Software Foundation; either version 3 of the License, or (at
;;; your option) any later version.
;;;
;;; GNU Guix is distributed in the hope that it will be useful, but
;;; WITHOUT ANY WARRANTY; without even the implied warranty of
;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
;;; GNU General Public License for more details.
;;;
;;; You should have received a copy of the GNU General Public License
;;; along with GNU Guix.  If not, see <http://www.gnu.org/licenses/>.

;; IMPORTANT: We must avoid loading any modules from Guix here,
;; because we need to adjust the guile load paths first.
;; It's okay to import modules from core Guile though.

(define-syntax-rule (push! elt v) (set! v (cons elt v)))

(define (augment-load-paths!)
  ;; Add installed modules to load-path.
  (push! "@guilemoduledir@" %load-path)
  (push! "@guileobjectdir@" %load-compiled-path))

(define* (main #:optional (args (command-line)))
  (unless (getenv "GUIX_UNINSTALLED")
    (augment-load-paths!))

  (let ((guix-main (module-ref (resolve-interface '(guix ui))
                               'guix-main)))
    (bindtextdomain "guix" "@localedir@")
    (bindtextdomain "guix-packages" "@localedir@")
    ;; XXX: It would be more convenient to change it to:
    ;;   (exit (apply guix-main (command-line)))
    ;; but since the 'guix' command is not updated by 'guix pull', we cannot
    ;; really do it now.
    (apply guix-main args)))

;;; Local Variables:
;;; mode: scheme
;;; End:
t 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=02b16dc57230b69d998ec6c482b06be732f50cef'>root</a>/<a href='/guix/log/tests?id=02b16dc57230b69d998ec6c482b06be732f50cef'>tests</a>/<a href='/guix/log/tests/publish.scm?id=02b16dc57230b69d998ec6c482b06be732f50cef'>publish.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/publish.scm?id=02b16dc57230b69d998ec6c482b06be732f50cef&amp;showmsg=1'>Expand</a>)</th><th class='left'>Author</th></tr>
<tr><td><span title='2022-04-29 18:07:17 +0200'>2022-04-29</span></td><td><a href='/guix/commit/tests/publish.scm?id=c1719a0adf3fa7611b56ca4d75b3ac8cf5c9c8ac'>publish: Send uncached narinfo replies from the main thread.</a><span class='msg-avail'>...<span class='msg-tooltip'>Fixes &lt;https://issues.guix.gnu.org/54723&gt;.
Reported by Guillaume Le Vaillant &lt;glv@posteo.net&gt;.

Regression introduced in f743f2046be2c5a338ab871ae8666d8f6de7440b.

With commit f743f2046be2c5a338ab871ae8666d8f6de7440b, responses to
pipelined GETs would end up being written concurrently by many threads.
Thus the body of those responses could be interleaved and garbled.

* guix/scripts/publish.scm: Revert
f743f2046be2c5a338ab871ae8666d8f6de7440b.
* tests/publish.scm ("/*.narinfo pipeline"): New test.
</span></span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2022-02-14 11:23:56 +0100'>2022-02-14</span></td><td><a href='/guix/commit/tests/publish.scm?id=6adce1538d2df6fa2d68abc13ae94e2fa826d124'>publish: Do not sign the URL/Compression/FileSize narinfo fields.</a><span class='msg-avail'>...<span class='msg-tooltip'>This will allow mirror operators to alter these non-normative bits of a
narinfo without having to resign narinfos.

* guix/scripts/publish.scm (narinfo-string): Remove
URL/Compression/FileSize from BASE-INFO.  Move them after "Signature".
* tests/publish.scm ("/*.narinfo")
("/*.narinfo with properly encoded '+' sign")
("/*.narinfo with lzip + gzip")
("with cache, lzip + gzip"): Adjust accordingly.
* tests/substitute.scm ("query narinfo with signature over relevant subset"):
New test.
</span></span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2022-01-19 22:07:54 +0100'>2022-01-19</span></td><td><a href='/guix/commit/tests/publish.scm?id=435ffae2f29ecaa94f3aca835d79e222bc1263d5'>tests: Adjust to gzip as the default log compression.</a><span class='msg-avail'>...<span class='msg-tooltip'>This is a followup to 575e52ac2b090fd194086e9c1c53bbf8055acbc2.

* tests/publish.scm ("/log/NAME"): Expect a gzip-encoded log.
</span></span></td><td>Ludovic Courtès</td></tr>