added tests for the logging class

[scpubgit/Object-Remote.git] / t / lib / ORFeedbackLogger.pm

diff --git a/t/lib/ORFeedbackLogger.pm b/t/lib/ORFeedbackLogger.pm
new file mode 100644 (file)
index 0000000..9a0ac16
--- /dev/null
+++ b/t/lib/ORFeedbackLogger.pm
@@ -0,0 +1,32 @@
+package ORFeedbackLogger;
+
+use Test::More;
+use Moo;
+
+extends 'Object::Remote::Logging::Logger';
+
+has feedback_output => (is => 'rw' );
+has feedback_input => ( is => 'rw' );
+
+sub reset {
+  my ($self) = @_;
+  $self->feedback_output(undef);
+  $self->feedback_input(undef);
+  
+  ok(! defined $self->feedback_output && ! defined $self->feedback_input, 'Reset successful');
+}
+
+sub _log {
+  my $self = shift;
+  
+  $self->feedback_input([@_]);
+  
+  $self->SUPER::_log(@_);
+}
+
+sub _output {
+  my ($self, $rendered) = @_;
+  $self->feedback_output($rendered);
+}
+
+1;