From 73cbcf5019f766581e97b50c5c356ed0f811c4d5 Mon Sep 17 00:00:00 2001
From: Robby Findler <robby@racket-lang.org>
Date: Tue, 27 Apr 1999 03:42:28 +0000
Subject: [PATCH] ...

original commit: bb21d1f3b4ca4b41f0a673a742ac6a2dd92dea58
---
 collects/tests/framework/README          |  1 +
 collects/tests/framework/group-test.ss   |  2 ++
 collects/tests/framework/handler-test.ss | 40 ++++++++++++++++++++++++
 3 files changed, 43 insertions(+)
 create mode 100644 collects/tests/framework/handler-test.ss

diff --git a/collects/tests/framework/README b/collects/tests/framework/README
index fcc4e228..654eab3f 100644
--- a/collects/tests/framework/README
+++ b/collects/tests/framework/README
@@ -53,6 +53,7 @@ test as last time.
   - edits to canvases: |# edit-canvas.ss #|
   - canvases to frames: |# canvas-frame.ss #|
   - edits to frames: |# edit-frame.ss #|
+  - handler |# handler-test.ss #|
 
 - garbage collection: |# gc.ss #|
 
diff --git a/collects/tests/framework/group-test.ss b/collects/tests/framework/group-test.ss
index e95ab2e3..942e2b29 100644
--- a/collects/tests/framework/group-test.ss
+++ b/collects/tests/framework/group-test.ss
@@ -136,3 +136,5 @@
 	 (lambda (x) (send x get-label))
 	 (send (car (send (send (car frames) get-menu-bar) get-items)) get-items))
 	(for-each (lambda (x) (send x close)) frames))))))
+
+
diff --git a/collects/tests/framework/handler-test.ss b/collects/tests/framework/handler-test.ss
new file mode 100644
index 00000000..b7e56a60
--- /dev/null
+++ b/collects/tests/framework/handler-test.ss
@@ -0,0 +1,40 @@
+(let* ([filename "framework-group-test.ss"]
+       [tmp-filename (build-path (find-system-path 'temp-dir) filename)])
+
+  (test
+   'file-opened
+   (lambda (x) (equal? (list filename "MrEd REPL") x))
+   (lambda ()
+     (send-sexp-to-mred
+      `(begin (handler:edit-file ,tmp-filename)
+	      (void)))
+     (wait-for-frame filename)
+     (send-sexp-to-mred
+      `(map (lambda (x) (send x get-label)) (get-top-level-windows)))))
+
+  (test
+   'file-opened
+   (lambda (x) (equal? filename x))
+   (lambda ()
+     (send-sexp-to-mred
+      `(begin (handler:edit-file ,tmp-filename)
+	      (void)))
+     (wait-for-frame filename)
+     (send-sexp-to-mred
+      `(let ([f (car (get-top-level-windows))])
+	 (send (send f get-editor) get-filename)))))
+
+  (test
+   'files-opened-twice
+   (lambda (x) (equal? (list filename "MrEd REPL") x))
+   (lambda ()
+     (send-sexp-to-mred
+      `(begin (handler:edit-file ,tmp-filename)
+	      (void)))
+     (wait-for-frame filename)
+     (send-sexp-to-mred
+      `(begin (handler:edit-file ,tmp-filename)
+	      (void)))
+     (wait-for-frame filename)
+     (send-sexp-to-mred
+      `(map (lambda (x) (send x get-label)) (get-top-level-windows))))))
\ No newline at end of file