← Back to branch summary

~ubuntu-branches/ubuntu/trusty/drizzle/trusty

« back to all changes in this revision

Viewing changes to tests/test_tools/sql-bench/test-transactions

  • Committer: Package Import Robot
  • Author(s): Dmitrijs Ledkovs
  • Date: 2013-10-29 15:43:40 UTC
  • mfrom: (1.2.12) (2.1.19 trusty-proposed)
  • Revision ID: package-import@ubuntu.com-20131029154340-2gp39el6cv8bwf2o
Tags: 1:7.2.3-2ubuntu1
* Merge from debian, remaining changes:
  - Link against boost_system because of boost_thread.
  - Add required libs to message/include.am
  - Add upstart job and adjust init script to be upstart compatible.
  - Disable -floop-parallelize-all due to gcc-4.8/4.9 compiler ICE
    http://gcc.gnu.org/bugzilla/show_bug.cgi?id=57732

Show diffs side-by-side

added added

removed removed

Lines of Context:
tests/test_tools/sql-bench/test-transactions
 
1
#!/usr/bin/perl
 
2
# Copyright (C) 2001, 2003 MySQL AB
 
3
#
 
4
# This library is free software; you can redistribute it and/or
 
5
# modify it under the terms of the GNU Library General Public
 
6
# License as published by the Free Software Foundation; version 2
 
7
# of the License.
 
8
#
 
9
# This library is distributed in the hope that it will be useful,
 
10
# but WITHOUT ANY WARRANTY; without even the implied warranty of
 
11
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
 
12
# Library General Public License for more details.
 
13
#
 
14
# You should have received a copy of the GNU Library General Public
 
15
# License along with this library; if not, write to the Free
 
16
# Software Foundation, Inc., 59 Temple Place - Suite 330, Boston,
 
17
# MA 02111-1307, USA
 
18
#
 
19
# Test of transactions performance.
 
20
#
 
21
 
 
22
##################### Standard benchmark inits ##############################
 
23
 
 
24
use Cwd;
 
25
use DBI;
 
26
use Benchmark;
 
27
#use warnings;
 
28
 
 
29
$opt_groups=27;             # Characters are 'A' -> Z
 
30
 
 
31
$opt_loop_count=10000;      # Change this to make test harder/easier
 
32
$opt_medium_loop_count=100; # Change this to make test harder/easier
 
33
 
 
34
$pwd = cwd(); $pwd = "." if ($pwd eq '');
 
35
require "$pwd/bench-init.pl" || die "Can't read Configuration file: $!\n";
 
36
 
 
37
# Avoid warnings for variables in bench-init.pl
 
38
# (Only works with perl 5.6)
 
39
#our ($opt_small_test, $opt_small_tables, $opt_debug, $opt_force);
 
40
 
 
41
if ($opt_small_test || $opt_small_tables)
 
42
{
 
43
  $opt_loop_count/=100;
 
44
  $opt_medium_loop_count/=10;
 
45
}
 
46
 
 
47
 
 
48
if (!$server->{transactions} && !$opt_force)
 
49
{
 
50
  print "Test skipped because the database doesn't support transactions\n";
 
51
  exit(0);
 
52
}
 
53
 
 
54
####
 
55
####  Connect and start timeing
 
56
####
 
57
 
 
58
$start_time=new Benchmark;
 
59
$dbh = $server->connect();
 
60
 
 
61
###
 
62
### Create Table
 
63
###
 
64
 
 
65
print "Creating tables\n";
 
66
$dbh->do("drop table bench1");
 
67
$dbh->do("drop table bench2");
 
68
 
 
69
do_many($dbh,$server->create("bench1",
 
70
                             ["idn int NOT NULL",
 
71
                              "rev_idn int NOT NULL",
 
72
                              "region char(1) NOT NULL",
 
73
                              "grp int NOT NULL",
 
74
                              "updated tinyint NOT NULL"],
 
75
                             ["primary key (idn)",
 
76
                              "unique (region,grp)"]));
 
77
do_many($dbh,$server->create("bench2",
 
78
                             ["idn int NOT NULL",
 
79
                              "rev_idn int NOT NULL",
 
80
                              "region char(1) NOT NULL",
 
81
                              "grp int NOT NULL",
 
82
                              "updated tinyint NOT NULL"],
 
83
                             ["primary key (idn)",
 
84
                              "unique (region,grp)"]));
 
