Some updates to the deinprogramm tests:

- use schemeunit from collects
- tp-exn? is no more

svn: r14898

collects/tests/deinprogramm/contract.ss

@@ -2,7 +2,7 @@
 
 (provide all-contract-tests)
 
-(require (planet schematics/schemeunit:3)
+(require schemeunit
 	 deinprogramm/contract/contract
 	 deinprogramm/contract/contract-syntax)
 

collects/tests/deinprogramm/image.ss

@@ -2,7 +2,7 @@
 
 (provide all-image-tests)
 
-(require (planet schematics/schemeunit:3)
+(require schemeunit
 	 deinprogramm/image
          (only-in lang/private/imageeq image=?)
 	 mred
@@ -154,7 +154,7 @@
 ;;  c) has the right name.
 (define (tp-exn-pred name position)
   (lambda (exn)
-    (and (tp-exn? exn)
+    (and (exn:fail:contract? exn)
 	 (let* ([msg (exn-message exn)]
 		[beg (format "~a:" name)]
 		[len (string-length beg)])

collects/tests/deinprogramm/run-contract-tests.ss

@@ -1,6 +1,6 @@
 #lang scheme/base
 
-(require (planet schematics/schemeunit:3/text-ui))
+(require schemeunit/text-ui)
 (require tests/deinprogramm/contract)
 
 (run-tests all-contract-tests)