From ca1c6ecc0e463c36634860e56bb73fd413da2e28 Mon Sep 17 00:00:00 2001
From: Johannes Pfeifer <jpfeifer@gmx.de>
Date: Thu, 24 Nov 2016 11:50:21 +0100
Subject: [PATCH] Increase test tolerance under Octave for lpdfgweibull.m

---
 matlab/distributions/lpdfgweibull.m | 12 ++++++++++--
 1 file changed, 10 insertions(+), 2 deletions(-)

diff --git a/matlab/distributions/lpdfgweibull.m b/matlab/distributions/lpdfgweibull.m
index 8e882f5e1..c99cba7cd 100644
--- a/matlab/distributions/lpdfgweibull.m
+++ b/matlab/distributions/lpdfgweibull.m
@@ -262,7 +262,11 @@ end
 %$ end
 %$
 %$ if t(1)
-%$    t(2) = abs(s-1)<1e-6;
+%$        if isoctave()
+%$            t(2) = abs(s-1)<5e-5;
+%$        else
+%$            t(2) = abs(s-1)<1e-6;
+%$        end
 %$ end
 %$
 %$ T = all(t);
@@ -423,7 +427,11 @@ end
 %$    for i=1:n
 %$        x = .1*i;
 %$        q = 1-exp(-(x/scale)^shape);
-%$        t(i+1) = abs(s(i)-q)<1e-6;
+%$        if isoctave()
+%$            t(i+1) = abs(s(i)-q)<5e-5;
+%$        else
+%$            t(i+1) = abs(s(i)-q)<1e-6;
+%$        end
 %$    end
 %$ end
 %$