diff options
| -rw-r--r-- | test/lisp/emacs-lisp/hierarchy-tests.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/test/lisp/emacs-lisp/hierarchy-tests.el b/test/lisp/emacs-lisp/hierarchy-tests.el index d83460a2baa..97a0f7ba52c 100644 --- a/test/lisp/emacs-lisp/hierarchy-tests.el +++ b/test/lisp/emacs-lisp/hierarchy-tests.el | |||
| @@ -689,7 +689,7 @@ and then create a list of the number plus 0.0–0.9." | |||
| 689 | (190.5 '191) | 689 | (190.5 '191) |
| 690 | (191 '192)))) | 690 | (191 '192)))) |
| 691 | (hierarchy (hierarchy-new))) | 691 | (hierarchy (hierarchy-new))) |
| 692 | (hierarchy-add-trees hierarchy '(191 190.5) parentfn | 692 | (hierarchy-add-trees hierarchy '(190 190.5) parentfn |
| 693 | #'hierarchy-examples-delayed--childrenfn nil t) | 693 | #'hierarchy-examples-delayed--childrenfn nil t) |
| 694 | (should (equal (hierarchy-roots hierarchy) '(192))) | 694 | (should (equal (hierarchy-roots hierarchy) '(192))) |
| 695 | (should (equal (hierarchy-children hierarchy '192) '(191))) | 695 | (should (equal (hierarchy-children hierarchy '192) '(191))) |