View | Details | Raw Unified | Return to bug 11124
Collapse All | Expand All

(-)a/misc/load_testing/benchmark_staff.pl (-6 / +5 lines)
Lines 42-51 my $short_psec="|-\n|ON\n"; Link Here
42
42
43
if ($help || !$baseurl || !$user || !$password) {
43
if ($help || !$baseurl || !$user || !$password) {
44
    print <<EOF
44
    print <<EOF
45
This script runs a benchmark of the staff interface. It benchmark 6 different pages:
45
This script runs a benchmark of the staff interface. It benchmarks 6 different pages:
46
\t1- the staff main page
46
\t1- the staff main page
47
\t2- the catalog detail page, with a random biblionumber
47
\t2- the catalog detail page, with a random biblionumber
48
\t3- the catalog search page, using a term retrieved from one of the 10 first title/author in the database
48
\t3- the catalog search page, using a term retrieved from one of the 10 first titles/authors in the database
49
\t4- the patron detail page, with a random borrowernumber
49
\t4- the patron detail page, with a random borrowernumber
50
\t5- the patron search page, searching for "Jean"
50
\t5- the patron search page, searching for "Jean"
51
\t6- the circulation itself, doing check-out and check-in of random items to random patrons
51
\t6- the circulation itself, doing check-out and check-in of random items to random patrons
Lines 125-132 $sth->execute; Link Here
125
my ($title,$author);
125
my ($title,$author);
126
my @searchwords;
126
my @searchwords;
127
while (($title,$author)=$sth->fetchrow) {
127
while (($title,$author)=$sth->fetchrow) {
128
    push @searchwords,split / /, $author;
128
    push @searchwords,split / /, $author//'';
129
    push @searchwords,split / /, $title;
129
    push @searchwords,split / /, $title//'';
130
}
130
}
131
131
132
$sth = $dbh->prepare("select max(itemnumber) from items");
132
$sth = $dbh->prepare("select max(itemnumber) from items");
Lines 139-145 unless ($short_print) { Link Here
139
    print "--------------\n";
139
    print "--------------\n";
140
    print "Koha STAFF benchmarking utility\n";
140
    print "Koha STAFF benchmarking utility\n";
141
    print "--------------\n";
141
    print "--------------\n";
142
    print "Benchmarking with $max_tries occurences of each operation and $concurrency concurrent sessions \n";
142
    print "Benchmarking with $max_tries occurrences of each operation and $concurrency concurrent sessions \n";
143
}
143
}
144
#
144
#
145
# the global benchmark we do at the end...
145
# the global benchmark we do at the end...
146
- 

Return to bug 11124