...

original commit: bb21d1f3b4ca4b41f0a673a742ac6a2dd92dea58

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 #|
 

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))))))
+
+

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))))))