fixed problems uncovered by the dr dr

svn: r16356

collects/scribblings/guide/contracts-examples/1-test.ss

@@ -1,14 +1,12 @@
 #lang scheme
-(require (planet "test.ss" ("schematics" "schemeunit.plt" 2))
-         (planet "text-ui.ss" ("schematics" "schemeunit.plt" 2)))
-(require "1.ss" "1b.ss")
+(require schemeunit/test schemeunit/text-ui "1.ss" "1b.ss")
 
 (add (make-basic-customer 'mf "matthias" "brookstone"))
 (add (make-basic-customer 'rf "robby" "beverly hills park"))
 (add (make-basic-customer 'fl "matthew" "pepper clouds town"))
 (add (make-basic-customer 'sk "shriram" "i city"))
 
-(test/text-ui
+(run-tests
  (test-suite 
   "manager"
   (test-equal? "id lookup" "matthias" (name 'mf))

collects/scribblings/guide/contracts-examples/2-test.ss

@@ -1,12 +1,10 @@
 #lang scheme
-(require (planet "test.ss" ("schematics" "schemeunit.plt" 2))
-         (planet "text-ui.ss" ("schematics" "schemeunit.plt" 2))
-         "2.ss")
+(require schemeunit/test schemeunit/text-ui "2.ss")
 
 (define s0 (initialize (flat-contract integer?) =))
 (define s2 (push (push s0 2) 1))
 
-(test/text-ui
+(run-tests
  (test-suite
   "stack"
   (test-true

collects/scribblings/guide/contracts-examples/3-test.ss

@@ -1,12 +1,10 @@
 #lang scheme
-(require (planet "test.ss" ("schematics" "schemeunit.plt" 2))
-         (planet "text-ui.ss" ("schematics" "schemeunit.plt" 2))
-         "3.ss")
+(require schemeunit/test schemeunit/text-ui "3.ss")
 
 (define d0 (initialize (flat-contract integer?) =))
 (define d (put (put (put d0 'a 2) 'b 2) 'c 1))
 
-(test/text-ui
+(run-tests
  (test-suite
   "dictionaries"
   (test-equal? "value for" 2 (value-for d 'b))

collects/scribblings/guide/contracts-examples/5-test.ss

@@ -1,11 +1,9 @@
 #lang scheme
-(require (planet "test.ss" ("schematics" "schemeunit.plt" 2))
-         (planet "text-ui.ss" ("schematics" "schemeunit.plt" 2))
-         "5.ss")
+(require schemeunit/test schemeunit/text-ui "5.ss")
 
 (define s (put (put (initialize (flat-contract integer?) =) 2) 1))
 
-(test/text-ui
+(run-tests
  (test-suite
   "queue"
   (test-true