More accurate test timing

diff --git a/tests/tests-report.lisp b/tests/tests-report.lisp
index c1b9346..b40da9e 100644 (file)
--- a/tests/tests-report.lisp
+++ b/tests/tests-report.lisp
@@ -1,6 +1,6 @@
 (write-line "")
 (write-string "Finished. The execution took ")
-(write-string (prin1-to-string (- (get-universal-time) *timestamp*)))
+(write-string (prin1-to-string (/ (- (get-internal-real-time) *timestamp*) internal-time-units-per-second)))
 (write-line " seconds.")
 
 (cond

diff --git a/tests/tests.lisp b/tests/tests.lisp
index 2477bf6..b230068 100644 (file)
--- a/tests/tests.lisp
+++ b/tests/tests.lisp
@@ -1,6 +1,6 @@
 (defvar *passed-tets* 0)
 (defvar *failed-tets* 0)
-(defvar *timestamp* (get-universal-time))
+(defvar *timestamp* (get-internal-real-time))
 
 (defmacro test (condition)
   `(cond