Searched refs:devtty (Results 1 – 3 of 3) sorted by relevance
21 can_ok( 'Term::ReadLine::Stub', qw{new devtty findConsole} );22 is( Term::ReadLine->devtty(), q{/dev/tty}, "check sub devtty" );25 open my $tty, "<", Term::ReadLine->devtty()39 local *Term::ReadLine::Stub::devtty =40 *Term::ReadLine::Stub::devtty = sub { $donotexist };41 is( Term::ReadLine->devtty(), $donotexist, "devtty mocked" );
235 sub devtty { return '/dev/tty' } subroutine241 my $devtty = devtty();243 if ($^O ne 'MSWin32' and -e $devtty) {244 $console = $devtty;258 if ($console eq $devtty && !open(my $fh, "<", $console)) {
25 devtty=CONSOLE:28 devtty=/dev/tty399 devtty = $devtty1667 cd t && $(RUN_PERL) TEST $(MINITEST_TESTS) <$(devtty)