From: David Vázquez <davazp@gmail.com>
Date: Thu, 25 Apr 2013 22:48:38 +0000 (+0100)
Subject: More accurate test timing
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=a94bce9351582971c825e82c1ab7b8a13943bc51;p=jscl.git

More accurate test timing
---

diff --git a/tests/tests-report.lisp b/tests/tests-report.lisp
index c1b9346..b40da9e 100644
--- 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
--- 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