Help language development. Donate to The Perl Foundation

GTK::Simple zef:finanalyst last updated on 2023-02-25

t/01-sanity.rakutest
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;