home *** CD-ROM | disk | FTP | other *** search
/ Enter 2004 June / ENTER.ISO / files / xampp-win32-1.4.5-installer.exe / xampp / benchmark_drivers.php < prev    next >
Encoding:
PHP Script  |  2004-03-24  |  5.3 KB  |  136 lines
  1. <?php
  2. /* vim: set expandtab tabstop=4 shiftwidth=4: */
  3. // +----------------------------------------------------------------------+
  4. // | Copyright (c) 2002 Brent Cook                                        |
  5. // +----------------------------------------------------------------------+
  6. // | This library is free software; you can redistribute it and/or        |
  7. // | modify it under the terms of the GNU Lesser General Public           |
  8. // | License as published by the Free Software Foundation; either         |
  9. // | version 2.1 of the License, or (at your option) any later version.   |
  10. // |                                                                      |
  11. // | This library is distributed in the hope that it will be useful,      |
  12. // | but WITHOUT ANY WARRANTY; without even the implied warranty of       |
  13. // | MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU    |
  14. // | Lesser General Public License for more details.                      |
  15. // |                                                                      |
  16. // | You should have received a copy of the GNU Lesser General Public     |
  17. // | License along with this library; if not, write to the Free Software  |
  18. // | Foundation, Inc., 59 Temple Place, Suite 330,Boston,MA 02111-1307 USA|
  19. // +----------------------------------------------------------------------+
  20. // | Author: Brent Cook <busterb@mail.utexas.edu>                         |
  21. // +----------------------------------------------------------------------+
  22. //
  23. // $Id: benchmark_drivers.php,v 1.6 2002/09/25 17:37:49 busterb Exp $
  24. //
  25.  
  26. ini_set('include_path',ini_get('include_path').':../../');
  27. require_once 'DBA.php';
  28. require_once 'PEAR.php';
  29.  
  30. $testDataArray = array ('11111111111111111111',
  31.                         '222222222222222222222222',
  32.                         '3333333333333333333333333333',
  33.                         '44444444444444444444444444444444',
  34.                         '555555555555555555555555555555555555',
  35.                         '6666666666666666666666666666666666666666',
  36.                         '77777777777777777777777777777777777777777777',
  37.                         '888888888888888888888888888888888888888888888888',
  38.                         '9999999999999999999999999999999999999999999999999999');
  39.  
  40. $maxDataIndex = sizeof ($testDataArray)-1;
  41.  
  42. $maxTestKeys = array(1600, 3200, 6400, 12800, 25600);
  43.  
  44. $transactionsInterval = 2000;
  45.  
  46. $maxTransactions = $transactionsInterval * 8;
  47.  
  48. $prefix = './';
  49.  
  50. function getmicrotime(){ 
  51.     list($usec, $sec) = explode(" ",microtime()); 
  52.     return((float)$usec + (float)$sec); 
  53. } 
  54.  
  55. foreach (DBA::getDriverList() as $driver) {
  56.     echo "Benchmarking driver: $driver\n";
  57.     $testDB = DBA::create($driver);
  58.  
  59.     foreach ($maxTestKeys as $maxTestKey) {
  60.  
  61.         $dat_fp = fopen($prefix."{$driver}_{$maxTestKey}.dat", 'w');
  62.         for ($transactions=$transactionsInterval;
  63.             $transactions <= $maxTransactions;
  64.             $transactions+=$transactionsInterval) {
  65.  
  66.             $result = $testDB->open($prefix.'benchmark_db_'.$driver, 'n');
  67.             if (PEAR::isError($result)) {
  68.                 echo $result->getMessage()."\n";
  69.             } else {
  70.                 // only measure successful transactions
  71.                 $actualTransactions = 0;
  72.  
  73.                 // begin stopwatch
  74.                 $start = getmicrotime();
  75.  
  76.                 for ($i=0; $i<$transactions; ++$i) {
  77.                     $testKey = rand (0, $maxTestKey);
  78.                     $testData = $testDataArray[rand(0, $maxDataIndex)];
  79.                     switch (rand(0, 3)) {
  80.                         case 0:
  81.                             if (!$testDB->exists($testKey)) {
  82.                                 ++$actualTransactions;
  83.                                 $testDB->insert($testKey, $testData);
  84.                             }
  85.                             break;
  86.                         case 1:
  87.                             if ($testDB->exists($testKey)) {
  88.                                 ++$actualTransactions;
  89.                                 $testDB->remove($testKey);
  90.                             }
  91.                             break;
  92.                         case 2:
  93.                             $testDB->replace($testKey, $testData);
  94.                             break;
  95.                         case 3:
  96.                             if ($testDB->exists($testKey)) {
  97.                                 ++$actualTransactions;
  98.                                 $testDB->fetch($testKey);
  99.                             }
  100.                     }
  101.                 }
  102.                 $testDB->close();
  103.             }
  104.  
  105.             // end stopwatch
  106.             $stop = getmicrotime();
  107.             $line = $actualTransactions.' '.($stop - $start)."\n";
  108.             echo "Keys: $maxTestKey Transactions: $line";
  109.             fwrite($dat_fp, $line);
  110.         }
  111.         fclose($dat_fp);
  112.     }
  113.  
  114.     // make a gnuplot data file
  115.     $graph_data = <<<EOT
  116. set size 1.0, 1.0
  117. set terminal postscript portrait "Helvetica" 12
  118. set title "driver: $driver"
  119. set xlabel "# of transactions"
  120. set ylabel "time in seconds"
  121. set out "$driver.ps"
  122. plot
  123. EOT;
  124.  
  125.     foreach ($maxTestKeys as $maxTestKey) {
  126.         $graph_data .= " \"{$driver}_{$maxTestKey}.dat\" using 1:2 title '".
  127.                     "$driver, $maxTestKey keys' with lines,\\\n";
  128.     }
  129.  
  130.     // write the gnuplot data file, trimming off that last comma :P
  131.     $graph_fp = fopen($prefix.$driver.'_graph', 'w');
  132.     fwrite($graph_fp, substr($graph_data, 0, -3));
  133.     fclose($graph_fp);
  134. }
  135. ?>
  136.