minimal tests for min, max

lang/kernel.rkt

@@ -242,8 +242,8 @@ raise-mismatch-error
   quotient
   remainder
   modulo
-;;  max
-;;  min
+  max
+  min
   gcd
   lcm
   floor

tests/more-tests/numbers.expected

@@ -5,3 +5,13 @@ true
 false
 false
 false
+3
+6
+9
+20
+20
+3
+3
+1
+3
+3

tests/more-tests/numbers.rkt

@@ -8,3 +8,15 @@
 (number? "42")
 (number? 'this-is-a-test)
 (number? (list 3 4 5))
+
+(max 3)
+(max 3 4 5 6)
+(max 3 1 4 1 5 9 2 6)
+(max 3 20)
+(max 20 3)
+
+(min 3)
+(min 3 4 5 6)
+(min 3 1 4 1 5 9 2 6)
+(min 3 20)
+(min 20 3)