~ chicken-core (chicken-5) 274708adf78af6f404b4f7e1dd2c09ae94e56688

commit 274708adf78af6f404b4f7e1dd2c09ae94e56688
Author:     felix <felix@call-with-current-continuation.org>
AuthorDate: Mon Sep 20 04:49:40 2010 -0400
Commit:     felix <felix@call-with-current-continuation.org>
CommitDate: Mon Sep 20 04:49:40 2010 -0400

    test-suite fixes

diff --git a/tests/fixnum-tests.scm b/tests/fixnum-tests.scm
index faf18b6d..9c5b95c0 100644
--- a/tests/fixnum-tests.scm
+++ b/tests/fixnum-tests.scm
@@ -4,9 +4,18 @@
 (assert (= 4 (fxo+ 2 2)))
 (assert (= -26 (fxo+ 74 -100)))
 (assert (= 1073741823 (fxo+ #x3ffffffe 1)))
-(assert (not (fxo+ #x3fffffff 1)))
+(assert
+ (if (##sys#fudge 3)                   ; 64-bit?
+     (not (fxo+ #x3fffffffffffffff 1))
+     (not (fxo+ #x3fffffff 1))))
 (assert (= 4 (fxo- 6 2)))
 (assert (= -4 (fxo- 1000 1004)))
 (assert (= 2004 (fxo- 1000 -1004)))
-(assert (= -1073741824 (fxo- (- #x3fffffff) 1)))
-(assert (not (fxo- (- #x3fffffff) 2)))
+(assert
+ (if (##sys#fudge 3)                   ; 64-bit?
+     (= -4611686018427387904 (fxo- (- #x3fffffffffffffff) 1))
+     (= -1073741824 (fxo- (- #x3fffffff) 1))))
+(assert
+ (if (##sys#fudge 3)                   ; 64-bit?
+     (not (fxo- (- #x3fffffffffffffff) 2))
+     (not (fxo- (- #x3fffffff) 2))))
diff --git a/tests/import-tests.scm b/tests/import-tests.scm
index f6fd9949..0523ab14 100644
--- a/tests/import-tests.scm
+++ b/tests/import-tests.scm
@@ -6,6 +6,7 @@
 (module m1 ()
 (import scheme (only srfi-4 u8vector?)) u8vector?)
 
+(print "expect warning ...")
 (assert
  (handle-exceptions ex #t
    (eval '