summaryrefslogtreecommitdiff
path: root/gnu/usr.bin/bc/Test/checklib.b
diff options
context:
space:
mode:
authorcgd <cgd@NetBSD.org>1993-04-10 15:51:24 +0000
committercgd <cgd@NetBSD.org>1993-04-10 15:51:24 +0000
commit439d2fb46cfec58a16c4a9856cc00ea4a2ee6de3 (patch)
treedd34836a974bf8d23a53a2773f34394576710d12 /gnu/usr.bin/bc/Test/checklib.b
parenta3960efdef82d52889d981e42c8e404f99470203 (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.b109
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)
+