moved test suite to test/ directory, minor change to try to understand normalization bug

svn: r15771

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)]
+(normalize-shape
-       [second 
+ (make-rotate
-        (overlay/places 'center
+  (* pi 1/4)
-                        'center
+  (make-translate 
-                        first
+   100 100
-                        (rotate/places 'center 'center 
+   (make-rotate
-                                       (* pi 1/4)
+    (* pi 1/4)
-                                       first))]
+    (make-translate 
-       [third 
+     100 100
-        (overlay/places 'center
+     (picture-shape (rectangle 100 10 'solid 'red))))))
-                        'center
+ void)
-                        (frame second)
+
-                        (rotate/places 'center 'center 
+(make-translate
-                                       (* pi 1/8)
+ (* (sqrt 2) 100 2)
-                                       (frame second)))])
+ 0
-  (show-picture (frame (rotate (* pi 1/8)
+ (make-rotate
-                               (rotate (* pi 1/8) first)))))
+  (* pi 1/2)
+  (picture-shape (rectangle 100 10 'solid 'red))))

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)