#!/usr/bin/perl
use strict;
use warnings;

use Tk;

my $mw = 'Tk::MainWindow'->new;

my $current = 0;

my @buttons = map { my $i = $_;
                    $mw->Button(-text    => $i,
                                -command => sub { $current = $i }
                    )->pack
                } 1, 2;

$mw->after(100, sub {
               $mw->eventGenerate('<KeyPress>', -keysym => $_)
                   for qw( Tab Return );
               $mw->idletasks();
               $mw->DESTROY;
});

Tk::MainLoop();

use Test::More tests => 1;
is $current, 1, 'Events processed';