From 5b6f0381fa2bc5be7bd5a794ff58d27d5afb419a Mon Sep 17 00:00:00 2001
From: Robby Findler <robby@racket-lang.org>
Date: Mon, 17 Aug 2009 17:01:51 +0000
Subject: [PATCH] moved test suite to test/ directory, minor change to try to
 understand normalization bug

svn: r15771
---
 collects/2htdp/private/picture.ss             | 35 ++++++++++---------
 .../2htdp/{private => test}/test-picture.ss   |  2 +-
 2 files changed, 19 insertions(+), 18 deletions(-)
 rename collects/2htdp/{private => test}/test-picture.ss (99%)

diff --git a/collects/2htdp/private/picture.ss b/collects/2htdp/private/picture.ss
index fa34499fdf..ef4c978cc3 100644
--- a/collects/2htdp/private/picture.ss
+++ b/collects/2htdp/private/picture.ss
@@ -693,20 +693,21 @@ and they all have good sample contracts. (It is amazing what we can do with kids
 ;; see pin-line in slideshow
 ;; the initial strings in the second instance of add-curve are like the strings in add-line
 
-(let* ([first (rectangle 100 10 'solid 'red)]
-       [second 
-        (overlay/places 'center
-                        'center
-                        first
-                        (rotate/places 'center 'center 
-                                       (* pi 1/4)
-                                       first))]
-       [third 
-        (overlay/places 'center
-                        'center
-                        (frame second)
-                        (rotate/places 'center 'center 
-                                       (* pi 1/8)
-                                       (frame second)))])
-  (show-picture (frame (rotate (* pi 1/8)
-                               (rotate (* pi 1/8) first)))))
+(normalize-shape
+ (make-rotate
+  (* pi 1/4)
+  (make-translate 
+   100 100
+   (make-rotate
+    (* pi 1/4)
+    (make-translate 
+     100 100
+     (picture-shape (rectangle 100 10 'solid 'red))))))
+ void)
+
+(make-translate
+ (* (sqrt 2) 100 2)
+ 0
+ (make-rotate
+  (* pi 1/2)
+  (picture-shape (rectangle 100 10 'solid 'red))))
diff --git a/collects/2htdp/private/test-picture.ss b/collects/2htdp/test/test-picture.ss
similarity index 99%
rename from collects/2htdp/private/test-picture.ss
rename to collects/2htdp/test/test-picture.ss
index c331ed850e..2485821f3c 100644
--- a/collects/2htdp/private/test-picture.ss
+++ b/collects/2htdp/test/test-picture.ss
@@ -1,5 +1,5 @@
 #lang scheme/base
-(require "picture.ss" 
+(require "../private/picture.ss" 
          scheme/math
          tests/eli-tester)