Changeset 27419 in project

Timestamp:

09/13/12 10:18:17 (8 years ago)

Author:

Ivan Raikov

Message:

glpk: adjustments in unit test

File:

• release/4/glpk/trunk/tests/run.scm (modified) (1 diff)

release/4/glpk/trunk/tests/run.scm

@@ -57 +57 @@
   (let ((status (lpx:simplex lpp)))
     (assert (= status 200))
-    (assert (< (abs (- (lpx:get-objective-value lpp) 733.33333333333333)) 1e-15))
-    (assert (every (lambda (x y) (< (abs (- x y)) 1e-15))
+    (assert (< (abs (- (lpx:get-objective-value lpp) 733.33333333333333)) 1e-12))
+    (assert (every (lambda (x y) (< (abs (- x y)) 1e-12))
                    (f64vector->list (lpx:get-column-primals lpp))
                    '(33.333333333333333 66.66666666666667 0.0)))