From 32f514f78e06452e0b83ece359a065668902f272 Mon Sep 17 00:00:00 2001
From: Matthias Felleisen <matthias@racket-lang.org>
Date: Fri, 20 Jun 2008 14:41:19 +0000
Subject: [PATCH] commented out tests

svn: r10392
---
 collects/htdp/world.ss | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/collects/htdp/world.ss b/collects/htdp/world.ss
index c6c4a59a39..d0db49b569 100644
--- a/collects/htdp/world.ss
+++ b/collects/htdp/world.ss
@@ -469,11 +469,13 @@ Matthew
    (string-append 
     (if (<= y0 y1) "lower" "upper") "-" (if (<= x0 x1) "right" "left"))))
 
+#| TESTS
 'direction 
 (equal? (direction 10 10 0 0) 'upper-left)
 (equal? (direction 10 10 20 20) 'lower-right)
 (equal? (direction 10 10 0 20) 'lower-left)
 (equal? (direction 10 10 20 0) 'upper-right)
+|#
 
 ;; -----------------------------------------------------------------------------
 ;; LINEs 
@@ -510,7 +512,7 @@ Matthew
 (define (X ln h) (/ (- h (lyne-y0 ln)) (lyne-slope ln)))
 
 ;; --- TESTS --- 
-
+#|
 (define line1 (points->line 0 0 100 100))
 (= (of line1 0) 0)
 (= (of line1 100) 100)
@@ -527,7 +529,7 @@ Matthew
          (lambda () (intersections (points->line 0 10 100 80) 100 100))
          list)
         (list false false 10 80))
-
+|#
 ;; ---------------------------------------------------------------------------