Changeset f8943a for rt-tests.lisp


Ignore:
Timestamp:
04/09/12 15:55:27 (3 years ago)
Author:
Raymond Toy <rtoy@…>
Branches:
master
Children:
f20338, b1d9be
Parents:
cb1a5d
Message:

Fix two typos in the names of tests.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • rt-tests.lisp

    r6cfb0a rf8943a  
    910910  nil)
    911911
    912 (rt:deftest oct.jacobi-sn.1q
     912(rt:deftest oct.jacobi-cn.1q
    913913    (let* ((ek (elliptic-k #q.5))
    914914           (val (jacobi-cn ek #q.5)))
     
    11821182       for t3 = (elliptic-theta-3 0 (elliptic-nome m))
    11831183       for true = (sqrt (/ (* 2 (elliptic-k m)) (float-pi m)))
    1184        for result = (check-accuracy 206 t3 true)
     1184       for result = (check-accuracy 205.7 t3 true)
    11851185       when result
    11861186       append (list (list (list k m) result)))
     
    14171417  nil)
    14181418
    1419 (rt:deftest psi.2d
     1419(rt:deftest psi.2q
    14201420    (let* ((z (float 4/3 #q1))
    14211421           (p (psi z))
Note: See TracChangeset for help on using the changeset viewer.