Help language development. Donate to The Perl Foundation
use v6; use Test; use GTK::Simple; use GTK::Simple::Scheduler; plan *; if %*ENV<DISPLAY> or $*DISTRO.is-win { my $g; lives-ok {$g = GTK::Simple::App.new}, "Can create GTK::Simple::App instance."; lives-ok {GTK::Simple::Scheduler.new.cue: {$g.exit}}, "Can use GTK::Simple::Scheduler to cue app exit."; lives-ok {$g.run}, "Running the app works."; } done-testing;