Changeset 10171


Ignore:
Timestamp:
10/20/05 19:22:48 (16 years ago)
Author:
piso
Message:

Work in progress.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/j/src/org/armedbear/lisp/tests/math-tests.lisp

    r10169 r10171  
    22;;;
    33;;; Copyright (C) 2005 Peter Graves
    4 ;;; $Id: math-tests.lisp,v 1.3 2005-10-20 12:49:09 piso Exp $
     4;;; $Id: math-tests.lisp,v 1.4 2005-10-20 19:22:48 piso Exp $
    55;;;
    66;;; This program is free software; you can redistribute it and/or
     
    2121
    2222(unless (member "RT" *modules* :test #'string=)
    23   (unless (ignore-errors (logical-pathname-translations "ansi-tests"))
    24     (error "~S is not defined as a logical pathname host." "ansi-tests"))
    25   (load "ansi-tests:rt-package.lsp")
    26   (load #+abcl (compile-file-if-needed "ansi-tests:rt.lsp")
     23;;   (unless (ignore-errors (logical-pathname-translations "ansi-tests"))
     24;;     (error "~S is not defined as a logical pathname host." "ansi-tests"))
     25;;   (load "ansi-tests:rt-package.lsp")
     26  (load "rt-package.lisp")
     27;;   (load #+abcl (compile-file-if-needed "ansi-tests:rt.lsp")
     28;;         ;; Force compilation to avoid fasl name conflict between SBCL and
     29;;         ;; Allegro.
     30;;         #-abcl (compile-file "ansi-tests:rt.lsp"))
     31  (load #+abcl (compile-file-if-needed "rt.lisp")
    2732        ;; Force compilation to avoid fasl name conflict between SBCL and
    2833        ;; Allegro.
    29         #-abcl (compile-file "ansi-tests:rt.lsp"))
     34        #-abcl (compile-file "rt.lisp"))
    3035  (provide "RT"))
     36
     37;; FIXME
     38(load "test-utilities.lisp")
    3139
    3240(regression-test:rem-all-tests)
     
    200208
    201209#+(or abcl cmu lispworks sbcl)
    202 (deftest sqrt.13
     210(deftest sqrt.14
    203211  (float-sign (sqrt -0.0d0))
    204212  -1.0d0)
     
    391399  1.2304489213782739d0)
    392400
     401(deftest truncate.1
     402  (truncate least-positive-single-float)
     403  0 #.least-positive-single-float)
     404
     405(deftest truncate.2
     406  (truncate least-positive-double-float)
     407  0 #.least-positive-double-float)
     408
     409(deftest truncate.3
     410  (signals-error (truncate least-positive-single-float 2) 'floating-point-underflow)
     411  t)
     412
     413(deftest truncate.4
     414  (signals-error (truncate least-positive-double-float 2) 'floating-point-underflow)
     415  t)
     416
    393417(do-tests)
Note: See TracChangeset for help on using the changeset viewer.