examples/math_bench.pl

   1 #!/usr/bin/perl -w
   2 use strict;use warnings;
   3 use OpenILS::System;
   4 use OpenILS::DOM::Element::userAuth;
   5 use OpenILS::Utils::Config;
   6 use OpenILS::DomainObject::oilsMethod;
   7 use OpenILS::DomainObject::oilsPrimitive;
   8 use Time::HiRes qw/time/;
   9 use OpenILS::EX qw/:try/;
  10
  11 $| = 1;
  12
  13 # ----------------------------------------------------------------------------------------
  14 # This is a quick and dirty script to perform benchmarking against the math server.
  15 # Note: 1 request performs a batch of 4 queries, one for each supported method: add, sub,
  16 # mult, div.
  17 # Usage: $ perl math_bench.pl <num_requests>
  18 # ----------------------------------------------------------------------------------------
  19
  20
  21 my $count = $ARGV[0];
  22
  23 unless( $count ) {
  24         print "usage: ./math_bench.pl <num_requests>\n";
  25         exit;
  26 }
  27
  28 warn "PID: $$\n";
  29
  30 my $config = OpenILS::Utils::Config->current;
  31 OpenILS::System->bootstrap_client();
  32
  33 my $session = OpenILS::AppSession->create(
  34                 "math", username => 'math_bench', secret => '12345' );
  35
  36 try {
  37         if( ! ($session->connect()) ) { die "Connect timed out\n"; }
  38
  39 } catch OpenILS::EX with {
  40         my $e = shift;
  41         warn "Connection Failed *\n";
  42         die $e;
  43 }
  44
  45 my @times;
  46 my %vals = ( add => 3, sub => -1, mult => 2, div => 0.5 );
  47
  48 for my $x (1..100) {
  49         if( $x % 10 ) { print ".";}
  50         else{ print $x/10; };
  51 }
  52 print "\n";
  53
  54 my $c = 0;
  55
  56 for my $scale ( 1..$count ) {
  57         for my $mname ( keys %vals ) {
  58
  59                 my $method = OpenILS::DomainObject::oilsMethod->new( method => $mname );
  60                 $method->params( 1,2 );
  61
  62                 my $req;
  63                 my $resp;
  64                 my $starttime;
  65                 try {
  66
  67                         $starttime = time();
  68                         $req = $session->request( $method );
  69                         $resp = $req->recv( timeout => 10 );
  70                         push @times, time() - $starttime;
  71
  72                 } catch OpenILS::EX with {
  73                         my $e = shift;
  74                         die "ERROR\n $e";
  75
  76                 } catch Error with {
  77                         my $e = shift;
  78                         die "Caught unknown error: $e";
  79                 };
  80
  81
  82                 if( ! $req->complete ) { warn "\nIncomplete\n"; }
  83
  84
  85                 if ( $resp ) {
  86
  87                         my $ret = $resp->content();
  88                         if( "$ret" eq $vals{$mname} ) { print "+"; }
  89
  90                         else { print "*BAD*\n" . $resp->toString(1) . "\n"; }
  91
  92                 } else { print "*NADA*";        }
  93
  94                 $req->finish();
  95                 $c++;
  96
  97         }
  98         print "\n[$c] \n" unless $scale % 25;
  99 }
 100
 101 $session->kill_me();
 102
 103 my $total = 0;
 104
 105 $total += $_ for (@times);
 106
 107 $total /= scalar(@times);
 108
 109 print "\n\n\tAverage Round Trip Time: $total Seconds\n";
 110