← Back to branch summary

~drizzle-trunk/drizzle/development

« back to all changes in this revision

Viewing changes to plugin/query_log/tests/check-query-log-attribute.pl

  • Committer: Mark Atwood
  • Date: 2011-09-20 06:47:25 UTC
  • mfrom: (2420.1.1 query-log-1.0)
  • Revision ID: me@mark.atwood.name-20110920064725-wfa8n7up69l4ulod
merge lp:~daniel-nichter/drizzle/query-log-ts

Show diffs side-by-side

added added

removed removed

Lines of Context:
plugin/query_log/tests/check-query-log-attribute.pl
103
103
   my $lineno = 1;
104
104
   foreach my $line ( @event_lines ) { 
105
105
      next if $line =~ m/^$/;
106
 
      if ( $lineno == 1 ) { # timestamp
107
 
         push @props, 'ts', $line =~ m/^# (\S+)/;
108
 
      }
109
 
      elsif ( $lineno >= 2 && $lineno <= 4 ) { # ints, floats and bools
 
106
      if ( $lineno <= 4 ) { # ts, ints, floats and bools
110
107
         push @props, $line =~ m/([a-z_]+)=(\S+)/g;
111
108
      }
112
109
      elsif ( $lineno == 5 ) { # strings