~ chicken-core (chicken-5) 8241daf4d4428a9536b9029061ba3a7044016e19

commit 8241daf4d4428a9536b9029061ba3a7044016e19
Author:     unknown <felix@.(none)>
AuthorDate: Thu Nov 5 09:52:39 2009 +0100
Commit:     unknown <felix@.(none)>
CommitDate: Thu Nov 5 09:52:39 2009 +0100

    tests fixes, run fft in unboxed mode, too

diff --git a/tests/fft.scm b/tests/fft.scm
index 726ec292..787fcebb 100644
--- a/tests/fft.scm
+++ b/tests/fft.scm
@@ -2068,4 +2068,4 @@
 	(direct-fft-recursive-4 a table)
 	(inverse-fft-recursive-4 a table)))))
 
-(test 2000 11)
+(test 1000 11)
diff --git a/tests/runtests.sh b/tests/runtests.sh
index 84af3fc1..daf6e9b1 100644
--- a/tests/runtests.sh
+++ b/tests/runtests.sh
@@ -211,7 +211,11 @@ echo "======================================== timing compilation ..."
 time $compile silex.scm -t -S -O3
 
 echo "======================================== running floating-point benchmark ..."
-$compile fft.scm -O4 -d0 -disable-interrupts -unsafe-libraries
+echo "boxed:"
+$compile fft.scm -O5
+time ./a.out
+echo "unboxed:"
+$compile fft.scm -O5 -D unboxed
 time ./a.out
 
 echo "======================================== done."
diff --git a/tests/scrutiny.expected b/tests/scrutiny.expected
index b07e1f46..6d58ab98 100644
--- a/tests/scrutiny.expected
+++ b/tests/scrutiny.expected
@@ -40,9 +40,9 @@ Warning: at toplevel:
   assignment of value of type `fixnum' to toplevel variable `car' does not match declared type `(procedure car (pair) *)'
 
 Warning: at toplevel:
-  expected in operator position of procedure call `((values (quote 1) (quote 2)))' a single result, but were given 2 results
+  expected in `let' binding of `g8' a single result, but were given 2 results
 
 Warning: at toplevel:
-  expected in procedure call to `(values (quote 1) (quote 2))' a value of type `(procedure () *)', but were given a value of type `fixnum'
+  expected in procedure call to `g89' a value of type `(procedure () *)', but were given a value of type `fixnum'
 
 Warning: redefinition of standard binding `car'