85
 
 
86
$dbh->{AutoCommit} = 0;
 
87
 
 
88
###
 
89
### Test insert perfomance
 
90
###
 
91
 
 
92
test_insert("bench1","insert_commit",0);
 
93
test_insert("bench2","insert_autocommit",1);
 
94
 
 
95
sub test_insert
 
96
{
 
97
  my ($table, $test_name, $auto_commit)= @_;
 
98
  my ($loop_time,$end_time,$id,$rev_id,$grp,$region);
 
99
 
 
100
  $dbh->{AutoCommit}= $auto_commit;
 
101
  $loop_time=new Benchmark;
 
102
 
 
103
  for ($id=0,$rev_id=$opt_loop_count-1 ; $id < $opt_loop_count ;
 
104
       $id++,$rev_id--)
 
105
  {
 
106
    $grp=$id/$opt_groups;
 
107
    $region=chr(65+$id%$opt_groups);
 
108
    do_query($dbh,"insert into $table values ($id,$rev_id,'$region',$grp,0)");
 
109
  }
 
110
 
 
111
  $dbh->commit if (!$auto_commit);
 
112
  $end_time=new Benchmark;
 
113
  print "Time for $test_name  ($opt_loop_count): " .
 
114
    timestr(timediff($end_time, $loop_time),"all") . "\n\n";
 
115
}
 
116
 
 
117
###
 
118
### Test rollback performance
 
119
###
 
120
 
 
121
print "Test transactions rollback performance\n" if($opt_debug);
 
122
 
 
123
##
 
124
## Insert rollback test
 
125
##
 
126
 
 
127
#
 
128
# Test is done by inserting 100 rows in a table with lots of rows and
 
129
# then doing a rollback on these
 
130
#
 
131
 
 
132
{
 
133
  my ($id,$rev_id,$grp,$region,$end,$loop_time,$end_time,$commit_loop,$count);
 
134
 
 
135
  $dbh->{AutoCommit} = 0;
 
136
  $loop_time=new Benchmark;
 
137
  $end=$opt_loop_count*2;
 
138
  $count=0;
 
139
 
 
140
  for ($commit_loop=1, $id=$opt_loop_count ; $id < $end ;
 
141
       $id++, $commit_loop++)
 
142
  {
 
143
    $rev_id=$end-$id;
 
144
    $grp=$id/$opt_groups;
 
145
    $region=chr(65+$id%$opt_groups);
 
146
    do_query($dbh,"insert into bench1 values ($id,$rev_id,'$region',$grp,0)");
 
147
    if ($commit_loop >= $opt_medium_loop_count)
 
148
    {
 
149
      $dbh->rollback;
 
150
      $commit_loop=0;
 
151
      $count++;
 
152
    }
 
153
  }
 
154
  if ($commit_loop > 1)
 
155
  {
 
156
    $dbh->rollback;
 
157
    $count++;
 
158
  }
 
159
  $end_time=new Benchmark;
 
160
  print "Time for insert_rollback ($count:$opt_loop_count): " .
 
161
    timestr(timediff($end_time, $loop_time),"all") . "\n\n";
 
162
}
 
163
 
 
164
##
 
165
## Update rollback test
 
166
##
 
167
 
 
168
#
 
169
# Test is done by updating 100 rows in a table with lots of rows and
 
170
# then doing a rollback on these
 
171
#
 
172
 
 
173
{
 
174
  my ($id,$loop_time,$end_time,$commit_loop,$count);
 
175
 
 
176
  $dbh->{AutoCommit} = 0;
 
177
  $loop_time=new Benchmark;
 
178
  $end=$opt_loop_count*2;
 
179
  $count=0;
 
180
 
 
181
  for ($commit_loop=1, $id=0 ; $id < $opt_loop_count ; $id++, $commit_loop++)
 
182
  {
 
183
    do_query($dbh,"update bench1 set updated=2 where idn=$id");
 
184
    if ($commit_loop >= $opt_medium_loop_count)
 
185
    {
 
186
      $dbh->rollback;
 
187
      $commit_loop=0;
 
188
      $count++;
 
189
    }
 
190
  }
 
191
  if ($commit_loop > 1)
 
192
  {
 
193
    $dbh->rollback;
 
194
    $count++;
 
195
  }
 
196
  $end_time=new Benchmark;
 
197
  print "Time for update_rollback ($count:$opt_loop_count): " .
 
198
    timestr(timediff($end_time, $loop_time),"all") . "\n\n";
 
199
}
 
