# HG changeset patch
# User jwe
# Date 1020226774 0
# Node ID fb92c3b1aa3b695bc8b9568aded4ac18155c310b
# Parent  87db95b22f8fa1200f7b32f352a570d2a2144ff5
[project @ 2002-05-01 04:19:34 by jwe]

diff --git a/test/octave.test/poly/residue-1.m b/test/octave.test/poly/residue-1.m
--- a/test/octave.test/poly/residue-1.m
+++ b/test/octave.test/poly/residue-1.m
@@ -2,6 +2,6 @@
 a = [1, -5, 8, -4];
 [r, p, k, e] = residue (b, a);
 (abs (r - [-2; 7; 3]) < 1e-6
- && abs (p - [2; 2; 1]) < sqrt (eps)
+ && abs (p - [2; 2; 1]) < 1e-7)
  && isempty (k)
  && e == [1; 2; 1])