diff options
author | Paul Eggert <eggert@cs.ucla.edu> | 2021-12-05 17:58:11 -0800 |
---|---|---|
committer | Paul Eggert <eggert@cs.ucla.edu> | 2021-12-05 23:24:08 -0800 |
commit | af6061894598efdcb1aeebbac2283d6e1d085820 (patch) | |
tree | 55065f8078339e4930bda6ff345f56a3decec14c /test | |
parent | 83fa35bb16a219faba6f2c793dd0fce83833a5ec (diff) | |
download | emacs-af6061894598efdcb1aeebbac2283d6e1d085820.tar.gz |
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.
Diffstat (limited to 'test')
-rw-r--r-- | test/manual/cedet/cedet-utests.el | 4 |
1 files changed, 1 insertions, 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. |