11 lines
285 B
Racket
11 lines
285 B
Racket
#lang racket/base
|
|
|
|
(require rackunit
|
|
racket-tray)
|
|
|
|
;; The public module must be loadable on non-Windows platforms as well.
|
|
(check-true (procedure? mk-tray))
|
|
(check-true (procedure? tray-close))
|
|
(check-true (procedure? tray-set-icon!))
|
|
(check-true (procedure? tray-set-menu!))
|