shithub: sl

Info  •  Files  •  Log  •  Branches

add unit tests for two previous issues

--- a/test/unittest.lsp

+++ b/test/unittest.lsp

@@ -82,6 +82,8 @@

 (assert (> 9223372036854775808 9223372036854775807))

+(assert (fixnum? (- (aref "0" 0) #\0)))

+

 ; number boundaries

 (load "number-boundaries.lsp")

@@ -136,6 +138,12 @@

 (assert (<= "a" "a"))

 (assert (>= "a" "a"))

 (assert (>= "ab" "aa"))

+

+; comparing numbers and runes

+(assert (< 9 #\newline))

+(assert (not (< 10 #\newline)))

+(assert (= 10 #\newline))

+(assert (> 11 #\newline))

 ; -0.0 etc.

 (assert (not (equal? 0.0 0)))