;-*- Mode:     Lisp -*-
;;;; Author:   Paul Dietz
;;;; Created:  Sun Sep  7 07:41:15 2003
;;;; Contains: Tests of REALPART



(deftest realpart.error.1
  (signals-error (realpart) program-error)
  t)

(deftest realpart.error.2
  (signals-error (realpart #c(1.0 2.0) nil) program-error)
  t)

(deftest realpart.error.3
  (check-type-error #'realpart #'numberp)
  nil)

(deftest realpart.1
  (loop for x in *reals*
        for c = (complex x 0)
        for rp = (realpart c)
        unless (eql x rp)
        collect (list x c rp))
  nil)

(deftest realpart.2
  (loop for x in *reals*
        for c = (complex x 1)
        for rp = (realpart c)
        unless (eql x rp)
        collect (list x c rp))
  nil)

(deftest realpart.3
  (loop for x in *reals*
        for c = (complex x x)
        for rp = (realpart c)
        unless (eql x rp)
        collect (list x c rp))
  nil)

;;; Should move this to complex.lsp
(deftest realpart.4
  (loop for c in *complexes*
        for rp = (realpart c)
        for ip = (imagpart c)
        for c2 = (complex rp ip)
        unless (eql c c2)
        collect (list c rp ip c2))
  nil)