From baa268bce99cee4684f9ab4a6395b6cf6319cec8 Mon Sep 17 00:00:00 2001
From: Danny Yoo <dyoo@cs.wpi.edu>
Date: Wed, 31 Aug 2011 15:57:28 -0400
Subject: [PATCH] minimal tests for min, max

---
 lang/kernel.rkt                   |  4 ++--
 tests/more-tests/numbers.expected | 10 ++++++++++
 tests/more-tests/numbers.rkt      | 12 ++++++++++++
 3 files changed, 24 insertions(+), 2 deletions(-)

diff --git a/lang/kernel.rkt b/lang/kernel.rkt
index d58de09..b6097dd 100644
--- a/lang/kernel.rkt
+++ b/lang/kernel.rkt
@@ -242,8 +242,8 @@ raise-mismatch-error
   quotient
   remainder
   modulo
-;;  max
-;;  min
+  max
+  min
   gcd
   lcm
   floor
diff --git a/tests/more-tests/numbers.expected b/tests/more-tests/numbers.expected
index dd1eb38..76de5d6 100644
--- a/tests/more-tests/numbers.expected
+++ b/tests/more-tests/numbers.expected
@@ -5,3 +5,13 @@ true
 false
 false
 false
+3
+6
+9
+20
+20
+3
+3
+1
+3
+3
diff --git a/tests/more-tests/numbers.rkt b/tests/more-tests/numbers.rkt
index 470c928..6cf2506 100644
--- a/tests/more-tests/numbers.rkt
+++ b/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)
\ No newline at end of file