82 lines
2.3 KiB
Plaintext
82 lines
2.3 KiB
Plaintext
|
#!/usr/bin/perl -w
|
||
|
|
|
||
|
|
use strict;
|
||
|
|
use File::Find;
|
||
|
|
use File::Path;
|
||
|
|
use File::Basename;
|
||
|
|
|
||
|
|
=head1 NAME
|
||
|
|
|
||
|
|
buildtests -- generate test scripts from inline tests in Perl scripts
|
||
|
|
|
||
|
|
=head1 SYNOPSIS
|
||
|
|
|
||
|
|
buildtests output-test-dir
|
||
|
|
|
||
|
|
=head1 DESCRIPTION
|
||
|
|
|
||
|
|
This script goes through the files to be installed by an e-smith RPM,
|
||
|
|
seeking out Perl scripts which contain embedded tests (using
|
||
|
|
Test::Inline). If it finds them, it generates tests under
|
||
|
|
F</etc/e-smith/tests/output-test-dir>
|
||
|
|
|
||
|
|
The filenames of the output test files are usually in the form
|
||
|
|
F<embedded-origname.t> -- the leading directories will be stripped off,
|
||
|
|
and the suffix will be stripped off if it's either of F<.pm> or F<.pl>.
|
||
|
|
However, there's a possibility that this will result in a name clash, so
|
||
|
|
if a name clash looks likely to occur, the script will keep prefixing
|
||
|
|
leading directories to the output filename until it finds something
|
||
|
|
that's not taken. So if you already had, for example, a test script
|
||
|
|
called F<embedded-config.t> and you wanted to generate a test from
|
||
|
|
esmith::config, it would end up being called
|
||
|
|
F<embedded-esmith-config.t>. In short: the filenames given to the
|
||
|
|
output files may vary from time to time, but the files will not overwrite
|
||
|
|
existing files.
|
||
|
|
|
||
|
|
=cut
|
||
|
|
|
||
|
|
my $outputdir = $ARGV[0] || usage();
|
||
|
|
|
||
|
|
print "Building test suite from embedded tests...\n";
|
||
|
|
|
||
|
|
die "You must start buildtests in the directory which contains the root/ tree\n"
|
||
|
|
unless -d "root";
|
||
|
|
|
||
|
|
$outputdir = "root/etc/e-smith/tests/$outputdir";
|
||
|
|
unless (-d $outputdir) {
|
||
|
|
print " creating directory $outputdir...\n";
|
||
|
|
mkpath $outputdir or die "Can't make output directory $outputdir: $!";
|
||
|
|
}
|
||
|
|
|
||
|
|
find({ wanted => \&buildtests, no_chdir => 1 }, "root/");
|
||
|
|
|
||
|
|
sub buildtests {
|
||
|
|
return unless -T;
|
||
|
|
return if /CVS/;
|
||
|
|
return if /\.t$/;
|
||
|
|
return if /\.orig$/;
|
||
|
|
my $origfile = $_;
|
||
|
|
my ($testname, $dir) = fileparse($origfile, ".pm", ".pl");
|
||
|
|
my @dirs = split "/", $dir;
|
||
|
|
|
||
|
|
while (-f "$outputdir/embedded-$testname.t") {
|
||
|
|
$testname = pop(@dirs) . "-$testname";
|
||
|
|
}
|
||
|
|
|
||
|
|
my $testfile = "$outputdir/embedded-$testname.t";
|
||
|
|
|
||
|
|
#print "ORIG: $origfile\nTEST: $testfile\n";
|
||
|
|
system("pod2test", $origfile, $testfile);
|
||
|
|
}
|
||
|
|
|
||
|
|
|
||
|
|
sub usage {
|
||
|
|
die qq(
|
||
|
|
Usage:
|
||
|
|
buildtests output-test-dir
|
||
|
|
|
||
|
|
You must provide an output directory name, which will be created under
|
||
|
|
/etc/e-smith/tests.
|
||
|
|
);
|
||
|
|
}
|