42 lines
1.3 KiB
Scheme
42 lines
1.3 KiB
Scheme
(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
|
|
`(begin0 (map (lambda (x) (send x get-label)) (get-top-level-windows))
|
|
(send (car (get-top-level-windows)) close)))))
|
|
|
|
(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
|
|
`(begin0 (map (lambda (x) (send x get-label)) (get-top-level-windows))
|
|
(send (car (get-top-level-windows)) close)))))
|
|
|
|
(test
|
|
'file-opened-in-editor
|
|
(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)))))) |