Make entry_links an arg to send_data() and run_services. Start updating/fixing tests. Add lib/Percona/Test/Mock/AgentLogger.pm.

2025-09-16 16:23:30 +00:00 · 2013-06-16 17:28:18 -07:00
parent 58736c7b0e
commit d14951ae5f
10 changed files with 490 additions and 105 deletions
--- a/lib/Percona/Test/Mock/AgentLogger.pm
+++ b/lib/Percona/Test/Mock/AgentLogger.pm
@@ -0,0 +1,129 @@
+# This program is copyright 2013 Percona Ireland Ltd.
+# Feedback and improvements are welcome.
+#
+# THIS PROGRAM IS PROVIDED "AS IS" AND WITHOUT ANY EXPRESS OR IMPLIED
+# WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED WARRANTIES OF
+# MERCHANTIBILITY AND FITNESS FOR A PARTICULAR PURPOSE.
+#
+# This program is free software; you can redistribute it and/or modify it under
+# the terms of the GNU General Public License as published by the Free Software
+# Foundation, version 2; OR the Perl Artistic License.  On UNIX and similar
+# systems, you can issue `man perlgpl' or `man perlartistic' to read these
+# licenses.
+#
+# You should have received a copy of the GNU General Public License along with
+# this program; if not, write to the Free Software Foundation, Inc., 59 Temple
+# Place, Suite 330, Boston, MA  02111-1307  USA.
+# ###########################################################################
+# Percona::Agent::Logger package
+# ###########################################################################
+package Percona::Test::Mock::AgentLogger;
+
+use strict;
+use warnings FATAL => 'all';
+use English qw(-no_match_vars);
+
+use constant PTDEBUG => $ENV{PTDEBUG} || 0;
+
+sub new {
+   my ($class, %args) = @_;
+   my $self = {
+      log            => $args{log},
+
+      exit_status    => $args{exit_status},
+      pid            => $args{pid},
+      online_logging => $args{online_logging},
+
+      service        => undef,
+      data_ts        => undef,
+      quiet          => 0,
+
+   };
+   return bless $self, $class;
+}
+
+sub service {
+   my $self = shift;
+   my $_service = shift;
+   $self->{service} = $_service if $_service;
+   return $self->{service};
+}
+
+sub data_ts {
+   my $self = shift;
+   my $_data_ts = shift;
+   $self->{data_ts} = $_data_ts if $_data_ts;
+   return $self->{data_ts};
+}
+
+sub quiet {
+   my $self = shift;
+   my $_quiet = shift;
+   $self->{quiet} = $_quiet if $_quiet;
+   return $self->{quiet};
+}
+
+sub start_online_logging {
+   my ($self, %args) = @_;
+   $self->_log('-', 'Called start_online_logging()');
+   return;
+}
+
+sub level_number {
+   my $name = shift;
+   die "No log level name given" unless $name;
+   my $number = $name eq 'DEBUG'   ? 1
+              : $name eq 'INFO'    ? 2
+              : $name eq 'WARNING' ? 3
+              : $name eq 'ERROR'   ? 4
+              : $name eq 'FATAL'   ? 5
+              : die "Invalid log level name: $name";
+}
+
+sub level_name {
+   my $number = shift;
+   die "No log level name given" unless $number;
+   my $name = $number == 1 ? 'DEBUG'
+            : $number == 2 ? 'INFO'
+            : $number == 3 ? 'WARNING'
+            : $number == 4 ? 'ERROR'
+            : $number == 5 ? 'FATAL'
+            : die "Invalid log level number: $number";
+}
+
+sub debug {
+   my $self = shift;
+   return $self->_log('DEBUG', @_);
+}
+
+sub info {
+   my $self = shift;
+   return $self->_log('INFO', @_);
+}
+
+sub warning {
+   my $self = shift;
+   return $self->_log('WARNING', @_);
+}
+
+sub error {
+   my $self = shift;
+   return $self->_log('ERROR', @_);
+}
+
+sub fatal {
+   my $self = shift;
+   $self->_log('FATAL', @_);
+   return 255;
+}
+
+sub _log {
+   my ($self, $level, $msg) = @_;
+   push @{$self->{log}}, "$level $msg";
+   return;
+}
+
+1;
+# ###########################################################################
+# End Percona::Test::Mock::AgentLogger package
+# ###########################################################################