chdir 't' if -d 't';
@INC = ('../lib', 'lib'); }
else {
}
}
eval q{
};
'no args' );
eval {
};
'undef message' );
is( prompt("Foo?", 'Bar!'), 'Bar!', 'default' );
skip "eof() doesn't honor ties in 5.5.3", 3 if $] < 5.006;
ok( !-t STDIN, 'STDIN not a tty' );
is( prompt("Foo?", 'Bar!'), 'From STDIN', 'from STDIN' ); }