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