shithub: sl

Info  •  Files  •  Log  •  Branches

number boundaries: remove tests that won't work on all systems

--- a/test/number-boundaries.lsp

+++ b/test/number-boundaries.lsp

@@ -119,9 +119,6 @@

 (assert (= (low-border int32) (double (int64 (low-border int32)))))

 (assert (= (high-border int32) (double (int64 (high-border int32)))))

-(assert (= (low-border int64) (double (int64 (low-border int64)))))

-(assert (= (high-border int64) (double (int64 (high-border int64)))))

-

 (assert (= 0.5f (double (float 0.5))))

 (assert (= 0.5 (float (double 0.5f))))

@@ -132,8 +129,6 @@

 (assert (< (int64 (high-border int64)) (uint64 (1+ (high-border int64)))))

 (assert (< (uint64 (1- (high-border int16))) (float (high-border int16))))

 (assert (< (float (high-border int16)) (uint64 (1+ (high-border int16)))))

-(assert (< (uint64 (1- (high-border int64))) (double (high-border int64))))

-(assert (> (uint64 (+ (high-border int64) 3)) (double (high-border int64))))

 (assert (< (uint64 (1- (high-border int64))) (bignum (high-border int64))))

 (assert (> (uint64 (1+ (high-border int64))) (bignum (high-border int64))))

 (assert (< (int64 (1- (high-border int64))) (bignum (high-border int64))))

--- a/test/unittest.lsp

+++ b/test/unittest.lsp

@@ -700,7 +700,6 @@

 (sleep 1)

 (define t₁ (nanoseconds-monotonic))

 (define Δt (- t₁ t₀))

-(print Δt) (newline)

 (assert (and (< Δt 1010000000 ) (> Δt 999000000)))

 (gc)