48 lines
1.4 KiB
Racket
48 lines
1.4 KiB
Racket
#lang racket/base
|
|
(require "test-suite-utils.rkt")
|
|
|
|
(define (test-creation frame class name)
|
|
(test
|
|
name
|
|
(lambda (x) #t)
|
|
(lambda ()
|
|
(let ([frame-label
|
|
(queue-sexp-to-mred
|
|
`(let* ([f (new (class ,frame
|
|
(define/override (get-editor%) ,class)
|
|
(super-new)))])
|
|
(preferences:set 'framework:exit-when-no-frames #f)
|
|
(send f show #t)
|
|
(send f get-label)))])
|
|
(wait-for-frame frame-label)
|
|
(queue-sexp-to-mred
|
|
`(send (get-top-level-focus-window) close))))))
|
|
|
|
(test-creation 'frame:editor%
|
|
'(editor:basic-mixin pasteboard%)
|
|
'editor:basic-mixin-creation)
|
|
(test-creation 'frame:editor%
|
|
'pasteboard:basic%
|
|
'pasteboard:basic-creation)
|
|
|
|
(test-creation 'frame:editor%
|
|
'(editor:file-mixin pasteboard:keymap%)
|
|
'editor:file-mixin-creation)
|
|
(test-creation 'frame:editor%
|
|
'pasteboard:file%
|
|
'pasteboard:file-creation)
|
|
|
|
(test-creation 'frame:editor%
|
|
'(editor:backup-autosave-mixin pasteboard:file%)
|
|
'editor:backup-autosave-mixin-creation)
|
|
(test-creation 'frame:editor%
|
|
'pasteboard:backup-autosave%
|
|
'pasteboard:backup-autosave-creation)
|
|
|
|
(test-creation 'frame:pasteboard%
|
|
'(editor:info-mixin pasteboard:backup-autosave%)
|
|
'editor:info-mixin-creation)
|
|
(test-creation 'frame:pasteboard%
|
|
'pasteboard:info%
|
|
'pasteboard:info-creation)
|