;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2019 Ludovic Courtès <ludo@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/>.

(define-module (test-store-deduplication)
  #:use-module (guix tests)
  #:use-module (guix store)
  #:use-module (guix store roots)
  #:use-module ((guix utils) #:select (call-with-temporary-directory))
  #:use-module (srfi srfi-1)
  #:use-module (srfi srfi-64))

(define %store
  (open-connection))

(test-begin "store-roots")

(test-assert "gc-roots, regular root"
  (let* ((item (add-text-to-store %store "something"
                                  (random-text)))
         (root (string-append %gc-roots-directory "/test-gc-root")))
    (symlink item root)
    (let ((result (member root (gc-roots))))
      (delete-file root)
      result)))

(test-assert "gc-roots, indirect root"
  (call-with-temporary-directory
   (lambda (directory)
     (let* ((item (add-text-to-store %store "something"
                                     (random-text)))
            (root (string-append directory "/gc-root")))
       (symlink item root)
       (add-indirect-root %store root)
       (let ((result (member root (gc-roots))))
         (delete-file root)
         result)))))

(test-end "store-roots")
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=093bfc5d9638286d66b5e8368fb8969e2f2d010d'>root</a>/<a href='/guix/log/gnu?id=093bfc5d9638286d66b5e8368fb8969e2f2d010d'>gnu</a>/<a href='/guix/log/gnu/packages?id=093bfc5d9638286d66b5e8368fb8969e2f2d010d'>packages</a>/<a href='/guix/log/gnu/packages/mercury.scm?id=093bfc5d9638286d66b5e8368fb8969e2f2d010d'>mercury.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/mercury.scm?id=093bfc5d9638286d66b5e8368fb8969e2f2d010d&amp;showmsg=1'>Expand</a>)</th><th class='left'>Author</th></tr>
<tr><td><span title='2020-11-25 16:40:29 -0600'>2020-11-25</span></td><td><a href='/guix/commit/gnu/packages/mercury.scm?id=8b928a3931cafddb291152bc259b634ab3ab441b'>gnu: mercury: Update to 20.06.1.</a><span class='msg-avail'>...<span class='msg-tooltip'>* gnu/packages/mercury.scm (mercury): Update to 20.06.1.
</span></span></td><td>Brett Gilio</td></tr>
<tr><td><span title='2020-11-25 16:40:01 -0600'>2020-11-25</span></td><td><a href='/guix/commit/gnu/packages/mercury.scm?id=4b4fa892cb0fbb98af4606c7a1d55aa09d3eb715'>gnu: mercury-minimal: Update to 20.06.1.</a><span class='msg-avail'>...<span class='msg-tooltip'>* gnu/packages/mercury.scm (mercury-minimal): Update to 20.06.1.
</span></span></td><td>Brett Gilio</td></tr>
<tr><td><span title='2020-09-30 09:28:26 +0300'>2020-09-30</span></td><td><a href='/guix/commit/gnu/packages/mercury.scm?id=1628d57bb5c6ab30a04202c229de642b94faac85'>gnu: Fix package references.</a><span class='msg-avail'>...<span class='msg-tooltip'>* gnu/packages/algebra.scm (iml)[inputs]: Correctly refer to package
inputs.
* gnu/packages/astronomy.scm (xplanet),
* gnu/packages/audio.scm (redkite, libaudec, lv2lint, lv2toweb),
* gnu/packages/bioconductor.scm (r-cummerbund),
* gnu/packages/chicken.scm (chicken),
* gnu/packages/conky.scm (conky),
* gnu/packages/cran.scm (r-latex2exp),
* gnu/packages/crates-io.scm (rust-rgb),
* gnu/packages/databases.scm (mariadb),
* gnu/packages/diffoscope.scm (reprotest),
* gnu/packages/file-systems.scm (glusterfs),
* gnu/packages/finance.scm (electron-cash),
* gnu/packages/games.scm (rinutils, ksudoku, kdiamond, kigo),
* gnu/packages/geo.scm (grass),
* gnu/packages/gnome.scm (libmediaart, gnome-contacts, geoclue),
* gnu/packages/gnucash.scm (aqbanking),
* gnu/packages/image.scm (mtpaint),
* gnu/packages/kde-internet.scm (kopete, ktorrent),
* gnu/packages/kde-utils.scm (kmousetool, kmouth, kronometer),
* gnu/packages/linphone.scm (liblinphone),
* gnu/packages/maths.scm (ppl),
* gnu/packages/mercury.scm (mercury-minimal),
* gnu/packages/music.scm (bjumblr, bschaffl, lsp-plugins,
spectacle-analyzer, helm, tap-lv2, wolf-shaper, shiru-lv2),
* gnu/packages/networking.scm (restinio),
* gnu/packages/prolog.scm (swi-prolog),
* gnu/packages/python-web.scm (gunicorn),
* gnu/packages/python-xyz.scm (python-docusign-esign),
* gnu/packages/ruby.scm (ruby-cucumber, ruby_version, ruby-addressable),
* gnu/packages/sagemath.scm (python-cypari2),
* gnu/packages/skarnet.scm (s6-linux-init),
* gnu/packages/vpn.scm (sshuttle),
* gnu/packages/web.scm (libcyaml),
* gnu/packages/xdisorg.scm (kbdd),
* gnu/packages/xorg.scm (xpra): Same.
</span></span></td><td>Efraim Flashner</td></tr>
<tr><td><span title='2020-07-23 12:13:59 -0500'>2020-07-23</span></td><td><a href='/guix/commit/gnu/packages/mercury.scm?id=7235ce224e3d20b5f73474cac2d3b34b50d754a5'>gnu: Add mercury.</a><span class='msg-avail'>...<span class='msg-tooltip'>* gnu/local.mk (GNU_SYSTEM_MODULES): Add mercury.scm.
* gnu/packages/mercury.scm: New file.
</span></span></td><td>Brett Gilio</td></tr>