Add s-titleized?

[jagrg]

No description provided.

[jagrg]

Does anyone know why the test fails?

Test s-titleized\? backtrace:
  (let* ((condition (first more-debugger-args)) (type (let* ((temp (ca
  (cond ((memql first-debugger-arg (quote (lambda debug t exit nil))) 
  (let* ((more-debugger-args debugger-args) (first-debugger-arg (if mo
  ert--run-test-debugger([cl-struct-ert--test-execution-info [cl-struc
  (lambda (G1 &rest debugger-args) (ert--run-test-debugger (symbol-val
  apply((lambda (G1 &rest debugger-args) (ert--run-test-debugger (symb
  (lambda (&rest --cl-rest--) (apply (quote (lambda (G1 &rest debugger
  signal(ert-test-failed (((should (equal (match-data) previous-match-
  ert-fail(((should (equal (match-data) previous-match-data)) :form (e
  (if (unwind-protect (setq value-1617 (apply fn-1615 args-1616)) (set
  (let (form-description-1619) (if (unwind-protect (setq value-1617 (a
  (let ((value-1617 (quote ert-form-evaluation-aborted-1618))) (let (f
  (let ((fn-1615 (function equal)) (args-1616 (list (match-data) previ
  (let ((previous-match-data (match-data))) (let ((fn-1610 (function e
  (closure (t) nil (let ((previous-match-data (match-data))) (let ((fn
  funcall((closure (t) nil (let ((previous-match-data (match-data))) (
  (let ((debugger (list (quote lambda) (quote (&rest --cl-rest--)) (li
  (progn (let ((debugger (list (quote lambda) (quote (&rest --cl-rest-
  (unwind-protect (progn (let ((debugger (list (quote lambda) (quote (
  (let ((wconfig (current-window-configuration))) (unwind-protect (pro
  (progn (let ((wconfig (current-window-configuration))) (unwind-prote
  (unwind-protect (progn (let ((wconfig (current-window-configuration)
  (save-current-buffer (set-buffer temp-buffer) (unwind-protect (progn
  (let ((temp-buffer (generate-new-buffer " *temp*"))) (save-current-b
  (catch (quote ert--pass) (let ((temp-buffer (generate-new-buffer " *
  (progn (progn (progn nil (or (progn nil (and (vectorp (symbol-value 
  (let ((--cl-info-- (make-symbol "--info--"))) (let* ((v --cl-info--)
  ert--run-test-internal([cl-struct-ert--test-execution-info [cl-struc
  (let ((ert--should-execution-observer (list (quote lambda) (quote (&
  (unwind-protect (let ((ert--should-execution-observer (list (quote l
  (let ((--cl-info-- (make-symbol "--info--")) (--cl-should-form-accu-
  (unwind-protect (let ((--cl-info-- (make-symbol "--info--")) (--cl-s
  (let ((--cl-begin-marker-- (make-symbol "--begin-marker--"))) (let* 
  (catch (quote --cl-block-error--) (let ((--cl-begin-marker-- (make-s
  ert-run-test([cl-struct-ert-test s-titleized\? nil (closure (t) nil 
  (unwind-protect (ert-run-test test) (let* ((v (progn nil (or (progn 
  (let ((ert--current-run-stats stats) (pos (ert--stats-test-pos stats
  ert-run-or-rerun-test([cl-struct-ert--stats t [[cl-struct-ert-test s
  (while (consp --cl-var--) (setq test (car --cl-var--)) (ert-run-or-r
  (let* ((--cl-var-- tests) (test nil)) (while (consp --cl-var--) (set
  (progn (let* ((--cl-var-- tests) (test nil)) (while (consp --cl-var-
  (unwind-protect (progn (let* ((--cl-var-- tests) (test nil)) (while 
  (let ((ert--current-run-stats stats)) (force-mode-line-update) (unwi
  (unwind-protect (let ((ert--current-run-stats stats)) (force-mode-li
  (let ((abortedp t)) (unwind-protect (let ((ert--current-run-stats st
  (let* ((tests (ert-select-tests selector t)) (stats (ert--make-stats
  ert-run-tests(t (lambda (event-type &rest event-args) (cond ((eql ev
  ert-run-tests-batch(nil)
  (let ((stats (ert-run-tests-batch selector))) (kill-emacs (if (= 0 (
  (unwind-protect (let ((stats (ert-run-tests-batch selector))) (kill-
  ert-run-tests-batch-and-exit()
  command-line-1(("-l" "dev/ert.el" "-l" "dev/examples-to-tests.el" "-
  command-line()
  normal-top-level()
Test s-titleized\? condition:
    (ert-test-failed
     ((should
       (equal
	(match-data)
	previous-match-data))
      :form
      (equal
       (9 10)
       (0 0))
      :value nil :explanation
      (list-elt 0
		(different-atoms
		 (9 "#x9" "?	")
		 (0 "#x0" "?")))))
   FAILED  58/69  s-titleized\?

[jasonm23]

Closing. Please re-open if active.