;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2018 Ludovic Courtès <ludo@gnu.org>
;;; Copyright © 2020 Giacomo Leidi <goodoldpaul@autistici.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))
 "**/*.scm" => '(**/ * ".scm"))

(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["))
 ("foo/**/*.scm" matches "foo/bar/baz.scm" "foo/bar.scm" "foo/bar/baz/zab.scm"
  (and not "foo/bar/baz.java" "foo/bar.smc")))

(test-end "glob")
 (<a href='/guix/log/gnu/packages/pcre.scm?id=d213718208fa767386a01ea66a86e391edf74331&amp;showmsg=1'>Expand</a>)</th><th class='left'>Author</th></tr>
<tr><td><span title='2018-07-22 17:54:54 +0200'>2018-07-22</span></td><td><a href='/guix/commit/gnu/packages/pcre.scm?id=08b87ab0dfa4bae0eb57f3d8915f655bf20d94fc'>gnu: pcre: Update to 8.42.</a><span class='msg-avail'>...</span></td><td>Marius Bakke</td></tr>
<tr><td><span title='2018-07-19 00:53:10 +0200'>2018-07-19</span></td><td><a href='/guix/commit/gnu/packages/pcre.scm?id=50849734e986a5824bcca20fe64b2886f8f1a42b'>gnu: pcre: Install static libraries to separate output.</a><span class='msg-avail'>...</span></td><td>Marius Bakke</td></tr>
<tr><td><span title='2018-02-28 18:23:31 +0100'>2018-02-28</span></td><td><a href='/guix/commit/gnu/packages/pcre.scm?id=8297ff0f931a677c51ca7c64a844a55cd6cd2ef4'>gnu: pcre2: Update to 10.31.</a><span class='msg-avail'>...</span></td><td>Tobias Geerinckx-Rice</td></tr>
<tr><td><span title='2018-01-19 23:59:20 -0500'>2018-01-19</span></td><td><a href='/guix/commit/gnu/packages/pcre.scm?id=e074a655dd6497daafbd62737e3b63f3d5aa7985'>Merge branch 'master' into core-updates</a></td><td>Mark H Weaver</td></tr>
<tr><td><span title='2018-01-13 21:25:40 +0100'>2018-01-13</span></td><td><a href='/guix/commit/gnu/packages/pcre.scm?id=265c31f5a377851eb583dfeaaaae6132e085cfac'>gnu: pcre: Use HTTPS for home pages.</a><span class='msg-avail'>...</span></td><td>Tobias Geerinckx-Rice</td></tr>
<tr><td><span title='2017-10-01 22:16:41 +0300'>2017-10-01</span></td><td><a href='/guix/commit/gnu/packages/pcre.scm?id=0b7f9806dbde1a7c1ded4218e499319d7eafbe7a'>gnu: pcre: Update to 8.41.</a><span class='msg-avail'>...</span></td><td>Efraim Flashner</td></tr>
<tr><td><span title='2017-07-23 03:42:12 -0400'>2017-07-23</span></td><td><a href='/guix/commit/gnu/packages/pcre.scm?id=6c1a317e29c45e85e3a0e050612cdefe470b100c'>Merge branch 'master' into core-updates</a></td><td>Leo Famulari</td></tr>
<tr><td><span title='2017-07-20 08:26:40 -0400'>2017-07-20</span></td><td><a href='/guix/commit/gnu/packages/pcre.scm?id=426b0b898f70a58133d80779980f163a5761686e'>gnu: pcre: Update replacement to 8.41 [fixes CVE-2017-{7244,7245,7246}].</a><span class='msg-avail'>...</span></td><td>Leo Famulari</td></tr>
<tr><td><span title='2017-07-03 23:51:22 +0200'>2017-07-03</span></td><td><a href='/guix/commit/gnu/packages/pcre.scm?id=d5ec5ed7197d121130af6953378bcfd8929a9754'>packages: Mark 'replacement' as an "innate" field.</a><span class='msg-avail'>...</span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2017-05-24 12:05:47 +0200'>2017-05-24</span></td><td><a href='/guix/commit/gnu/packages/pcre.scm?id=d1a914082b7e53636f9801769ef96218b2125c4b'>Merge branch 'master' into core-updates</a></td><td>Ricardo Wurmus</td></tr>
<tr><td><span title='2017-05-07 17:46:00 -0400'>2017-05-07</span></td><td><a href='/guix/commit/gnu/packages/pcre.scm?id=af6e2385b3125924f34188d81370dd71cdbe9ddc'>gnu: pcre2: Fix build configuration for pcre2.</a><span class='msg-avail'>...</span></td><td>Leo Famulari</td></tr>
<tr><td><span title='2017-05-07 17:46:00 -0400'>2017-05-07</span></td><td><a href='/guix/commit/gnu/packages/pcre.scm?id=37f46a4bc51886c0d0df797bfbb13a50fe647567'>gnu: pcre2: Fix CVE-2017-8786.</a><span class='msg-avail'>...</span></td><td>Leo Famulari</td></tr>
<tr><td><span title='2017-04-10 23:54:46 +0200'>2017-04-10</span></td><td><a href='/guix/commit/gnu/packages/pcre.scm?id=a97f0ee1368499dc40ea30002fcb6e06c7880acb'>gnu: pcre: Patch CVE-2017-7186.</a><span class='msg-avail'>...</span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2017-04-10 23:54:46 +0200'>2017-04-10</span></td><td><a href='/guix/commit/gnu/packages/pcre.scm?id=18d0cec29e22cdbc27c486129d1a1425de27f03f'>gnu: pcre2: Patch CVE-2017-7186.</a><span class='msg-avail'>...</span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2017-03-09 16:35:41 +0100'>2017-03-09</span></td><td><a href='/guix/commit/gnu/packages/pcre.scm?id=e90e0fad1b3ba79d81f02424e143ee6f4f736e8b'>Merge branch 'master' into core-updates</a></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2017-03-07 23:21:22 +0100'>2017-03-07</span></td><td><a href='/guix/commit/gnu/packages/pcre.scm?id=9bb766e70d03164cb902122f3bbfbf46547f6cda'>gnu: pcre2: Update to 10.23.</a><span class='msg-avail'>...</span></td><td>Marius Bakke</td></tr>
<tr><td><span title='2017-01-23 00:55:10 -0500'>2017-01-23</span></td><td><a href='/guix/commit/gnu/packages/pcre.scm?id=026ee1a5a669658c8d4745c2733b4c201ca0e48e'>gnu: pcre: Update to 8.40.</a><span class='msg-avail'>...</span></td><td>Leo Famulari</td></tr>