implemented

This commit is contained in:
2026-08-29 01:09:49 +02:00
parent b8a522c1de
commit c7137fc11f
7 changed files with 588 additions and 72 deletions
+10 -1
View File
@@ -3,8 +3,17 @@
(require rackunit
racket-tray)
;; The public module must be loadable on non-Windows platforms as well.
;; The public module must be loadable on every platform, even when no tray
;; backend is available for the current operating system.
(check-true (procedure? mk-tray))
(check-true (procedure? tray-close))
(check-true (procedure? tray-set-icon!))
(check-true (procedure? tray-set-menu!))
;; Keep the keyword part of the public API testable without constructing a GUI
;; window or depending on Windows being available on the package build host.
(define-values (required-keywords allowed-keywords)
(procedure-keywords mk-tray))
(check-equal? required-keywords '())
(check-not-false (member '#:hide-on-minimize? allowed-keywords))