summaryrefslogtreecommitdiff
path: root/sql-bench/crash-me.sh
diff options
context:
space:
mode:
authorunknown <walrus@mysql.com>2002-12-28 02:17:16 +0500
committerunknown <walrus@mysql.com>2002-12-28 02:17:16 +0500
commitae2a2981a57c7cd607114f8b17212154e0e32e2c (patch)
treeaae353cd4a05a91e9d33383042d6c56f3efdf799 /sql-bench/crash-me.sh
parent3522a78600194e51613a44c95d48cb7299bbb0a9 (diff)
downloadmariadb-git-ae2a2981a57c7cd607114f8b17212154e0e32e2c.tar.gz
1) Add option (--verbose) that allows user switch on/off new
logging in crash-me 2) Add new test: no_id_between, that indicates if NOT ID BETWEEN interprets as ID NOT BETWEEN sql-bench/crash-me.sh: 1) Add option (--verbose) that allows user switch on/off new logging in crash-me 2) Add new test: no_id_between, that indicates if NOT ID BETWEEN interprets as ID NOT BETWEEN
Diffstat (limited to 'sql-bench/crash-me.sh')
-rw-r--r--sql-bench/crash-me.sh50
1 files changed, 44 insertions, 6 deletions
diff --git a/sql-bench/crash-me.sh b/sql-bench/crash-me.sh
index adea23c5884..ea18431f8da 100644
--- a/sql-bench/crash-me.sh
+++ b/sql-bench/crash-me.sh
@@ -48,7 +48,7 @@ require "$pwd/server-cfg" || die "Can't read Configuration file: $!\n";
$opt_server="mysql"; $opt_host="localhost"; $opt_database="test";
$opt_dir="limits";
-$opt_user=$opt_password="";
+$opt_user=$opt_password="";$opt_verbose="";
$opt_debug=$opt_help=$opt_Information=$opt_restart=$opt_force=$opt_quick=0;
$opt_log_all_queries=$opt_fix_limit_file=$opt_batch_mode=0;
$opt_db_start_cmd=""; # the db server start command
@@ -67,8 +67,8 @@ $retry_limit=3;
GetOptions("Information","help","server=s","debug","user=s","password=s",
"database=s","restart","force","quick","log-all-queries","comment=s",
"host=s","fix-limit-file","dir=s","db-start-cmd=s","sleep=s","suffix=s",
-"batch-mode","config-file=s","log-queries-to-file=s","check-server")
- || usage();
+"batch-mode","config-file=s","log-queries-to-file=s","check-server",
+"verbose!" => \$opt_verbose) || usage();
usage() if ($opt_help || $opt_Information);
$opt_suffix = '-'.$opt_suffix if (length($opt_suffix) != 0);
@@ -1375,7 +1375,6 @@ if ($limits{'type_sql_date'} eq 'yes')
}
}
-
# Test: WEEK()
{
my $resultat="no";
@@ -1496,6 +1495,36 @@ if ($limits{'type_sql_date'} eq 'yes')
}
+# NOT id BETWEEN a and b
+if ($limits{'func_where_not_between'} eq 'yes')
+{
+ my $resultat = 'error';
+ my $err;
+ my $key='not_id_between';
+ my $prompt='NOT ID BETWEEN interprets as ID NOT BETWEEN';
+ print "$prompt:";
+ save_incomplete($key,$prompt);
+ safe_query_l($key,["create table crash_me_b (i int)",
+ "insert into crash_me_b values(2)",
+ "insert into crash_me_b values(5)"]);
+ $err =safe_query_result_l($key,
+ "select i from crash_me_b where not i between 1 and 3",
+ 5,0);
+ if ($err eq 1) {
+ if (not defined($last_result)) {
+ $resultat='no';
+ };
+ };
+ if ( $err eq 0) {
+ $resultat = 'yes';
+ };
+ safe_query_l($key,["drop table crash_me_b"]);
+ save_config_data($key,$resultat,$prompt);
+ print "$resultat\n";
+};
+
+
+
report("LIKE on numbers","like_with_number",
"create table crash_q (a int,b int)",
@@ -2740,7 +2769,7 @@ $0 takes the following options:
--password='password'
Password for the current user.
-
+
--restart
Save states during each limit tests. This will make it possible to continue
by restarting with the same options if there is some bug in the DBI or
@@ -2766,6 +2795,10 @@ $0 takes the following options:
--sleep='time in seconds' (Default $opt_sleep)
Wait this long before restarting server.
+--verbose
+--noverbose
+ Log into the result file queries performed for determination parameter value
+
EOF
exit(0);
}
@@ -3615,6 +3648,11 @@ sub safe_query_result_l{
sub safe_query_result
{
+# result type can be
+# 8 (must be empty), 2 (Any value), 0 (number)
+# 1 (char, endspaces can differ), 3 (exact char), 4 (NULL)
+# 5 (char with prefix), 6 (exact, errors are ignored)
+# 7 (array of numbers)
my ($query,$answer,$result_type)=@_;
my ($sth,$row,$result,$retry);
undef($last_result);
@@ -3990,7 +4028,7 @@ sub add_log
{
my $key = shift;
my $line = shift;
- $log{$key} .= $line . "\n";
+ $log{$key} .= $line . "\n" if ($opt_verbose);;
}
sub save_all_config_data