core: Fixes for int-max, int-min.
[mes.git] / tests / math.test
index d91643554750148373eade9075873d503a799b0b..45b496e12ffa9dca57c3a957665a08c623fbb082 100755 (executable)
@@ -29,54 +29,60 @@ exit $?
 (mes-use-module (srfi srfi-0))
 (mes-use-module (mes test))
 
-(pass-if "+" (seq? (+ 1 2 3) 6))
-(pass-if "*" (seq? (* 3 3 3) 27))
-(pass-if "/" (seq? (/ 9 3) 3))
-(pass-if "remainder" (seq? (remainder 11 3) 2))
-(pass-if "modulo" (seq? (modulo 11 3) 2))
-(pass-if "expt" (seq? (expt 2 3) 8))
-(pass-if "logior" (seq? (logior 0 1 2 4) 7))
+(pass-if-equal "+" 6 (+ 1 2 3))
+(pass-if-equal "*" 27 (* 3 3 3))
+(pass-if-equal "/" 3 (/ 9 3))
+(pass-if-equal "remainder" 2 (remainder 11 3))
+(pass-if-equal "modulo" 2 (modulo 11 3))
+(pass-if-equal "expt" 8 (expt 2 3))
+(pass-if-equal "logior" 7 (logior 0 1 2 4))
 (pass-if-equal "ash"
     8 (ash 1 3))
 (pass-if-equal "ash -1"
     5 (ash 10 -1))
 
-(pass-if "=" (seq? 3 '3))
+(pass-if-equal "=" 3 '3)
 (pass-if "= 2" (not (= 3 '4)))
 
-(pass-if "=" (seq? (=) #t))
-(pass-if "= 1" (seq? (= 0) #t))
-(pass-if "= 2" (seq? (= 0 0) #t))
-(pass-if "= 3" (seq? (= 0 0) #t))
-(pass-if "= 4" (seq? (= 0 1 0) #f))
+(pass-if "=" (=))
+(pass-if "= 1" (= 0))
+(pass-if "= 2" (= 0 0))
+(pass-if "= 3" (= 0 0))
+(pass-if-not "= 4" (= 0 1 0))
 
-(pass-if "<" (seq? (<) #t))
-(pass-if "< 1" (seq? (< 0) #t))
-(pass-if "< 2" (seq? (< 0 1) #t))
-(pass-if "< 3" (seq? (< 1 0) #f))
-(pass-if "< 4" (seq? (< 0 1 2) #t))
-(pass-if "< 5" (seq? (< 0 2 1) #f))
+(pass-if "<" (<))
+(pass-if "< 1" (< 0))
+(pass-if "< 2" (< 0 1))
+(pass-if-not "< 3" (< 1 0))
+(pass-if "< 4" (< 0 1 2))
+(pass-if-not "< 5" (< 0 2 1))
+(pass-if "< INT-MIN" (< -2147483648))
+(pass-if "< INT-MIN" (< -2147483648 0))
+(pass-if "< INT-MAX" (< 2147483647))
 
-(pass-if ">" (seq? (>) #t))
-(pass-if "> 1" (seq? (> 0) #t))
-(pass-if "> 2" (seq? (> 1 0) #t))
-(pass-if "> 3" (seq? (> 0 1) #f))
-(pass-if "> 4" (seq? (> 2 1 0) #t))
-(pass-if "> 5" (seq? (> 1 2 0) #f))
+(pass-if ">" (>))
+(pass-if "> 1" (> 0))
+(pass-if "> 2" (> 1 0))
+(pass-if-not "> 3" (> 0 1))
+(pass-if "> 4" (> 2 1 0))
+(pass-if-not "> 5" (> 1 2 0))
+(pass-if "> INT-MAX" (> 2147483647))
+(pass-if "> INT-MAX 0" (> 2147483647 0))
+(pass-if "> INT-MIN" (> -2147483648))
 
-(pass-if ">=" (seq? (>= 3 2 1) #t))
-(pass-if ">= 2" (seq? (>= 1 2 3) #f))
+(pass-if ">=" (>= 3 2 1))
+(pass-if-not ">= 2" (>= 1 2 3))
 
-(pass-if "<=" (seq? (<= 3 2 1) #f))
-(pass-if "<= 2" (seq? (<= 1 2 3) #t))
+(pass-if-not "<=" (<= 3 2 1))
+(pass-if "<= 2" (<= 1 2 3))
 
-(pass-if "max" (seq? (max 0) 0))
-(pass-if "max 1" (seq? (max 0 1) 1))
-(pass-if "max 2" (seq? (max 1 0 2) 2))
+(pass-if-equal "max" 0 (max 0))
+(pass-if-equal "max 1" 1 (max 0 1))
+(pass-if-equal "max 2" 2 (max 1 0 2))
 
-(pass-if "min" (seq? (min 0) 0))
-(pass-if "min 1" (seq? (min 0 1) 0))
-(pass-if "min 2" (seq? (min 1 0 2) 0))
+(pass-if-equal "min" 0 (min 0))
+(pass-if-equal "min 1" 0 (min 0 1))
+(pass-if-equal "min 2" 0 (min 1 0 2))
 
 (pass-if-equal "#x-10" -16 #x-10)