Changeset 25804 in project


Ignore:
Timestamp:
01/11/12 07:54:50 (9 years ago)
Author:
Ivan Raikov
Message:

sundials: update of unit tests

Location:
release/4/sundials/trunk
Files:
3 edited

Legend:

Unmodified
Added
Removed
  • release/4/sundials/trunk/sundials.setup

    r25795 r25804  
    6868
    6969  ; Assoc list with properties for your extension:
    70   `((version 1.9)
     70  `((version 1.11)
    7171    ))
    7272
  • release/4/sundials/trunk/tests/hh.scm

    r25539 r25804  
    157157              (h (f64vector-ref yy 2))
    158158              (n (f64vector-ref yy 3)))
    159           (assert (< (abs (- v 13.1818250584672)) 1e-12))
    160           (assert (< (abs (- m 0.988216867260496)) 1e-12))
    161           (assert (< (abs (- h 0.152871810132604)) 1e-12))
    162           (assert (< (abs (- n 0.680166108403409)) 1e-12))
     159
     160          (assert (< (abs (- v 12.8334007736321))  1e-12))
     161          (assert (< (abs (- m 0.988277249273334)) 1e-12))
     162          (assert (< (abs (- h 0.151908759594835)) 1e-12))
     163          (assert (< (abs (- n 0.681407916363)) 1e-12))
    163164          ))
    164165     
     
    200201              (h (f64vector-ref yy 2))
    201202              (n (f64vector-ref yy 3)))
    202           (assert (< (abs (- v 13.1818250584672)) 1e-12))
    203           (assert (< (abs (- m 0.988216867260496)) 1e-12))
    204           (assert (< (abs (- h 0.152871810132604)) 1e-12))
    205           (assert (< (abs (- n 0.680166108403409)) 1e-12))
     203
     204          (assert (< (abs (- v 12.8334007736321))  1e-12))
     205          (assert (< (abs (- m 0.988277249273334)) 1e-12))
     206          (assert (< (abs (- h 0.151908759594835)) 1e-12))
     207          (assert (< (abs (- n 0.681407916363)) 1e-12))
    206208          ))
    207209     
  • release/4/sundials/trunk/tests/ml.scm

    r25539 r25804  
    149149        (let ((v (f64vector-ref yy 0))
    150150              (w (f64vector-ref yy 1)))
    151           (assert (< (abs (- v -30.0333833471119 )) 1e-12))
    152           (assert (< (abs (- w 0.04023343585461 )) 1e-12))
    153           ))
    154 
     151          (assert (< (abs (- v -30.0536210523504 )) 1e-10))
     152          (assert (< (abs (- w   0.0402640532125 )) 1e-10))
     153          ))
    155154      (cvode-destroy-solver solver)
    156155     
     
    189188        (let ((v (f64vector-ref yy 0))
    190189              (w (f64vector-ref yy 1)))
    191           (assert (< (abs (- v -30.0333833471119 )) 1e-12))
    192           (assert (< (abs (- w 0.04023343585461 )) 1e-12))
     190          (assert (< (abs (- v -30.0536210523504 )) 1e-10))
     191          (assert (< (abs (- w   0.0402640532125 )) 1e-10))
    193192          ))
    194193
Note: See TracChangeset for help on using the changeset viewer.