Make test compatible with sbcl

Author: davazp

tests/numbers.lisp

@@ -192,18 +192,19 @@
  (equal t
         (numberp (parse-integer (format nil "~d" (expt 10 65))))))
 
-;;; test ASH 
-;;; important note:
-;;; at clhs example (ash  -100000000000000000000000000000000 -100) => -79
-;;; but js op: -100000000000000000000000000000000 >> -100 => 0
-;;;
+;;; test ASH
 (test
- (let ((pattern '(32 16 8 0))
+ (let ((pattern '(32 16 8))
        (result  (mapcar (lambda (x y) (ash x y))
-                        '(16 16 16 -100000000000000000000000000000000)
-                        '(1 0 -1 -100))))
+                        '(16 16 16)
+                        '(1 0 -1))))
    (equal pattern result)))
 
+;;; JSCL-specific: JS bitwise shift gives 0 for this bignum case
+;;; CLHS says (ash -100000000000000000000000000000000 -100) => -79
+#+jscl
+(test (= 0 (ash -100000000000000000000000000000000 -100)))
+
 ;;;(equal '(32 16 8 0)
 ;;;        (mapcar (lambda (x y) (ash x y))
 ;;;                '(16 16 16 -100000000000000000000000000000000)
@@ -215,12 +216,9 @@
            (ash #xFFFF 2))))
 
 ;;; test LOG
-(test
- (equal 0 (log 1)))
-(test
- (equal 2 (log 100 10)))
-(test
- (equal 3 (log 8.0 2)))
+(test (zerop (log 1)))
+(test (< (abs (- 2 (log 100 10))) 1e-10))
+(test (< (abs (- 3 (log 8.0 2))) 1e-10))
 
 ;;; test LOGNOT
 (test

tests/types.lisp

@@ -30,10 +30,13 @@
         (cons (find-class 'atomic-test-class) 'standard-class)
         (cons (let nil (lambda nil nil))      'function)))
 
+;;; JSCL-specific: tests JSCL's type-of results for +atomic-test-objects+
+#+jscl
 (test
  (mv-eql
   (let ((real-type-of)
         (idx 0)
+        (diff0)
         (diff1)
         (diff2)
         (expected-type-of
@@ -441,7 +444,8 @@
    (typep #\space 'standard-char))
   t t t))
 
-;;; type-of
+;;; type-of (JSCL-specific expected values)
+#+jscl
 (test
  (let* ((universum (list 1 'symbol 1.2 #() (make-array '(1 1)) "string" (list) (list 0) t nil)))
   (every #'identity