tests/unit_tests/spec.dia.ref

59 if S<>[] then bugmes();quit;end
62 if al<>[] then bugmes();quit;end
63 if be<>[] then bugmes();quit;end
67 if execstr('spec([%inf 1;2 3])','errcatch')==0 then bugmes();quit;end
68 if execstr('spec([1 %nan;2 3])','errcatch')==0 then bugmes();quit;end
70 if execstr('spec([%inf 1;1 3])','errcatch')==0 then bugmes();quit;end
73 if execstr('spec([%inf %i;2 3])','errcatch')==0 then bugmes();quit;end
74 if execstr('spec([%i %i;%nan 3])','errcatch')==0 then bugmes();quit;end
76 if execstr('spec([%inf %i;-%i 3])','errcatch')==0 then bugmes();quit;end
81 if Checktestmat1(3,5)>200*%eps then bugmes();quit;end
83 if Err(U*S/U-testmat1(3,5))>200*%eps then bugmes();quit;end
85 if Checktestmat2(3,5)>200*%eps then bugmes();quit;end
87 if Err(U*S/U-testmat2(3,5))>200*%eps then bugmes();quit;end
91 if Err(Scomputed - Sexpected)>200*%eps then bugmes();quit;end
95 if Err(Scomputed - Sexpected)>200*%eps then bugmes();quit;end
98 if Checktestmat1(3+2*%i,5)>200*%eps then bugmes();quit;end
100 if Err(U*S/U-testmat1(3+2*%i,5))>200*%eps then bugmes();quit;end
102 if Checktestmat2(3+2*%i,5)>200*%eps then bugmes();quit;end
104 if Err(U*S/U-testmat2(3+2*%i,5))>200*%eps then bugmes();quit;end
108 if Err(Scomputed - Sexpected)>200*%eps then bugmes();quit;end
112 if Err(Scomputed - Sexpected)>200*%eps then bugmes();quit;end
117 if Checktestmat1(3,50)>1000*%eps then bugmes();quit;end
119 if Err(U*S/U-testmat1(3,50))>1000*%eps then bugmes();quit;end
121 if Checktestmat2(3,50)>1000*%eps then bugmes();quit;end
123 if Err(U*S/U-testmat2(3,50))>1000*%eps then bugmes();quit;end
126 if Checktestmat1(3+2*%i,50)>1000*%eps then bugmes();quit;end
128 if Err(U*S/U-testmat1(3+2*%i,50))>1000*%eps then bugmes();quit;end
130 if Checktestmat2(3+2*%i,50)>1000*%eps then bugmes();quit;end
132 if Err(U*S/U-testmat2(3+2*%i,50))>10000*%eps then bugmes();quit;end