diff --git a/collects/2htdp/tests/small-client-server.rkt b/collects/2htdp/tests/small-client-server.rkt deleted file mode 100644 index 64e2cb82ed..0000000000 --- a/collects/2htdp/tests/small-client-server.rkt +++ /dev/null @@ -1,32 +0,0 @@ -#lang racket/load - -(module client racket - (require 2htdp/universe 2htdp/image) - - ;; Color -> Boolean - (define (client c) - (big-bang #true - (to-draw (lambda (w) (text (if w "hello world" "good bye") 22 c))) - (register LOCALHOST) - (name c) - (on-receive (lambda (w msg) (not w))))) - - (launch-many-worlds (client "blue") (client "red"))) - -(module server racket - (require 2htdp/universe) - - (define (server tick-rate) - (universe '() - (on-new (lambda (w n) (make-bundle (cons n w) '() '()))) - (on-tick - (lambda (w*) - (make-bundle w* (map (lambda (w) (make-mail w 'go)) w*) '())) - tick-rate) - (on-msg void))) - - (thread server)) - -(require 'server) - -(require 'client) \ No newline at end of file