From 7ea83d34ef6e127a74f059e661e263995ca8db78 Mon Sep 17 00:00:00 2001 From: pfdietz <pfdietz@localhost> Date: Mon, 9 May 2005 01:37:17 +0000 Subject: [PATCH] Add tests for get-internal-real/run-time --- ansi-tests/get-internal-time.lsp | 66 ++++++++++++++++++++++++++++++++ ansi-tests/load-environment.lsp | 1 + 2 files changed, 67 insertions(+) create mode 100644 ansi-tests/get-internal-time.lsp diff --git a/ansi-tests/get-internal-time.lsp b/ansi-tests/get-internal-time.lsp new file mode 100644 index 00000000..7eda0681 --- /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 ffa736f7..fe19fe90 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") -- GitLab