diff options
Diffstat (limited to 'dist/Term-ReadLine/t/AETk.t')
-rw-r--r-- | dist/Term-ReadLine/t/AETk.t | 42 |
1 files changed, 0 insertions, 42 deletions
diff --git a/dist/Term-ReadLine/t/AETk.t b/dist/Term-ReadLine/t/AETk.t deleted file mode 100644 index 9546a8c549..0000000000 --- a/dist/Term-ReadLine/t/AETk.t +++ /dev/null @@ -1,42 +0,0 @@ -#!perl - -use Test::More; - -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 { - use File::Spec; - 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. -require Term::ReadLine; -use File::Spec; - -my $t = Term::ReadLine->new('AE/Tk'); -ok($t, "Created object"); -is($t->ReadLine, 'Term::ReadLine::Stub', 'Correct type'); -$t->tkRunning(1); - -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."); |