diff options
| author | cgd <cgd@NetBSD.org> | 1993-04-10 15:51:24 +0000 |
|---|---|---|
| committer | cgd <cgd@NetBSD.org> | 1993-04-10 15:51:24 +0000 |
| commit | 439d2fb46cfec58a16c4a9856cc00ea4a2ee6de3 (patch) | |
| tree | dd34836a974bf8d23a53a2773f34394576710d12 /gnu/usr.bin/bc/Test/checklib.b | |
| parent | a3960efdef82d52889d981e42c8e404f99470203 (diff) | |
gnu bc. necessary to compile the distribution
Diffstat (limited to 'gnu/usr.bin/bc/Test/checklib.b')
| -rw-r--r-- | gnu/usr.bin/bc/Test/checklib.b | 109 |
1 files changed, 109 insertions, 0 deletions
diff --git a/gnu/usr.bin/bc/Test/checklib.b b/gnu/usr.bin/bc/Test/checklib.b new file mode 100644 index 00000000000..88ed2723b55 --- /dev/null +++ b/gnu/usr.bin/bc/Test/checklib.b @@ -0,0 +1,109 @@ +define t (x,y,d,s,t) { + auto u, v, w, i, b, c; + + if (s >= t) { + "Bad Scales. Try again. +"; return; + } + + for (i = x; i < y; i += d) { + scale = s; + u = f(i); + scale = t; + v = f(i); + scale = s; + w = v / 1; + b += 1; + if (u != w) { + c += 1; +" +Failed: +" + " index = "; i; + " val1 = "; u; + " val2 = "; v; +" +" + } + } + +" +Total tests: "; b; +" +Total failures: "; c; +" +Percent failed: "; scale = 2; c*100/b; + +} + + +" +Checking e(x)" +define f(x) { + return (e(x)) +} +" +scale = 10" +j = t(-50,50,1,10,14) +" +scale = 20" +j = t(-50,50,1,20,24) + +" +Checking l(x)" +define f(x) { + return (l(x)) +} +" +scale = 10" +j = t(1,10000,100,10,14) +" +scale = 20" +j = t(1,10000,100,20,24) + +" +Checking s(x)" +define f(x) { + return (s(x)) +} +" +scale = 10" +j = t(0,8*a(1),.01,10,14) +" +scale = 20" +j = t(1,8*a(1),.01,20,24) + +" +Checking a(x)" +define f(x) { + return (a(x)) +} +" +scale = 10" +j = t(-100,100,1,10,14) +" +scale = 20" +j = t(-100,100,1,20,24) + +" +Checking j(n,x)" +define f(x) { + return (j(n,x)) +} +" +n=0, scale=10" +n=0 +j = t(0,30,.1,10,14) +" +n=1, scale=10" +n=1 +j = t(0,30,.1,10,14) +" +n=0, scale=20" +n=0 +j = t(0,30,.1,20,24) +" +n=1, scale=20" +n=1 +j = t(0,30,.1,20,24) + |
