# HG changeset patch
# User Jaroslav Hajek <highegg@gmail.com>
# Date 1237289926 -3600
# Node ID 46a12e3f882c958b8ef581ce36e9545e47804d6e
# Parent  315828058e0d605ff2ea77af477db000039c8a55
have zero tolerance force numeric assert

diff -r 315828058e0d -r 46a12e3f882c scripts/testfun/assert.m
--- a/scripts/testfun/assert.m	Tue Mar 17 12:38:44 2009 +0100
+++ b/scripts/testfun/assert.m	Tue Mar 17 12:38:46 2009 +0100
@@ -141,7 +141,7 @@
       iserror = 1;
       coda = "Dimensions don't match";
 
-    elseif (tol == 0 && ! strcmp (typeinfo (cond), typeinfo (expected)))
+    elseif (nargin < 3 && ! strcmp (typeinfo (cond), typeinfo (expected)))
       iserror = 1;
       coda = cstrcat ("Type ", typeinfo (cond), " != ", typeinfo (expected));