Changeset f8943af6bff60e23d679089db5207b4834aa83ff for rt-tests.lisp

Timestamp:

04/09/12 08:55:27 (14 months ago)

Author:

Raymond Toy <rtoy@…>

Children:

f203389e5e78d1f001f68447ac2a9dd86dcfbbf6, 22db89aa72af64360ed2d0f97709fc26ca01368b

Parents:

cb1a5d41baf9d4db12a2563a230d0a1e55c8adea

git-committer:

Raymond Toy <rtoy@…> (04/09/12 08:55:27)

Message:

Fix two typos in the names of tests.

Files:

• rt-tests.lisp (modified) (3 diffs)

rt-tests.lisp

@@ -909 +909 @@
   nil)
 
-(rt:deftest oct.jacobi-sn.1q
+(rt:deftest oct.jacobi-cn.1q
     (let* ((ek (elliptic-k #q.5))
            (val (jacobi-cn ek #q.5)))
@@ -1180 +1180 @@
        for t3 = (elliptic-theta-3 0 (elliptic-nome m))
        for true = (sqrt (/ (* 2 (elliptic-k m)) (float-pi m)))
-       for result = (check-accuracy 206 t3 true)
+       for result = (check-accuracy 205.7 t3 true)
        when result
        append (list (list (list k m) result)))
@@ -1412 +1412 @@
   nil)
 
-(rt:deftest psi.2d
+(rt:deftest psi.2q
     (let* ((z (float 4/3 #q1))
            (p (psi z))