;-*- Mode:     Lisp -*-
;;;; Author:   Paul Dietz
;;;; Created:  Sun May  8 20:28:21 2005
;;;; Contains: Tests of GET-INTERNAL-REAL-TIME, GET-INTERNAL-RUN-TIME



(deftest get-internal-real-time.1
  (notnot-mv (typep (multiple-value-list (get-internal-real-time)) '(cons unsigned-byte null)))
  t)

(deftest get-internal-real-time.2
  (funcall
   (compile
    nil
    '(lambda ()
       (let ((prev (get-internal-real-time)))
         (loop for next = (get-internal-real-time)
               repeat 100000
               do (assert (>= next prev))
               do (setf prev next))))))
  nil)

(deftest get-internal-real-time.error.1
  (signals-error (get-internal-real-time nil) program-error)
  t)

(deftest get-internal-real-time.error.2
  (signals-error (get-internal-real-time :allow-other-keys t) program-error)
  t)

;;;;;

(deftest get-internal-run-time.1
  (notnot-mv (typep (multiple-value-list (get-internal-run-time)) '(cons unsigned-byte null)))
  t)

(deftest get-internal-run-time.2
  (funcall
   (compile
    nil
    '(lambda ()
       (let ((prev (get-internal-run-time)))
         (loop for next = (get-internal-run-time)
               repeat 100000
               do (assert (>= next prev))
               do (setf prev next))))))
  nil)

(deftest get-internal-run-time.error.1
  (signals-error (get-internal-run-time nil) program-error)
  t)

(deftest get-internal-run-time.error.2
  (signals-error (get-internal-run-time :allow-other-keys t) program-error)
  t)

;;;

(deftest internal-time-units-per-second.1
  (notnot-mv (constantp 'internal-time-units-per-second))
  t)

(deftest internal-time-units-per-second.2
  (notnot-mv (typep internal-time-units-per-second '(integer 1)))
  t)