diff options
author | Stephen Gildea <stepheng+emacs@gildea.com> | 2022-10-14 20:46:38 -0700 |
---|---|---|
committer | Stephen Gildea <stepheng+emacs@gildea.com> | 2022-10-14 20:47:27 -0700 |
commit | 0bf3873b1c70e5b26bf04c96cf6db1d03dba7264 (patch) | |
tree | a47b6b43fb24b0ccc5bcbf997aef99607ee2143a | |
parent | e1090b091415bdb2c728de6597562262bd155897 (diff) | |
download | emacs-0bf3873b1c70e5b26bf04c96cf6db1d03dba7264.tar.gz |
; improve test coverage of time-stamp-pattern parsing
* test/lisp/time-stamp-tests.el (time-stamp-test-pattern-multiply,
time-stamp-test-pattern-sequential): broaden range of test data
-rw-r--r-- | test/lisp/time-stamp-tests.el | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/test/lisp/time-stamp-tests.el b/test/lisp/time-stamp-tests.el index 55e37b71d80..1b5ef04436d 100644 --- a/test/lisp/time-stamp-tests.el +++ b/test/lisp/time-stamp-tests.el @@ -89,11 +89,11 @@ (iter-defun time-stamp-test-pattern-sequential () "Iterate through each possibility for a part of `time-stamp-pattern'." (let ((pattern-value-parts - '(("4/" "10/" "-4/" "0/" "") ;0: line limit + '(("4/" "10/" "-9/" "0/" "") ;0: line limit ("stamp<" "") ;1: start - ("%-d" "%_H" "%^a" "%#Z" "%:A" "%02H" "%%" "") ;2: format part 1 + ("%-d" "%_H" "%^a" "%#Z" "%:A" "%09z" "%%" "") ;2: format part 1 (" " "x" ":" "\n" "") ;3: format part 2 - ("%-d" "%_H" "%^a" "%#Z" "%:A" "%02H" "%%") ;4: format part 3 + ("%-d" "%_H" "%^a" "%#Z" "%:A" "%09z" "%%") ;4: format part 3 (">end" "")))) ;5: end (dotimes (cur (length pattern-value-parts)) (dotimes (cur-index (length (nth cur pattern-value-parts))) @@ -118,7 +118,7 @@ (iter-defun time-stamp-test-pattern-multiply () "Iterate through every combination of parts of `time-stamp-pattern'." (let ((line-limit-values '("" "4/")) - (start-values '("" "stamp<")) + (start-values '("" "/stamp/")) (format-values '("%%" "%m")) (end-values '("" ">end"))) ;; yield all combinations of the above |