Add more rand tests
diff --git a/tests/bc/rand.txt b/tests/bc/rand.txt
index 56b1b93..c4583a8 100644
--- a/tests/bc/rand.txt
+++ b/tests/bc/rand.txt
@@ -1,3 +1,5 @@
+print "Gathering array...\n"
+
s = seed
sum = 0
@@ -8,6 +10,8 @@
b[i] = irand(sum)
}
+print "Testing implementation...\n"
+
if (maxrand() >= 2^64 - 1) {
seed = 54.86785590782347282592869373784717814475564948862907968939359536927733440\
@@ -247,6 +251,8 @@
}
}
+print "Testing array...\n"
+
ibase = A
seed = s
@@ -259,6 +265,8 @@
b[i] == irand(sum)
}
+print "Exercising irand()...\n"
+
scale = 256
pow = (maxrand() + 1) ^ 4
@@ -269,3 +277,13 @@
s = -459.125
seed = s
seed == -s
+
+irand(0)
+irand(0.0281927340987)
+irand(1)
+irand(1.0182739504871)
+irand(maxrand() + 1) <= maxrand()
+
+for (i = 0; i < 200; ++i) {
+ irand(20) < 20
+}
diff --git a/tests/bc/rand_results.txt b/tests/bc/rand_results.txt
index c6562df..25de7a9 100644
--- a/tests/bc/rand_results.txt
+++ b/tests/bc/rand_results.txt
@@ -1,3 +1,5 @@
+Gathering array...
+Testing implementation...
86B1DA1D72062B68
1304AA46C9853D39
A3670E9E0DD50358
@@ -198,6 +200,7 @@
CB8F63B5
9B3227E5
9A61E339
+Testing array...
1
1
1
@@ -398,5 +401,211 @@
1
1
1
+Exercising irand()...
+1
+1
+0
+0
+0
+0
+1
+1
+1
+1
+1
+1
+1
+1
+1
+1
+1
+1
+1
+1
+1
+1
+1
+1
+1
+1
+1
+1
+1
+1
+1
+1
+1
+1
+1
+1
+1
+1
+1
+1
+1
+1
+1
+1
+1
+1
+1
+1
+1
+1
+1
+1
+1
+1
+1
+1
+1
+1
+1
+1
+1
+1
+1
+1
+1
+1
+1
+1
+1
+1
+1
+1
+1
+1
+1
+1
+1
+1
+1
+1
+1
+1
+1
+1
+1
+1
+1
+1
+1
+1
+1
+1
+1
+1
+1
+1
+1
+1
+1
+1
+1
+1
+1
+1
+1
+1
+1
+1
+1
+1
+1
+1
+1
+1
+1
+1
+1
+1
+1
+1
+1
+1
+1
+1
+1
+1
+1
+1
+1
+1
+1
+1
+1
+1
+1
+1
+1
+1
+1
+1
+1
+1
+1
+1
+1
+1
+1
+1
+1
+1
+1
+1
+1
+1
+1
+1
+1
+1
+1
+1
+1
+1
+1
+1
+1
+1
+1
+1
+1
+1
+1
+1
+1
+1
+1
+1
+1
+1
+1
+1
+1
+1
+1
+1
+1
+1
+1
+1
+1
+1
+1
+1
+1
+1
+1
+1
+1
+1
+1
+1
+1
+1
+1
+1
+1
1
1