diff --git a/ansi-tests/get-internal-time.lsp b/ansi-tests/get-internal-time.lsp new file mode 100644 index 0000000000000000000000000000000000000000..7eda0681a25cc1d4c49e4b61a5f838bde27cab04 --- /dev/null +++ b/ansi-tests/get-internal-time.lsp @@ -0,0 +1,66 @@ +;-*- Mode: Lisp -*- +;;;; Author: Paul Dietz +;;;; Created: Sun May 8 20:28:21 2005 +;;;; Contains: Tests of GET-INTERNAL-REAL-TIME, GET-INTERNAL-RUN-TIME + +(in-package :cl-test) + +(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) diff --git a/ansi-tests/load-environment.lsp b/ansi-tests/load-environment.lsp index ffa736f77b2c442758a5f9aee3baf84d3942fa78..fe19fe9054ee07966bc0faa14041870c050782c6 100644 --- a/ansi-tests/load-environment.lsp +++ b/ansi-tests/load-environment.lsp @@ -17,3 +17,4 @@ (load "encode-universal-time.lsp") (load "get-universal-time.lsp") (load "sleep.lsp") +(load "get-internal-time.lsp")