Using Test::More, how can I intersperse stuff for user interaction?  For
instance:

print "Please enter the hostname/ip for the server [localhost]: ";
my $host = <STDIN>;
print "Please enter the admin password [default]: ";
my $password = <STDIN>;
$agent = esmith::FormMagick::Tester->new(host => $host, password => $password);
isa_ok($agent, 'esmith::FormMagick::Tester');
is($agent->{password}, $password || 'default', "Set password correctly");

Test::More takes control of so much stuff that my user prompts are never
printed.

K.



Reply via email to