Commit 7d3b08bf authored by pfdietz's avatar pfdietz
Browse files

Add tests of sleep

parent d910f029
......@@ -16,3 +16,4 @@
(load "decode-universal-time.lsp")
(load "encode-universal-time.lsp")
(load "get-universal-time.lsp")
(load "sleep.lsp")
;-*- Mode: Lisp -*-
;;;; Author: Paul Dietz
;;;; Created: Sun May 8 19:53:39 2005
;;;; Contains: Tests of SLEEP
(in-package :cl-test)
(deftest sleep.1
(sleep 0)
nil)
(deftest sleep.2
(sleep 0.0s0)
nil)
(deftest sleep.3
(sleep 0.0f0)
nil)
(deftest sleep.4
(sleep 0.0d0)
nil)
(deftest sleep.5
(sleep 0.0l0)
nil)
(deftest sleep.6
(sleep 1.0f-8)
nil)
(deftest sleep.7
(sleep 1/100)
nil)
(deftest sleep.8
(sleep (/ internal-time-units-per-second))
nil)
(deftest sleep.9
(sleep (/ 1000000000000000000000000000000))
nil)
(deftest sleep.10
(sleep least-positive-short-float)
nil)
(deftest sleep.11
(sleep least-positive-single-float)
nil)
(deftest sleep.12
(sleep least-positive-double-float)
nil)
(deftest sleep.13
(sleep least-positive-long-float)
nil)
;;; Error cases
(deftest sleep.error.1
(signals-error (sleep) program-error)
t)
(deftest sleep.error.2
(signals-error (sleep 100 nil) program-error)
t)
(deftest sleep.error.3
(check-type-error #'sleep #'(lambda (x) (and (realp x) (>= x 0))))
nil)
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment