augment.lisp 506 Bytes
Newer Older
Liam Healy's avatar
Liam Healy committed
1
2
;; Additional methods for lisp-unit
;; Liam Healy 2009-04-15 23:23:30EDT augment.lisp
3
;; Time-stamp: <2009-04-30 12:25:37EDT augment.lisp>
Liam Healy's avatar
Liam Healy committed
4
5
6
7
8
;; $Id: $

(in-package :gsl)

(defmethod lisp-unit:numerical-equal
9
10
11
12
13
    ((result1 marray) (result2 marray) &key (test #'lisp-unit:number-equal))
  "Return true if the arrays are numerically equal according to :TEST."
  (when (equal (dimensions result1) (dimensions result2))
    (lisp-unit:numerical-equal (cl-array result1) (cl-array result2)
			       :test test)))