database/mariadb
1
0
Fork 0
mirror of https://github.com/MariaDB/server.git synced 2025-07-30 16:24:05 +03:00
Code Activity

mysql-test-run.pl:

Browse Source 
Added --comment=<string> option


mysql-test/mysql-test-run.pl:
  Added --comment=<string> option
This commit is contained in:
unknown
2006-02-17 16:20:53 +01:00
parent 189b687d48
commit 6fc3a3d94b
1 changed files with 16 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

24
mysql-test/mysql-test-run.pl
View File

@ -508,13 +508,15 @@ sub command_line_setup () {
# These are defaults for things that are set on the command line # These are defaults for things that are set on the command line
$opt_suite= "main"; # Special default suite $opt_suite= "main"; # Special default suite
my $opt_master_myport= 9306; my $opt_comment;
my $opt_slave_myport= 9308;
$opt_ndbcluster_port= 9350; my $opt_master_myport= 9306;
my $opt_slave_myport= 9308;
$opt_ndbcluster_port= 9350;
$opt_ndbcluster_port_slave= 9358; $opt_ndbcluster_port_slave= 9358;
my $im_port= 9310; my $im_port= 9310;
my $im_mysqld1_port= 9312; my $im_mysqld1_port= 9312;
my $im_mysqld2_port= 9314; my $im_mysqld2_port= 9314;
# #
# To make it easier for different devs to work on the same host, # To make it easier for different devs to work on the same host,
@ -626,6 +628,7 @@ sub command_line_setup () {
'big-test' => \$opt_big_test, 'big-test' => \$opt_big_test,
'debug' => \$opt_debug, 'debug' => \$opt_debug,
'fast' => \$opt_fast, 'fast' => \$opt_fast,
'comment=s' => \$opt_comment,
'local' => \$opt_local, 'local' => \$opt_local,
'local-master' => \$opt_local_master, 'local-master' => \$opt_local_master,
'netware' => \$opt_netware, 'netware' => \$opt_netware,
@ -652,9 +655,14 @@ sub command_line_setup () {
'help|h' => \$opt_usage, 'help|h' => \$opt_usage,
) or usage("Can't read options"); ) or usage("Can't read options");
if ( $opt_usage ) usage("") if $opt_usage;
if ( $opt_comment )
{ {
usage(""); print "\n";
print '#' x 78, "\n";
print "# $opt_comment\n";
print '#' x 78, "\n\n";
} }
foreach my $arg ( @ARGV ) foreach my $arg ( @ARGV )