src/unittests/unittests-specfn.lisp

   1 ;;; -*- mode: lisp -*-
   2 ;;; Copyright (c) 2007, by A.J. Rossini <blindglobe@gmail.com>
   3 ;;; See COPYRIGHT file for any additional restrictions (BSD license).
   4 ;;; Since 1991, ANSI was finally finished.  Edited for ANSI Common Lisp.
   5
   6 ;;; This is semi-external to lispstat core packages.  The dependency
   7 ;;; should be that lispstat packages are dependencies for the unit
   8 ;;; tests.  However, where they will end up is still to be
   9 ;;; determined.
  10
  11 (in-package :lisp-stat-unittests)
  12
  13 (deftestsuite lisp-stat-ut-spec-fns (lisp-stat-ut) ())
  14
  15 ;;;; Log-gamma function
  16
  17 (addtest (lisp-stat-ut-spec-fns) log-gamma-fn
  18          (ensure-same
  19           (log-gamma 3.4)
  20           1.0923280596789584
  21           :test 'almost=))
  22