;;; 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")
>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=ca8b6b5a641dab4869dd6c522847cb875e7d47fd'>root</a>/<a href='/guix/log/gnu?id=ca8b6b5a641dab4869dd6c522847cb875e7d47fd'>gnu</a>/<a href='/guix/log/gnu/system?id=ca8b6b5a641dab4869dd6c522847cb875e7d47fd'>system</a>/<a href='/guix/log/gnu/system/images?id=ca8b6b5a641dab4869dd6c522847cb875e7d47fd'>images</a>/<a href='/guix/log/gnu/system/images/novena.scm?id=ca8b6b5a641dab4869dd6c522847cb875e7d47fd'>novena.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/system/images/novena.scm?id=ca8b6b5a641dab4869dd6c522847cb875e7d47fd&amp;showmsg=1'>Expand</a>)</th><th class='left'>Author</th></tr>
<tr><td><span title='2021-08-29 01:05:26 -0400'>2021-08-29</span></td><td><a href='/guix/commit/gnu/system/images/novena.scm?id=da4e40948326387d5bcda58783914d5f9ce8b095'>Migrate to the new 'targets' field of bootloader-configuration.</a><span class='msg-avail'>...<span class='msg-tooltip'>The old 'target' field is deprecated; adjust the sources to use the new
'targets' one instead.

* doc/guix-cookbook.texi&lt;target&gt;: Replace by 'targets'.
* gnu/bootloader/grub.scm: Likewise.
* gnu/installer/parted.scm: Likewise.
* gnu/machine/digital-ocean.scm: Likewise.
* gnu/system/examples/asus-c201.tmpl: Likewise
* gnu/system/examples/bare-bones.tmpl: Likewise
* gnu/system/examples/bare-hurd.tmpl: Likewise
* gnu/system/examples/beaglebone-black.tmpl: Likewise
* gnu/system/examples/desktop.tmpl: Likewise
* gnu/system/examples/docker-image.tmpl: Likewise
* gnu/system/examples/lightweight-desktop.tmpl: Likewise
* gnu/system/examples/vm-image.tmpl: Likewise
* gnu/system/examples/yggdrasil.tmpl: Likewise
* gnu/system/hurd.scm: Likewise
* gnu/system/images/hurd.scm: Likewise
* gnu/system/images/novena.scm: Likewise
* gnu/system/images/pine64.scm: Likewise
* gnu/system/images/pinebook-pro.scm: Likewise
* gnu/system/images/rock64.scm: Likewise
* gnu/system/install.scm: Likewise
* gnu/system/vm.scm: Likewise
* gnu/tests.scm: Likewise
* gnu/tests/ganeti.scm: Likewise
* gnu/tests/install.scm: Likewise
* gnu/tests/nfs.scm: Likewise
* gnu/tests/telephony.scm: Likewise
* tests/boot-parameters.scm: Likewise
* tests/system.scm: Likewise
</span></span></td><td>Maxim Cournoyer</td></tr>
<tr><td><span title='2021-02-17 10:57:02 +0100'>2021-02-17</span></td><td><a href='/guix/commit/gnu/system/images/novena.scm?id=6e8cdf1d26092cb9654e179b04730fff7c15c94f'>scripts: system: Accept &lt;image&gt; records as input.</a><span class='msg-avail'>...<span class='msg-tooltip'>* guix/scripts/system.scm (system-derivation-for-action): Replace "os"
argument by "image". Remove "image-size", "image-type", "label" and
"volatile-root?"  arguments.
(perform-action): Ditto.
(process-action): Construct the &lt;image&gt; record and pass it to "perform-action"
procedure.
* tests/guix-system.sh: Adapt accordingly.
* gnu/system/images/hurd.scm: Return the default image.
* gnu/system/images/novena.scm: Ditto.
* gnu/system/images/pine64.scm: Ditto.
* gnu/system/images/pinebook-pro.scm Ditto.
</span></span></td><td>Mathieu Othacehe</td></tr>
<tr><td><span title='2021-01-10 16:07:44 +0100'>2021-01-10</span></td><td><a href='/guix/commit/gnu/system/images/novena.scm?id=b6473e506e4161b539fe710fb1b3e69eaeac7069'>system: image: Fix root offset on rockchip platforms.</a><span class='msg-avail'>...<span class='msg-tooltip'>Fixes: &lt;https://issues.guix.gnu.org/45584&gt;.

* gnu/system/image.scm (arm32-disk-image, arm64-disk-image): Turn into
procedures, taking the root partition offset as argument.
* gnu/system/images/novena.scm (novena-image-type): Adapt accordingly.
* gnu/system/images/pine64.scm (pine64-image-type): Ditto.
* gnu/system/images/pinebook-pro.scm (pinebook-pro-image-type): Use a 9MiB
offset for the root partition.
</span></span></td><td>Mathieu Othacehe</td></tr>
<tr><td><span title='2020-12-05 11:19:17 +0100'>2020-12-05</span></td><td><a href='/guix/commit/gnu/system/images/novena.scm?id=005609c1717ead0c16ad6fba1577b0305df9f1a9'>images: novena: Make boot settings and RTC accessible.</a><span class='msg-avail'>...<span class='msg-tooltip'>* gnu/system/images/novena.scm (novena-barebones-os)[initrd-modules]: Add
i2c-dev.
</span></span></td><td>Danny Milosavljevic</td></tr>
<tr><td><span title='2020-12-03 12:24:36 +0100'>2020-12-03</span></td><td><a href='/guix/commit/gnu/system/images/novena.scm?id=295aa49ec996ce46ea1fe6a3929a9b74e8680569'>images: novena: Replace agetty-service by term-auto.</a><span class='msg-avail'>...<span class='msg-tooltip'>* gnu/system/images/novena.scm (novena-barebones-os)[kernel-arguments]: New
field.
[services]: Remove field.
</span></span></td><td>Danny Milosavljevic</td></tr>
<tr><td><span title='2020-12-03 12:11:00 +0100'>2020-12-03</span></td><td><a href='/guix/commit/gnu/system/images/novena.scm?id=9cf531f57786c858c34c11a08b0ad16e2f26b27b'>images: Add novena-image-type, novena-barebones-raw-image, novena-barebones-os.</a><span class='msg-avail'>...<span class='msg-tooltip'>* gnu/system/images/novena.scm: New file.
* gnu/local.mk (GNU_SYSTEM_MODULES): Add it.
</span></span></td><td>Danny Milosavljevic</td></tr>