Beefy Boxes and Bandwidth Generously Provided by pair Networks
Don't ask to ask, just ask
 
PerlMonks  

Propogating user settings w/ ExtUtils::MakeMaker

by hesco (Deacon)
on Mar 26, 2007 at 21:02 UTC ( #606664=perlquestion: print w/replies, xml ) Need Help??

hesco has asked for the wisdom of the Perl Monks concerning the following question:

I just published version 0.12 of Test::MonitorSites to cpan. The bugs introduced at version 0.06 with its new functionality have at last been squashed (by version 0.09) and by now this module will run quietly and w/o obvious (to me) bugs.

However, I am not yet satisfied with the operation of the test suite. It's been doing the 'ET phone home' thing, because I haven't settled on an elegant way to propogate user input into the test suite, yet. I understand I can grab user input using the prompt() method. Once I have it, though, I need to use that input to rewrite a number of t/testsuite_*.ini files, replacing placeholder values with the user defined ones.

But how do I allow for the possibility that someone might run make test more than once? My current thinking is that the way to go here might be to create a new directory at t/ini/ which would have a set of stock configuration files needed to drive the test suite, each with its placeholders. Then have the Makefile.PL script use those to rewrite the real config files used by the test suite.

Am I making this harder than it needs to be? Is there a more elegant way to handle this without this proliferation of files on the system? My current approach is adding an additional prerequisite with File::Util. Is there a more straight-forward way of approaching this? Is there some platform independent way to avoid my use of File::Utils->list_dir() method and its additional dependency?

My Makefile.PL currently reads:

use strict; use warnings; use ExtUtils::MakeMaker; use File::Util; print "==> These tests generate email output + <==\n"; print "==> Where would you like your test results sent? + <==\n"; print "==> By default test email summaries go to dev-null\@example.co +m <==\n"; print "==> By default test sms summaries go to dev-null\@example.com + <==\n"; my $email = prompt('Send test email summaries to?','devnull@example.co +m'); my $sms = prompt('Send test sms summaries to?','devnull@example.com'); my($f) = File::Util->new(); my @config_files = $f->list_dir( 't/ini' , '--pattern=\.ini$' ); foreach my $config_file (@config_files){ print "writing t/$config_file \n"; open ('INI','>',"t/$config_file"); open ('SRC',"t/ini/$config_file"); while(<SRC>){ if(m/^sms_recipients =/){ $_ =~ s/$_/sms_recipients = '$sms'\n/; } if(m/^results_recipients =/){ $_ =~ s/$_/results_recipients = '$em +ail'\n/; } print INI $_; } close SRC; close INI; } WriteMakefile( NAME => 'Test::MonitorSites', AUTHOR => 'Hugh Esco <hesco@greens.org>', VERSION_FROM => 'lib/Test/MonitorSites.pm', ABSTRACT_FROM => 'lib/Test/MonitorSites.pm', PL_FILES => {}, PREREQ_PM => { 'Cwd' => 0, 'Carp' => 0, 'File::Util' => 0, 'Data::Dumper' => 0, 'Test::More' => 0, 'Test::Pod' => 1.14, 'Test::Pod::Coverage' => 1.04, 'Test::Builder' => 0, 'Mail::Mailer' => 0, 'Config::Simple' => 0, 'WWW::Mechanize' => 0, 'Test::WWW::Mechanize' => 0, 'Test::HTML::Tidy' => 0, 'HTTP::Request::Common' => 0, 'Test::Builder::Tester' => 0, }, dist => { COMPRESS => 'gzip -9f', SUFFIX => 'gz', } +, clean => { FILES => 'Test-MonitorSites-*' }, );
UPDATE

I have now posted to cpan, version 0.13, which incorporates the approach outlined above and busts the ET-phone-home bug which was previously a part of the test suite. It also allows for the clean up of the t/*.ini files with `make clean`, as well. I'm still looking for ways to get this done without the extra dependency. Thanks to diotalevi for the lead about postponing the work until the build itself.

if( $lal && $lol ) { $life++; }

Replies are listed 'Best First'.
Re: Propogating user settings w/ ExtUtils::MakeMaker
by diotalevi (Canon) on Mar 26, 2007 at 21:10 UTC

    You can defer work to build time by moving that code into a PL file run from PL_FILES.

    ⠤⠤ ⠙⠊⠕⠞⠁⠇⠑⠧⠊

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: perlquestion [id://606664]
Approved by philcrow
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others chanting in the Monastery: (4)
As of 2019-07-16 05:59 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found

    Notices?