From af6061894598efdcb1aeebbac2283d6e1d085820 Mon Sep 17 00:00:00 2001 From: Paul Eggert Date: Sun, 5 Dec 2021 17:58:11 -0800 Subject: [PATCH] Simplify cedet-utest-elapsed-time * test/manual/cedet/cedet-utests.el (cedet-utest-elapsed-time): Copy newer (circa-2011) implementation from elp.el, so that the code matches its documentation again. --- test/manual/cedet/cedet-utests.el | 4 +--- 1 file changed, 1 insertion(+), 3 deletions(-) diff --git a/test/manual/cedet/cedet-utests.el b/test/manual/cedet/cedet-utests.el index d68b5b8c090..af6b4defb3c 100644 --- a/test/manual/cedet/cedet-utests.el +++ b/test/manual/cedet/cedet-utests.el @@ -252,9 +252,7 @@ Optional argument TITLE is the title of this testing session." (defun cedet-utest-elapsed-time (start end) "Copied from elp.el. Was elp-elapsed-time. Argument START and END bound the time being calculated." - (+ (* (- (car end) (car start)) 65536.0) - (- (car (cdr end)) (car (cdr start))) - (/ (- (car (cdr (cdr end))) (car (cdr (cdr start)))) 1000000.0))) + (float-time (time-subtract start end))) (defun cedet-utest-log-shutdown (title &optional _errorcondition) "Shut-down a larger test suite. -- 2.39.2