Changeset 27419 in project


Ignore:
Timestamp:
09/13/12 10:18:17 (9 years ago)
Author:
Ivan Raikov
Message:

glpk: adjustments in unit test

File:
1 edited

Legend:

Unmodified
Added
Removed
  • release/4/glpk/trunk/tests/run.scm

    r25187 r27419  
    5757  (let ((status (lpx:simplex lpp)))
    5858    (assert (= status 200))
    59     (assert (< (abs (- (lpx:get-objective-value lpp) 733.33333333333333)) 1e-15))
    60     (assert (every (lambda (x y) (< (abs (- x y)) 1e-15))
     59    (assert (< (abs (- (lpx:get-objective-value lpp) 733.33333333333333)) 1e-12))
     60    (assert (every (lambda (x y) (< (abs (- x y)) 1e-12))
    6161                   (f64vector->list (lpx:get-column-primals lpp))
    6262                   '(33.333333333333333 66.66666666666667 0.0)))
Note: See TracChangeset for help on using the changeset viewer.