Changeset 4281 for zzuf/trunk/testTweet

Timestamp:

Jan 19, 2010, 1:44:15 PM (11 years ago)

Author:

Sam Hocevar

Message:

Fix a bug in the -s test script that failed to detect failures.

File:

• zzuf/trunk/test/check-zzuf-s-seed (modified) (2 diffs)

zzuf/trunk/test/check-zzuf-s-seed

@@ -16 +16 @@
 start_test "zzuf -s test"
 
-for ratio in 1 0.1 0.01 0.001 0.0001; do
-  if test $ratio = 0.0001; then
-    bytes=1024
-  elif test $ratio = 0.001; then
-    bytes=8192
-  else
-    bytes=32768
-  fi
+t=0
+while : ; do
+  case $t in
+    0) ratio=1; bytes=32768 ;;
+    1) ratio=0.1; bytes=32768 ;;
+    2) ratio=0.01; bytes=32768 ;;
+    3) ratio=0.001; bytes=8192 ;;
+    4) ratio=0.0001; bytes=1024 ;;
+    *) break ;;
+  esac
+  t=$(expr $t + 1)
   new_test "$bytes B of zeroes, ratio $ratio"
   zeroes=$(expr $bytes '*' 4)
@@ -33 +36 @@
     passes=$(expr '(' $passes '*' 7 + 3 ')' / 4)
   done
-  if test $passes -lt 2000000; then
+  if test $passes -lt 200000; then
       pass_test " ok"
   else