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


(test-begin "glob")

(define-syntax test-string->sglob
  (syntax-rules (=>)
    ((_ pattern => result rest ...)
     (begin
       (test-equal (format #f "string->sglob, ~s" pattern)
         result
         (string->sglob pattern))
       (test-string->sglob rest ...)))
    ((_)
     #t)))

(define-syntax test-glob-match
  (syntax-rules (matches and not)
    ((_ (pattern-string matches strings ... (and not others ...)) rest ...)
     (begin
       (test-assert (format #f "glob-match? ~s" pattern-string)
         (let ((pattern (string->compiled-sglob pattern-string)))
           (and (glob-match? pattern strings) ...
                (not (glob-match? pattern others)) ...)))
       (test-glob-match rest ...)))
    ((_)
     #t)))

(test-string->sglob
 "foo" => "foo"
 "?foo*" => '(? "foo" *)
 "foo[1-5]" => '("foo" (range #\1 #\5))
 "foo[abc]bar" => '("foo" (set #\a #\b #\c) "bar")
 "foo[a[b]c]bar" => '("foo" (set #\a #\[ #\b #\] #\c) "bar")
 "[123]x" => '((set #\1 #\2 #\3) "x")
 "[a-z]" => '((range #\a #\z)))

(test-glob-match
 ("foo" matches "foo" (and not "foobar" "barfoo"))
 ("foo*" matches "foo" "foobar" (and not "xfoo"))
 ("foo??bar" matches "fooxxbar" "fooZZbar"
  (and not "foobar" "fooxxxbar" "fooxxbarzz"))
 ("foo?" matches "foox" (and not "fooxx"))
 ("ab[0-9]c" matches "ab0c" "ab7c" "ab9c"
  (and not "ab-c" "ab00c" "ab3"))
 ("ab[cdefg]" matches "abc" "abd" "abg"
  (and not "abh" "abcd" "ab[")))

(test-end "glob")
2fee0'>packages</a>/<a href='/guix/log/gnu/packages/telegram.scm?id=1c088531cf0be8fe6706c4624a920fca2ab2fee0'>telegram.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/telegram.scm?id=1c088531cf0be8fe6706c4624a920fca2ab2fee0&amp;showmsg=1'>Expand</a>)</th><th class='left'>Author</th></tr>
<tr><td><span title='2024-08-31 10:42:16 +0200'>2024-08-31</span></td><td><a href='/guix/commit/gnu/packages/telegram.scm?id=f59df1aa3c104aabff3291f6b8b155fb01aebc06'>build-systems: gnu: Export %default-gnu-imported-modules and %default-gnu-mod...</a><span class='msg-avail'>...<span class='msg-tooltip'>Until now users would have to cargo cult or inspect the private
%default-modules variable of (guix build-systems gnu) to discover which
modules to include when extending the used modules via the #:modules argument.

The renaming was automated via the command:

  $ git grep -l %gnu-build-system-modules
    | xargs sed 's/%gnu-build-system-modules/%default-gnu-imported-modules/' -i

* guix/build-system/gnu.scm (%gnu-build-system-modules): Rename to...
(%default-gnu-imported-modules): ... this.
(%default-modules): Rename to...
(%default-gnu-modules): ... this.  Export.
(dist-package, gnu-build, gnu-cross-build): Adjust accordingly.

Change-Id: Idef307fff13cb76f3182d782b26e1cd3a5c757ee
</span></span></td><td>Maxim Cournoyer</td></tr>
<tr><td><span title='2024-07-18 10:45:36 +0800'>2024-07-18</span></td><td><a href='/guix/commit/gnu/packages/telegram.scm?id=68aadbcccf0bb7bd524c1eaf6ef03fbbd8a5f30a'>gnu: telegram-desktop: Fix build.</a><span class='msg-avail'>...<span class='msg-tooltip'>* gnu/packages/telegram.scm (telegram-desktop): Fix build.
[inputs]: Replace kcoreaddons and kimageformats with kcoreaddons-5 and
kimageformats-5.

Change-Id: I509d2cf9c0f87019da2832f52a1ba5e75869155c
</span></span></td><td>Zheng Junjie</td></tr>
<tr><td><span title='2024-03-16 10:35:11 +0000'>2024-03-16</span></td><td><a href='/guix/commit/gnu/packages/telegram.scm?id=aa9aebce615f014070797e7068baca40b4f25c37'>gnu: telegram-desktop: Build with glibmm@2.76.</a><span class='msg-avail'>...<span class='msg-tooltip'>* gnu/packages/telegram.scm (telegram-desktop): Use glibmm-2.76 instead of
glibmm.

Change-Id: I0ec4ebc549dd867db22d68ee6317d1630cf1bfd8
Signed-off-by: Christopher Baines &lt;mail@cbaines.net&gt;
</span></span></td><td>Vivien Kraus</td></tr>
<tr><td><span title='2024-03-10 00:05:58 +0100'>2024-03-10</span></td><td><a href='/guix/commit/gnu/packages/telegram.scm?id=2ee54513196bad8e663e78ac695b6ffa0da49051'>Merge branch 'master' into gnome-team</a></td><td>Liliana Marie Prikler</td></tr>
<tr><td><span title='2024-03-08 23:59:58 +0100'>2024-03-08</span></td><td><a href='/guix/commit/gnu/packages/telegram.scm?id=c7c99aeb3c6f974a41b9fc79bce1e6ce4d8f1904'>gnu: telegram-cli: Update compiler flags.</a><span class='msg-avail'>...<span class='msg-tooltip'>* gnu/packages/telegram.scm (telegram-cli)[arguments]: Add phase to remove
-Werror and add -fcommon; remove trailing #T.

Change-Id: I1c82fdd914b5f27f00e4bf87e4adc3eb559a874c
</span></span></td><td>Ricardo Wurmus</td></tr>
<tr><td><span title='2024-03-08 23:59:58 +0100'>2024-03-08</span></td><td><a href='/guix/commit/gnu/packages/telegram.scm?id=bd306916817d54bc0ccd443d43865b5f32ce7aa4'>gnu: tgl: Remove -Werror.</a><span class='msg-avail'>...<span class='msg-tooltip'>* gnu/packages/telegram.scm (tgl)[arguments]: Add phase to remove "-Werror".

Change-Id: I0e93b41ed6bae4b74fc12bdeddd3019a8b0e6bd5
</span></span></td><td>Ricardo Wurmus</td></tr>