1use Test2::Plugin::UTF8; 2use Test2::Bundle::More; 3use Test2::Mock; 4use Test2::Require::Module 'ExtUtils::MakeMaker'; 5use ExtUtils::MakeMaker; 6 7ok 1; 8 9my $mock = Test2::Mock->new( 10 class => 'ExtUtils::MakeMaker', 11); 12 13subtest 'user says yes' => sub { 14 15 my($msg, $def); 16 17 $mock->override(prompt => sub ($;$) { ($msg,$def) = @_; return 'y' }); 18 19 ok 1; 20 21}; 22 23done_testing; 24