200
 
 
201
##
 
202
## Delete rollback test
 
203
##
 
204
 
 
205
#
 
206
# Test is done by deleting 100 rows in a table with lots of rows and
 
207
# then doing a rollback on these
 
208
#
 
209
 
 
210
{
 
211
  my ($id,$loop_time,$end_time,$commit_loop,$count);
 
212
 
 
213
  $dbh->{AutoCommit} = 0;
 
214
  $loop_time=new Benchmark;
 
215
  $end=$opt_loop_count*2;
 
216
  $count=0;
 
217
 
 
218
  for ($commit_loop=1, $id=0 ; $id < $opt_loop_count ; $id++, $commit_loop++)
 
219
  {
 
220
    do_query($dbh,"delete from bench1 where idn=$id");
 
221
    if ($commit_loop >= $opt_medium_loop_count)
 
222
    {
 
223
      $dbh->rollback;
 
224
      $commit_loop=0;
 
225
      $count++;
 
226
    }
 
227
  }
 
228
  if ($commit_loop > 1)
 
229
  {
 
230
    $dbh->rollback;
 
231
    $count++;
 
232
  }
 
233
  $end_time=new Benchmark;
 
234
  print "Time for delete_rollback ($count:$opt_loop_count): " .
 
235
    timestr(timediff($end_time, $loop_time),"all") . "\n\n";
 
236
}
 
237
 
 
238
 
 
239
###
 
240
### Test update perfomance
 
241
###
 
242
 
 
243
test_update("bench1","update_commit",0);
 
244
test_update("bench2","update_autocommit",1);
 
245
 
 
246
sub test_update
 
247
{
 
248
  my ($table, $test_name, $auto_commit)= @_;
 
249
  my ($loop_time,$end_time,$id);
 
250
 
 
251
  $dbh->{AutoCommit}= $auto_commit;
 
252
  $loop_time=new Benchmark;
 
253
 
 
254
  for ($id=0 ; $id < $opt_loop_count ; $id++)
 
255
  {
 
256
    do_query($dbh,"update $table set updated=1 where idn=$id");
 
257
  }
 
258
 
 
259
  $dbh->commit if (!$auto_commit);
 
260
  $end_time=new Benchmark;
 
261
  print "Time for $test_name  ($opt_loop_count): " .
 
262
    timestr(timediff($end_time, $loop_time),"all") . "\n\n";
 
263
}
 
264
 
 
265
###
 
266
### Test delete perfomance
 
267
###
 
268
 
 
269
test_delete("bench1","delete_commit",0);
 
270
test_delete("bench2","delete_autocommit",1);
 
271
 
 
272
sub test_delete
 
273
{
 
274
  my ($table, $test_name, $auto_commit)= @_;
 
275
  my ($loop_time,$end_time,$id);
 
276
 
 
277
  $dbh->{AutoCommit}= $auto_commit;
 
278
  $loop_time=new Benchmark;
 
279
 
 
280
  for ($id=0 ; $id < $opt_loop_count ; $id++)
 
281
 {
 
282
    do_query($dbh,"delete from $table where idn=$id");
 
283
  }
 
284
  $dbh->commit if (!$auto_commit);
 
285
  $end_time=new Benchmark;
 
286
  print "Time for $test_name  ($opt_loop_count): " .
 
287
   timestr(timediff($end_time, $loop_time),"all") . "\n\n";
 
288
}
 
289
 
 
290
####
 
291
#### End of benchmark
 
292
####
 
293
 
 
294
$sth = $dbh->do("drop table bench1" . $server->{'drop_attr'}) or die $DBI::errstr;
 
295
$sth = $dbh->do("drop table bench2" . $server->{'drop_attr'}) or die $DBI::errstr;
 
296
 
 
297
$dbh->disconnect;                               # close connection
 
298
end_benchmark($start_time);