mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

Fix more shy group regexps

Browse source 
These issues were caught by modified versions of the GNU ELPA
packages xr and relint:
- https://github.com/mattiase/xr/pull/6
- https://github.com/mattiase/relint/pull/14

* lisp/gnus/gnus-art.el (gnus-parse-news-url): Remove redundant
numbered group and calls to match-string.
* lisp/progmodes/c-ts-mode.el (c-ts-mode--c-or-c++-regexp): Fix shy
group mistyped as optional colon (bug#64019#29).
* lisp/vc/vc-git.el (vc-git-annotate-time): Ditto.  Also fix
timezone parsing by using iso8601-parse (bug#64069).
* test/lisp/vc/vc-git-tests.el (vc-git-test-annotate-time): New
test.
This commit is contained in:
Basil L. Contovounesios 2023-06-12 00:23:56 +01:00
parent f47cf7110e
commit fef27d28fa
4 changed files with 33 additions and 12 deletions
Download patch file Download diff file Expand all files Collapse all files

17
test/lisp/vc/vc-git-tests.el
View file

@ -64,4 +64,21 @@
(actual-output (vc-git--program-version)))
(should (equal actual-output expected-output))))
(ert-deftest vc-git-test-annotate-time ()
"Test `vc-git-annotate-time'."
(require 'vc-annotate)
(with-temp-buffer
(insert "\
00000000 (Foo Bar 2023-06-14 1) a
00000001 (Foo Bar 2023-06-14 00:00:00 -0130 2) b
00000002 (Foo Bar 2023-06-14 00:00:00 +0145 3) c
00000003 (Foo Bar 2023-06-14 00:00:00 4) d
00000004 (Foo Bar 0-0-0 5) \n")
(goto-char (point-min))
(should (floatp (vc-git-annotate-time)))
(should (> (vc-git-annotate-time)
(vc-git-annotate-time)))
(should-not (vc-git-annotate-time))
(should-not (vc-git-annotate-time))))
;;; vc-git-tests.el ends here