diff --git a/ansi-tests/epsilons.lsp b/ansi-tests/epsilons.lsp new file mode 100644 index 0000000000000000000000000000000000000000..5bf80534edeee30d8e7af25595e5b5545a55da75 --- /dev/null +++ b/ansi-tests/epsilons.lsp @@ -0,0 +1,38 @@ +;-*- Mode: Lisp -*- +;;;; Author: Paul Dietz +;;;; Created: Wed Aug 20 22:05:20 2003 +;;;; Contains: Tests of the EPSILON constants + +(in-package :cl-test) + +(deftest epsilons.1 + (loop for e in (list short-float-epsilon single-float-epsilon + double-float-epsilon long-float-epsilon) + when (= (float 1 e) (+ (float 1 e) e)) + collect e) + nil) + +(deftest epsilons.2 + (loop for e in (list short-float-negative-epsilon + single-float-negative-epsilon + double-float-negative-epsilon + long-float-negative-epsilon) + when (= (float 1 e) (- (float 1 e) e)) + collect e) + nil) + +(deftest epsilons.3 + (loop for e in (list short-float-epsilon single-float-epsilon + double-float-epsilon long-float-epsilon) + unless (= (float 1 e) (+ (float 1 e) (/ e 2))) + collect e) + nil) + +(deftest epsilons.4 + (loop for e in (list short-float-negative-epsilon + single-float-negative-epsilon + double-float-negative-epsilon + long-float-negative-epsilon) + unless (= (float 1 e) (- (float 1 e) (/ e 2))) + collect e) + nil) \ No newline at end of file diff --git a/ansi-tests/load-numbers.lsp b/ansi-tests/load-numbers.lsp index bcf3c5cbafd6eb466c4d896f5c859d119ad3e93c..35062c43f3f1bfd817a70f1ffc0101c2f6922dbc 100644 --- a/ansi-tests/load-numbers.lsp +++ b/ansi-tests/load-numbers.lsp @@ -18,3 +18,5 @@ (load "fceiling.lsp") (load "truncate.lsp") (load "ftruncate.lsp") + +(load "epsilons.lsp")