[Module-build-checkins] [svn:Module-Build] r5978 - Module-Build/trunk/t

[<kwi...@cv...>]

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;