testing/rrule-performance.test

   1 #!/usr/bin/perl
   2 #
   3 #
   4 use strict;
   5 use autodie;
   6
   7 my ($dtstart, $rrule, $limit );
   8
   9 $limit = 100;
  10 $dtstart = '19270311T040000Z';
  11
  12 while( <> ) {
  13   m{\s* TZ \s* [:=] \s* (\S+.*) $}xi && do {
  14     printf( "SET timezone TO '%s';\n", $1);
  15   };
  16   m{\s* LIMIT \s* [:=] \s* (\d+) $}xi && do {
  17     $limit = $1;
  18   };
  19   m{\s* DTSTART \s* [:=] \s* (\S+.*) $}ix && do {
  20     $dtstart = $1;
  21   };
  22   m{\s* RRULE \s* [:=] \s* (\S+.*) $}ix && do {
  23     $rrule = $1;
  24     printf( "SELECT * FROM event_instances('%s', '%s' ) LIMIT %d;\n", $dtstart, $rrule, $limit);
  25     $limit = 100;
  26   };
  27 }
  28