Author: kwilliams
Date: Thu Apr 27 19:44:46 2006
New Revision: 5978
Modified:
Module-Build/trunk/t/extend.t
Log:
Unless I've overlooked a previous decision, prompt() should die
(rather than hang) when called in an unattended context with no
default.
Modified: Module-Build/trunk/t/extend.t
==============================================================================
--- Module-Build/trunk/t/extend.t (original)
+++ Module-Build/trunk/t/extend.t Thu Apr 27 19:44:46 2006
@@ -231,11 +231,10 @@
$ENV{PERL_MM_USE_DEFAULT} = 1;
eval{ $mb->y_n("Is this a question?") };
- like $@, qr/ERROR:/, 'Do not allow y_n() prompts for unattended builds';
+ like $@, qr/ERROR:/, 'Do not allow default-less y_n() for unattended builds';
- $ans = $mb->prompt('Is this a question?');
- print "\n"; # fake <enter> after input
- is $ans, 'y', "prompt() doesn't require default for unattended builds";
+ eval{ $ans = $mb->prompt('Is this a question?') };
+ like $@, qr/ERROR:/, 'Do not allow default-less prompt() for unattended builds';
$ENV{PERL_MM_USE_DEFAULT} = 0;
|
