1% Regression test for a sensible error message 2 3% Added by Rainer Schöpf, 30 Aug 2011 4 5% The substitution at the end of this test file causes 0/0 to be formed. 6% This file tests that a sensible error message is printed. 7 8zz2 := (z*(z-2*pi*i)*(z-pi*i/2)^2)/(sinh z-i); 9 10 11 3 2 2 3 12 z*(2*i*pi - 12*i*pi*z - 9*pi *z + 4*z ) 13zz2 := ------------------------------------------- 14 4*(sinh(z) - i) 15 16 17dz2 := df(zz2,z); 18 19 20 3 3 2 2 21dz2 := ( - 2*cosh(z)*i*pi *z + 12*cosh(z)*i*pi*z + 9*cosh(z)*pi *z 22 23 4 3 2 24 - 4*cosh(z)*z + 2*sinh(z)*i*pi - 36*sinh(z)*i*pi*z 25 26 2 3 2 3 3 27 - 18*sinh(z)*pi *z + 16*sinh(z)*z + 18*i*pi *z - 16*i*z + 2*pi 28 29 2 2 30 - 36*pi*z )/(4*(sinh(z) - 2*sinh(z)*i - 1)) 31 32 33z0 := pi*i/2; 34 35 36 i*pi 37z0 := ------ 38 2 39 40 41sub(z=z0,dz2); 42 43 44***** 0/0 formed 45 46 47end; 48 49Tested on x86_64-pc-windows CSL 50Time (counter 1): 0 ms 51 52End of Lisp run after 0.01+0.04 seconds 53real 0.17 54user 0.01 55sys 0.04 56