From Code to Community: Sponsoring The Perl and Raku Conference 2025 Learn more

#!perl
eval "use Tk; use AnyEvent; 1" or
plan skip_all => "AnyEvent and/or Tk is not installed.";
# seeing as the entire point of this test is to test the event handler,
# we need to mock as little as possible. To keep things tightly controlled,
# we'll use the Stub directly.
BEGIN {
$ENV{PERL_RL} = 'Stub o=0';
# ensure AE uses Tk.
$ENV{PERL_ANYEVENT_MODEL} = 'Tk';
}
eval {
my $mw = MainWindow->new(); $mw->withdraw();
1;
} or plan skip_all => "Tk can't start. DISPLAY not set?";
plan tests => 3;
# need to delay this so that AE is loaded first.
my $t = Term::ReadLine->new('AE/Tk');
ok($t, "Created object");
is($t->ReadLine, 'Term::ReadLine::Stub', 'Correct type');
my ($cv, $fe);
$t->event_loop(
sub {
$cv = AE::cv();
$cv->recv();
}, sub {
my $fh = shift;
$fe ||= AE::io($fh, 0, sub { $cv->send() });
}
);
my $text = 'some text';
my $T = $text . "\n";
my $w = AE::timer(0,1,sub {
pass("Event loop called");
exit 0;
});
my $result = $t->readline('Do not press enter>');
fail("Should not get here.");