Skip to content
Projects
Groups
Snippets
Help
Loading...
Help
Support
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
M
mariadb
Project overview
Project overview
Details
Activity
Releases
Repository
Repository
Files
Commits
Branches
Tags
Contributors
Graph
Compare
Issues
0
Issues
0
List
Boards
Labels
Milestones
Merge Requests
0
Merge Requests
0
Analytics
Analytics
Repository
Value Stream
Wiki
Wiki
Snippets
Snippets
Members
Members
Collapse sidebar
Close sidebar
Activity
Graph
Create a new issue
Commits
Issue Boards
Open sidebar
Kirill Smelkov
mariadb
Commits
dda0e213
Commit
dda0e213
authored
Nov 28, 2002
by
walrus@mysql.com
Browse files
Options
Browse Files
Download
Plain Diff
Merge akishkin@work.mysql.com:/home/bk/mysql-4.0
into mysql.com:/home/walrus/bk/40
parents
130e00ef
fbbc087a
Changes
2
Hide whitespace changes
Inline
Side-by-side
Showing
2 changed files
with
62 additions
and
28 deletions
+62
-28
sql-bench/crash-me.sh
sql-bench/crash-me.sh
+31
-19
sql-bench/server-cfg.sh
sql-bench/server-cfg.sh
+31
-9
No files found.
sql-bench/crash-me.sh
View file @
dda0e213
#!@PERL@
# Copyright (C) 2000 MySQL AB & MySQL Finland AB & TCX DataKonsult AB
# Copyright (C) 2000 MySQL AB & MySQL Finland AB & TCX DataKonsult AB
#
#
# This library is free software; you can redistribute it and/or
# This library is free software; you can redistribute it and/or
...
@@ -1720,32 +1719,22 @@ if ($limits{'foreign_key'} eq 'yes')
...
@@ -1720,32 +1719,22 @@ if ($limits{'foreign_key'} eq 'yes')
}
}
}
}
report
(
"Column constraints"
,
"constraint_check"
,
check_constraint
(
"Column constraints"
,
"constraint_check"
,
"create table crash_q (a int check (a>0))"
,
"create table crash_q (a int check (a>0))"
,
"drop table crash_q
$drop_attr
"
)
;
"insert into crash_q values(0)"
,
"drop table crash_q
$drop_attr
"
)
;
report
(
"Ignoring column constraints"
,
"ignoring_constraint_check"
,
"create table crash_q (a int check (a>0))"
,
"insert into crash_q values(0)"
,
"drop table crash_q
$drop_attr
"
)
if
(
$limits
{
'constraint_check'
}
eq
'yes'
)
;
report
(
"Table constraints"
,
"constraint_check_table"
,
"create table crash_q (a int ,b int, check (a>b))"
,
"drop table crash_q
$drop_attr
"
)
;
report
(
"Ignoring table constraints"
,
"ignoring_
constraint_check_table"
,
check_constraint
(
"Table constraints"
,
"
constraint_check_table"
,
"create table crash_q (a int ,b int, check (a>b))"
,
"create table crash_q (a int ,b int, check (a>b))"
,
"insert into crash_q values(0,0)"
,
"insert into crash_q values(0,0)"
,
"drop table crash_q
$drop_attr
"
)
if
(
$limits
{
'constraint_check_table'
}
eq
'yes'
)
;
report
(
"Named constraints"
,
"constraint_check_named"
,
"create table crash_q (a int ,b int, constraint abc check (a>b))"
,
"drop table crash_q
$drop_attr
"
)
;
"drop table crash_q
$drop_attr
"
)
;
report
(
"Ignoring named constraints"
,
"ignoring_
constraint_check_named"
,
check_constraint
(
"Named constraints"
,
"
constraint_check_named"
,
"create table crash_q (a int ,b int, constraint abc check (a>b))"
,
"create table crash_q (a int ,b int, constraint abc check (a>b))"
,
"insert into crash_q values(0,0)"
,
"insert into crash_q values(0,0)"
,
"drop table crash_q
$drop_attr
"
)
if
(
$limits
{
'constraint_check_named'
}
eq
'yes'
)
;
"drop table crash_q
$drop_attr
"
)
;
report
(
"NULL constraint (SyBase style)"
,
"constraint_null"
,
report
(
"NULL constraint (SyBase style)"
,
"constraint_null"
,
"create table crash_q (a int null)"
,
"create table crash_q (a int null)"
,
...
@@ -2236,6 +2225,29 @@ sub check_parenthesis {
...
@@ -2236,6 +2225,29 @@ sub check_parenthesis {
save_config_data
(
$param_name
,
$resultat
,
$fn
)
;
save_config_data
(
$param_name
,
$resultat
,
$fn
)
;
}
}
sub check_constraint
{
my
$prompt
=
shift
;
my
$key
=
shift
;
my
$create
=
shift
;
my
$check
=
shift
;
my
$drop
=
shift
;
save_incomplete
(
$key
,
$prompt
)
;
print
"
$prompt
="
;
my
$res
=
'no'
;
if
(
(
$t
=
safe_query
(
$create
))
==
1
)
{
$res
=
'yes'
;
if
(
safe_query
(
$check
)
==
1
)
{
$res
=
'syntax only'
;
}
}
safe_query
(
$drop
)
;
save_config_data
(
$key
,
$res
,
$prompt
)
;
print
"
$res
\n
"
;
}
sub usage
sub usage
{
{
print
<<
EOF
;
print
<<
EOF
;
...
...
sql-bench/server-cfg.sh
View file @
dda0e213
...
@@ -216,6 +216,7 @@ sub version
...
@@ -216,6 +216,7 @@ sub version
}
}
$sth
->finish
;
$sth
->finish
;
$dbh
->disconnect
;
$dbh
->disconnect
;
$version
.
=
"/ODBC"
if
(
$self
->
{
'data_source'
}
=
~ /:ODBC:/
)
;
return
$version
;
return
$version
;
}
}
...
@@ -431,6 +432,8 @@ sub version
...
@@ -431,6 +432,8 @@ sub version
{
# Strip pre- and endspace
{
# Strip pre- and endspace
$tmp
=
$1
;
$tmp
=
$1
;
$tmp
=
~ s/
\s
+/ /g
;
# Remove unnecessary spaces
$tmp
=
~ s/
\s
+/ /g
;
# Remove unnecessary spaces
$tmp
.
=
"/ODBC"
if
(
$self
->
{
'data_source'
}
=
~ /:ODBC:/
)
;
return
$tmp
;
return
$tmp
;
}
}
}
}
...
@@ -619,6 +622,7 @@ sub new
...
@@ -619,6 +622,7 @@ sub new
sub version
sub version
{
{
my
(
$version
,
$dir
)
;
my
(
$version
,
$dir
)
;
$version
=
"PostgreSQL version ???"
;
foreach
$dir
(
$ENV
{
'PGDATA'
}
,
"/usr/local/pgsql/data"
,
"/usr/local/pg/data"
)
foreach
$dir
(
$ENV
{
'PGDATA'
}
,
"/usr/local/pgsql/data"
,
"/usr/local/pg/data"
)
{
{
if
(
$dir
&&
-e
"
$dir
/PG_VERSION"
)
if
(
$dir
&&
-e
"
$dir
/PG_VERSION"
)
...
@@ -627,11 +631,13 @@ sub version
...
@@ -627,11 +631,13 @@ sub version
if
(
$?
==
0
)
if
(
$?
==
0
)
{
{
chomp
(
$version
)
;
chomp
(
$version
)
;
$version
.
=
"/ODBC"
if
(
$self
->
{
'data_source'
}
=
~ /:ODBC:/
)
;
return
"PostgreSQL
$version
"
;
return
"PostgreSQL
$version
"
;
}
}
}
}
}
}
return
"PostgreSQL version ???"
;
$version
.
=
"/ODBC"
if
(
$self
->
{
'data_source'
}
=
~ /:ODBC:/
)
;
return
$version
;
}
}
...
@@ -895,6 +901,7 @@ sub new
...
@@ -895,6 +901,7 @@ sub new
sub version
sub version
{
{
my
(
$version
,
$dir
)
;
my
(
$version
,
$dir
)
;
$version
=
"Solid version ??"
;
foreach
$dir
(
$ENV
{
'SOLIDDIR'
}
,
"/usr/local/solid"
,
"/my/local/solid"
)
foreach
$dir
(
$ENV
{
'SOLIDDIR'
}
,
"/usr/local/solid"
,
"/my/local/solid"
)
{
{
if
(
$dir
&&
-e
"
$dir
/bin/solcon"
)
if
(
$dir
&&
-e
"
$dir
/bin/solcon"
)
...
@@ -903,11 +910,13 @@ sub version
...
@@ -903,11 +910,13 @@ sub version
if
(
$?
==
0
)
if
(
$?
==
0
)
{
{
chomp
(
$version
)
;
chomp
(
$version
)
;
$version
.
=
"/ODBC"
if
(
$self
->
{
'data_source'
}
=
~ /:ODBC:/
)
;
return
$version
;
return
$version
;
}
}
}
}
}
}
return
"Solid version ???"
;
$version
.
=
"/ODBC"
if
(
$self
->
{
'data_source'
}
=
~ /:ODBC:/
)
;
return
$version
;
}
}
sub connect
sub connect
...
@@ -1136,6 +1145,8 @@ sub version
...
@@ -1136,6 +1145,8 @@ sub version
{
{
$version
=
"Empress version ???"
;
$version
=
"Empress version ???"
;
}
}
$version
.
=
"/ODBC"
if
(
$self
->
{
'data_source'
}
=
~ /:ODBC:/
)
;
return
$version
;
return
$version
;
}
}
...
@@ -1403,6 +1414,7 @@ sub version
...
@@ -1403,6 +1414,7 @@ sub version
}
}
$sth
->finish
;
$sth
->finish
;
$dbh
->disconnect
;
$dbh
->disconnect
;
$version
.
=
"/ODBC"
if
(
$self
->
{
'data_source'
}
=
~ /:ODBC:/
)
;
return
$version
;
return
$version
;
}
}
...
@@ -1647,6 +1659,7 @@ sub version
...
@@ -1647,6 +1659,7 @@ sub version
}
}
$sth
->finish
;
$sth
->finish
;
$dbh
->disconnect
;
$dbh
->disconnect
;
$version
.
=
"/ODBC"
if
(
$self
->
{
'data_source'
}
=
~ /:ODBC:/
)
;
return
$version
;
return
$version
;
}
}
...
@@ -1846,7 +1859,9 @@ sub new
...
@@ -1846,7 +1859,9 @@ sub new
sub version
sub version
{
{
my
(
$self
)=
@_
;
my
(
$self
)=
@_
;
return
"Access 2000"
;
#DBI/ODBC can't return the server version
my
$version
=
"Access 2000"
;
$version
.
=
"/ODBC"
if
(
$self
->
{
'data_source'
}
=
~ /:ODBC:/
)
;
return
$version
;
#DBI/ODBC can't return the server version
}
}
sub connect
sub connect
...
@@ -2028,7 +2043,8 @@ sub new
...
@@ -2028,7 +2043,8 @@ sub new
sub version
sub version
{
{
my
(
$self
)=
@_
;
my
(
$self
)=
@_
;
my
(
$sth
,@row
)
;
my
(
$sth
,@row,
$version
)
;
$version
=
'MS SQL server ?'
;
$dbh
=
$self
->connect
()
;
$dbh
=
$self
->connect
()
;
$sth
=
$dbh
->prepare
(
"SELECT
\@\@
VERSION"
)
or die
$DBI
::errstr
;
$sth
=
$dbh
->prepare
(
"SELECT
\@\@
VERSION"
)
or die
$DBI
::errstr
;
$sth
->execute or die
$DBI
::errstr
;
$sth
->execute or die
$DBI
::errstr
;
...
@@ -2036,10 +2052,11 @@ sub version
...
@@ -2036,10 +2052,11 @@ sub version
if
(
$row
[
0]
)
{
if
(
$row
[
0]
)
{
@server
=
split
(
/
\n
/,
$row
[
0]
)
;
@server
=
split
(
/
\n
/,
$row
[
0]
)
;
chomp
(
@server
)
;
chomp
(
@server
)
;
return
"
$server
[0]"
;
$version
=
"
$server
[0]"
;
}
else
{
}
return
"Microsoft SQL server ?"
;
$sth
->finish
;
}
$version
.
=
"/ODBC"
if
(
$self
->
{
'data_source'
}
=
~ /:ODBC:/
)
;
return
$version
;
}
}
sub connect
sub connect
...
@@ -2232,8 +2249,8 @@ sub version
...
@@ -2232,8 +2249,8 @@ sub version
}
}
$sth
->finish
;
$sth
->finish
;
$dbh
->disconnect
;
$dbh
->disconnect
;
$version
.
=
"/ODBC"
if
(
$self
->
{
'data_source'
}
=
~ /:ODBC:/
)
;
return
$version
;
return
$version
;
}
}
sub connect
sub connect
...
@@ -2466,6 +2483,7 @@ sub version
...
@@ -2466,6 +2483,7 @@ sub version
}
}
$sth
->finish
;
$sth
->finish
;
$dbh
->disconnect
;
$dbh
->disconnect
;
$version
.
=
"/ODBC"
if
(
$self
->
{
'data_source'
}
=
~ /:ODBC:/
)
;
return
$version
;
return
$version
;
}
}
...
@@ -2842,6 +2860,7 @@ sub version
...
@@ -2842,6 +2860,7 @@ sub version
#
#
$version
=
$dbh
->func
(
18, GetInfo
)
;
$version
=
$dbh
->func
(
18, GetInfo
)
;
$dbh
->disconnect
;
$dbh
->disconnect
;
$version
.
=
"/ODBC"
if
(
$self
->
{
'data_source'
}
=
~ /:ODBC:/
)
;
return
$version
;
return
$version
;
}
}
...
@@ -3041,6 +3060,7 @@ sub version
...
@@ -3041,6 +3060,7 @@ sub version
# $version =~ s/.*version \"(.*)\"$/$1/;
# $version =~ s/.*version \"(.*)\"$/$1/;
$dbh
->disconnect
;
$dbh
->disconnect
;
$version
=
"6.0Beta"
;
$version
=
"6.0Beta"
;
$version
.
=
"/ODBC"
if
(
$self
->
{
'data_source'
}
=
~ /:ODBC:/
)
;
return
$version
;
return
$version
;
}
}
...
@@ -3246,6 +3266,7 @@ sub version
...
@@ -3246,6 +3266,7 @@ sub version
#$version = $dbh->func(18, GetInfo);
#$version = $dbh->func(18, GetInfo);
$version
=
"FrontBase 3.3"
;
$version
=
"FrontBase 3.3"
;
# $dbh->disconnect;
# $dbh->disconnect;
$version
.
=
"/ODBC"
if
(
$self
->
{
'data_source'
}
=
~ /:ODBC:/
)
;
return
$version
;
return
$version
;
}
}
...
@@ -3453,6 +3474,7 @@ sub version
...
@@ -3453,6 +3474,7 @@ sub version
}
}
$sth
->finish
;
$sth
->finish
;
$dbh
->disconnect
;
$dbh
->disconnect
;
$version
.
=
"/ODBC"
if
(
$self
->
{
'data_source'
}
=
~ /:ODBC:/
)
;
return
$version
;
return
$version
;
}
}
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment