Bug #25426 for Test-Parser: modules renaming breaks test and scripts

Renaming several modules to lowercase breaks scripts and tests on case sensitive filesystems. Attached patch fix this issue.

diff -Naur Test-Parser-1.5/scripts/parse_iozone Test-Parser-1.5.tests/scripts/parse_iozone --- Test-Parser-1.5/scripts/parse_iozone 2006-11-29 23:52:56.000000000 +0100 +++ Test-Parser-1.5.tests/scripts/parse_iozone 2007-03-14 12:55:12.000000000 +0100 @@ -24,7 +24,7 @@ use strict; use warnings; -use Test::Parser::Iozone; +use Test::Parser::iozone; use Pod::Usage; use Getopt::Long qw(:config no_ignore_case bundling); ; @@ -84,8 +84,8 @@ sub version_and_exit { my $NAME = $0; - my $VERSION = Test::Parser::Iozone->VERSION; - print "$NAME. Test::Parser::Iozone version $VERSION\n"; + my $VERSION = Test::Parser::iozone->VERSION; + print "$NAME. Test::Parser::iozone version $VERSION\n"; print "Copyright (C) 2006 Bryce W. Harrington <bryce\@bryceharrington.org>\n"; print "This program is free software; you can redistribute it and/or\n"; print "modify it under the same terms as Perl itself.\n"; @@ -104,8 +104,8 @@ my $input_stream; # If the user has specified multi-record operation, we can't - # rely on T:P:Iozone's file open code and must work with - # streams, because we'll be creating multiple T:P:Iozone + # rely on T:P:iozone's file open code and must work with + # streams, because we'll be creating multiple T:P:iozone # objects per file. # Open the file for streaming @@ -125,8 +125,8 @@ # Now iterate over the contents of the stream as long as # there are more records while ($retval == Test::Parser::END_OF_RECORD){ - my $parser = new Test::Parser::Iozone - or die "Couldn't create Test::Parser::Iozone object\n"; + my $parser = new Test::Parser::iozone + or die "Couldn't create Test::Parser::iozone object\n"; $retval = $parser->parse($input_stream); # This is a total hack, but we can do better once TRPI is implemented... @@ -179,7 +179,7 @@ # generate graph showing the given data point from each run, # with X axis being the software version, and Y being Kbytes/sec - Test::Parser::Iozone::historical_plot(\@parsers, \@opt_file_sizes, \@opt_record_sizes); + Test::Parser::iozone::historical_plot(\@parsers, \@opt_file_sizes, \@opt_record_sizes); } # Generate comparison report of two or more runs @@ -191,7 +191,7 @@ warn "Error: Names must be specified for each run.\n"; warn " Use --comp-names=name1,name2,...\n" } else { - Test::Parser::Iozone::comparison_plot(\@parsers, \@opt_comp_names, + Test::Parser::iozone::comparison_plot(\@parsers, \@opt_comp_names, \@opt_file_sizes, \@opt_record_sizes); } } @@ -199,7 +199,7 @@ # Generate general summary (text) report if (! $opt_no_summary) { warn "Printing summary report\n" if $opt_debug>2; - print Test::Parser::Iozone::summary_report(\@parsers); + print Test::Parser::iozone::summary_report(\@parsers); } return 0; @@ -262,6 +262,6 @@ L<Pod::Usage>, L<Getopt::Long>, -L<Test::Parser::Iozone> +L<Test::Parser::iozone> diff -Naur Test-Parser-1.5/scripts/parse_ltp Test-Parser-1.5.tests/scripts/parse_ltp --- Test-Parser-1.5/scripts/parse_ltp 2006-06-30 02:37:03.000000000 +0200 +++ Test-Parser-1.5.tests/scripts/parse_ltp 2007-03-14 12:56:45.000000000 +0100 @@ -6,10 +6,10 @@ use strict; use warnings; -use Test::Parser::LTP; +use Test::Parser::ltp; -my $parser = new Test::Parser::LTP - or die "Couldn't create Test::Parser::LTP object\n"; +my $parser = new Test::Parser::ltp + or die "Couldn't create Test::Parser::ltp object\n"; $parser->parse($ARGV[0] or \*STDIN) or die "Could not parse ltp log.\n"; diff -Naur Test-Parser-1.5/scripts/parse_newpynfs Test-Parser-1.5.tests/scripts/parse_newpynfs --- Test-Parser-1.5/scripts/parse_newpynfs 2006-06-24 05:28:26.000000000 +0200 +++ Test-Parser-1.5.tests/scripts/parse_newpynfs 2007-03-14 12:55:36.000000000 +0100 @@ -6,10 +6,10 @@ use strict; use warnings; -use Test::Parser::NewPyNfs; +use Test::Parser::newpynfs; -my $parser = new Test::Parser::NewPyNfs - or die "Couldn't create Test::Parser::NewPyNfs object\n"; +my $parser = new Test::Parser::newpynfs + or die "Couldn't create Test::Parser::newpynfs object\n"; $parser->parse($ARGV[0] or \*STDIN) or die "Could not parse newpynfs log.\n"; diff -Naur Test-Parser-1.5/t/03_ltp.t Test-Parser-1.5.tests/t/03_ltp.t --- Test-Parser-1.5/t/03_ltp.t 2006-05-18 02:49:19.000000000 +0200 +++ Test-Parser-1.5.tests/t/03_ltp.t 2007-03-14 12:49:04.000000000 +0100 @@ -9,9 +9,9 @@ ok ( -e "./$logfile", "Verifying existance of $logfile") or diag("No log file found for '$0'"); -use Test::Parser::LTP; +use Test::Parser::ltp; -my $parser = new Test::Parser::LTP; +my $parser = new Test::Parser::ltp; $parser->parse($logfile); ok ($parser->num_executed() == 34, "Executed count"); diff -Naur Test-Parser-1.5/t/04_lhcs.t Test-Parser-1.5.tests/t/04_lhcs.t --- Test-Parser-1.5/t/04_lhcs.t 2006-05-18 02:49:19.000000000 +0200 +++ Test-Parser-1.5.tests/t/04_lhcs.t 2007-03-14 12:53:51.000000000 +0100 @@ -9,9 +9,9 @@ ok ( -e "./$logfile", "Verifying existance of $logfile") or diag("No log file found for '$0'"); -use Test::Parser::LHCS; +use Test::Parser::lhcs_regression; -my $parser = new Test::Parser::LHCS; +my $parser = new Test::Parser::lhcs_regression; $parser->parse($logfile); ok ($parser->num_executed() == 6, "Executed count"); diff -Naur Test-Parser-1.5/t/05_newpynfs.t Test-Parser-1.5.tests/t/05_newpynfs.t --- Test-Parser-1.5/t/05_newpynfs.t 2006-06-24 05:33:38.000000000 +0200 +++ Test-Parser-1.5.tests/t/05_newpynfs.t 2007-03-14 12:49:34.000000000 +0100 @@ -9,9 +9,9 @@ ok ( -e "./$logfile", "Verifying existance of $logfile") or diag("No log file found for '$0'"); -use Test::Parser::NewPyNfs; +use Test::Parser::newpynfs; -my $parser = new Test::Parser::NewPyNfs; +my $parser = new Test::Parser::newpynfs; $parser->parse($logfile); ok ($parser->num_executed() == 578, "Executed count"); diff -Naur Test-Parser-1.5/t/13_iozone.t Test-Parser-1.5.tests/t/13_iozone.t --- Test-Parser-1.5/t/13_iozone.t 2006-09-26 19:51:37.000000000 +0200 +++ Test-Parser-1.5.tests/t/13_iozone.t 2007-03-14 12:53:26.000000000 +0100 @@ -9,9 +9,9 @@ ok ( -e "./$logfile", "Verifying existance of $logfile") or diag("No log file found for '$0'"); -use Test::Parser::Iozone; +use Test::Parser::iozone; -my $parser = new Test::Parser::Iozone; +my $parser = new Test::Parser::iozone; $parser->parse($logfile); my $h = $parser->data();