;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2015 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-sets)
  #:use-module (guix sets)
  #:use-module (srfi srfi-1)
  #:use-module (srfi srfi-26)
  #:use-module (srfi srfi-64))


(test-begin "sets")

(test-assert "set-contains?"
  (let* ((lst (iota 123))
         (set (list->set lst)))
    (and (every (cut set-contains? set <>)
                lst)
         (not (set-contains? set -1)))))

(test-assert "set->list"
  (let* ((lst (iota 123))
         (set (list->set lst)))
    (lset= = lst (set->list set))))

(test-assert "set-union"
  (let* ((a  (list 'a))
         (b  (list 'b))
         (s1 (setq a))
         (s2 (setq b))
         (s3 (set-union s1 s2)))
    (and (set-contains? s3 a)
         (set-contains? s3 b))))

(test-end)
.scm?id=43d6d5e6461d930dda4846279b3d56c97467bc06'>diff</a></td><td class='form'><form class='right' method='get' action='/guix/log/gnu/packages/mold.scm'>
<input type='hidden' name='id' value='43d6d5e6461d930dda4846279b3d56c97467bc06'/><select name='qt'>
<option value='grep'>log msg</option>
<option value='author'>author</option>
<option value='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=43d6d5e6461d930dda4846279b3d56c97467bc06'>root</a>/<a href='/guix/log/gnu?id=43d6d5e6461d930dda4846279b3d56c97467bc06'>gnu</a>/<a href='/guix/log/gnu/packages?id=43d6d5e6461d930dda4846279b3d56c97467bc06'>packages</a>/<a href='/guix/log/gnu/packages/mold.scm?id=43d6d5e6461d930dda4846279b3d56c97467bc06'>mold.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/mold.scm?id=43d6d5e6461d930dda4846279b3d56c97467bc06&amp;showmsg=1'>Expand</a>)</th><th class='left'>Author</th></tr>
<tr><td><span title='2024-02-21 12:05:00 -0500'>2024-02-21</span></td><td><a href='/guix/commit/gnu/packages/mold.scm?id=5e66832ad47a2f4222ccf681c39266cfc9fc1f15'>gnu: mold: Update to 2.4.0.</a></td><td>Maxim Cournoyer</td></tr>
<tr><td><span title='2023-11-15 17:14:16 +0200'>2023-11-15</span></td><td><a href='/guix/commit/gnu/packages/mold.scm?id=9d01a83b2ea63746803e125486fd66d669c220f0'>gnu: mold: Update to 2.3.2.</a></td><td>Efraim Flashner</td></tr>
<tr><td><span title='2023-02-15 21:18:03 +0200'>2023-02-15</span></td><td><a href='/guix/commit/gnu/packages/mold.scm?id=47439697aeed1d8788e7fc4c02ef1c610e0b4151'>gnu: mold: Update to 1.10.1.</a></td><td>Efraim Flashner</td></tr>
<tr><td><span title='2023-02-12 01:48:54 +0100'>2023-02-12</span></td><td><a href='/guix/commit/gnu/packages/mold.scm?id=4a6f64ab2afff761eb233e7ca6110d9e8acf8f32'>gnu: Add mold-wrapper.</a></td><td>Zhu Zihao</td></tr>
<tr><td><span title='2023-02-12 01:48:54 +0100'>2023-02-12</span></td><td><a href='/guix/commit/gnu/packages/mold.scm?id=16b47a95a1a8ca4f948422b273d7f21d131bfb0b'>gnu: Add mold.</a></td><td>Zhu Zihao</td></tr>
e8ddc3b38b8be12188a6'>gnu: racket: fix `raco exe` with non-minimal Racket</a></td><td>Philip McGrath</td></tr>
<tr><td><span title='2021-09-07 15:59:34 +0200'>2021-09-07</span></td><td><a href='/guix/commit/gnu/packages/racket.scm?id=96db2ff145ecbd962206eae815b065bda7ed3d9f'>gnu: racket-minimal: Remove top-level reference to 'chez-scheme'.</a></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2021-07-31 01:03:25 +0200'>2021-07-31</span></td><td><a href='/guix/commit/gnu/packages/racket.scm?id=db2c7e70ad220312aba69028fe951e62791b7757'>gnu: racket-minimal: Bootstrap from C.</a></td><td>Philip McGrath</td></tr>
<tr><td><span title='2021-07-31 01:03:25 +0200'>2021-07-31</span></td><td><a href='/guix/commit/gnu/packages/racket.scm?id=65bad4d03684a32598e0c6fb3449e481e37acfde'>gnu: racket: Unbundle racket-minimal.</a></td><td>Philip McGrath</td></tr>
<tr><td><span title='2021-07-31 01:03:24 +0200'>2021-07-31</span></td><td><a href='/guix/commit/gnu/packages/racket.scm?id=1ae95ebcddb89fd2845054a15d6d0bc40a56b80e'>gnu: racket: Update to 8.2.</a></td><td>Philip McGrath</td></tr>
<tr><td><span title='2021-05-29 22:12:48 +0200'>2021-05-29</span></td><td><a href='/guix/commit/gnu/packages/racket.scm?id=c094e574f2b78b2f090aa740c1284418c16b2fcd'>gnu: Break up import loop between (gnu packages racket) and (gnu packages chez).</a></td><td>raingloom</td></tr>
<tr><td><span title='2021-05-23 17:49:56 +0200'>2021-05-23</span></td><td><a href='/guix/commit/gnu/packages/racket.scm?id=dbcf2b61b1f48cbe84d51873f4e4de60897b914c'>gnu: Fix erroneous uses of 'package/inherit'.</a></td><td>Marius Bakke</td></tr>
<tr><td><span title='2021-05-10 15:51:48 +0300'>2021-05-10</span></td><td><a href='/guix/commit/gnu/packages/racket.scm?id=b12bb7d297ef3e27961550a3fccd0ff1dcc9cefd'>gnu: racket: Update to 8.1.</a></td><td>Philip McGrath</td></tr>
<tr><td><span title='2021-05-05 16:56:45 +0200'>2021-05-05</span></td><td><a href='/guix/commit/gnu/packages/racket.scm?id=0ca37f3c7dd4877e0e58930426c7d34db14cd740'>gnu: racket: Add aditional mirrors.</a></td><td>Philip McGrath</td></tr>
<tr><td><span title='2021-05-05 16:56:45 +0200'>2021-05-05</span></td><td><a href='/guix/commit/gnu/packages/racket.scm?id=93867cb3beff479e6dd4fd2d0199ddc3508efeab'>gnu: racket: Racket inherits racket-minimal, not vice versa.</a></td><td>Philip McGrath</td></tr>
<tr><td><span title='2021-05-05 16:56:44 +0200'>2021-05-05</span></td><td><a href='/guix/commit/gnu/packages/racket.scm?id=cd9454f6ed4e24612ed378c06174151c5fef4fd1'>gnu: racket: Remove obsolete patch.</a></td><td>Philip McGrath</td></tr>
<tr><td><span title='2021-05-05 16:56:44 +0200'>2021-05-05</span></td><td><a href='/guix/commit/gnu/packages/racket.scm?id=3df04eb09f4a473cf6a214331cccba50694677f1'>gnu: racket: Move to (gnu packages racket).</a></td><td>Philip McGrath</td></tr>